From 774ef99cb6e1da02f376755cf0ebf57b569f7bf2 Mon Sep 17 00:00:00 2001
From: Kaleb Murphy <perlmonkey2@webgui-svn>
Date: Fri, 27 Mar 2009 00:11:19 +0000
Subject: [PATCH] Dont let stupid monkies play with object members

---
 lib/WebGUI/Asset/Wobject/Survey/ResponseJSON.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Asset/Wobject/Survey/ResponseJSON.pm b/lib/WebGUI/Asset/Wobject/Survey/ResponseJSON.pm
index 0ac14e4b2..4fa267905 100644
--- a/lib/WebGUI/Asset/Wobject/Survey/ResponseJSON.pm
+++ b/lib/WebGUI/Asset/Wobject/Survey/ResponseJSON.pm
@@ -462,8 +462,8 @@ sub recordResponses {
     my ($responses) = validate_pos( @_, { type => HASHREF } );
 
     # Build a lookup table of non-multiple choice question types
-    my %knownTypes = map {$_ => 1} $self->survey->specialQuestionTypes;
-
+    my %knownTypes = map {$_ => 1} @{$self->survey->specialQuestionTypes};
+    
     # We want to record responses against the "next" response section and questions, since these are
     # the items that have just been displayed to the user.
     my $section   = $self->nextResponseSection();