From 639a3398f03316908ddf4ab6e2b894131844475e Mon Sep 17 00:00:00 2001
From: Patrick Donelan <pat@patspam.com>
Date: Mon, 11 May 2009 08:16:14 +0000
Subject: [PATCH] Fixed Survey expression validation handling of verbatim
 values

---
 lib/WebGUI/Asset/Wobject/Survey/ExpressionEngine.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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;