diff --git a/lib/WebGUI/Asset/Wobject/Survey/ExpressionEngine.pm b/lib/WebGUI/Asset/Wobject/Survey/ExpressionEngine.pm index 859670a0b..71924730f 100644 --- a/lib/WebGUI/Asset/Wobject/Survey/ExpressionEngine.pm +++ b/lib/WebGUI/Asset/Wobject/Survey/ExpressionEngine.pm @@ -44,7 +44,13 @@ Returns the recorded response value for the answer to question_variable sub value { my $key = shift; - _validateVariable($key, 'value'); + + # Verbatim values are valid variable + _verbatim + if (my ($verbatimKey) = $key =~ m/(.+)_verbatim/) { + _validateVariable($verbatimKey, 'value'); + } else { + _validateVariable($key, 'value'); + } my $value = $tags->{$key} || $values->{$key}; if (ref $value eq 'ARRAY') { my $joined = join ', ', @$value;