From 3ffb76ef7f361532cd68f328874f244f9162363a Mon Sep 17 00:00:00 2001
From: Patrick Donelan <pat@patspam.com>
Date: Wed, 3 Jun 2009 07:16:14 +0000
Subject: [PATCH] Fixed Survey testsuite handling of Tagged question type

---
 lib/WebGUI/Asset/Wobject/Survey/Test.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Asset/Wobject/Survey/Test.pm b/lib/WebGUI/Asset/Wobject/Survey/Test.pm
index 34b87320d..43f8e6fa1 100644
--- a/lib/WebGUI/Asset/Wobject/Survey/Test.pm
+++ b/lib/WebGUI/Asset/Wobject/Survey/Test.pm
@@ -279,7 +279,7 @@ sub _test {
         if (!defined $spec) {
             $self->session->log->debug("Spec undefined, assuming that means ignore answer value");
         } 
-        elsif ( $questionType eq 'Text' || $questionType eq 'Number' || $questionType eq 'Slider' ) {
+        elsif ( $questionType eq 'Text' || $questionType eq 'Number' || $questionType eq 'Slider' || $questionType eq 'Tagged') {
             # Assume spec is raw value to record in the single answer
             $responses->{"$address->[0]-$address->[1]-0"} = $spec;
         } elsif ( $questionType eq 'Year Month' ) {