From 8b34dc79eedea268083eeb328e26d7dbd1959d0b Mon Sep 17 00:00:00 2001
From: Patrick Donelan <pat@patspam.com>
Date: Sun, 20 Dec 2009 15:41:13 -0500
Subject: [PATCH] Fix minor Survey bug

WebGUI::Asset::Wobject::Survey::ResponseJSON::responseValues was
returning empty result for indexBy => 'addresses'
---
 lib/WebGUI/Asset/Wobject/Survey/ResponseJSON.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Asset/Wobject/Survey/ResponseJSON.pm b/lib/WebGUI/Asset/Wobject/Survey/ResponseJSON.pm
index 6a2b5ccd7..844e9b635 100644
--- a/lib/WebGUI/Asset/Wobject/Survey/ResponseJSON.pm
+++ b/lib/WebGUI/Asset/Wobject/Survey/ResponseJSON.pm
@@ -918,7 +918,7 @@ sub responseValues {
         # Find out what we're indexing responses by
         my $identifier 
             = $opts{indexBy} eq 'variable' ? $question && $question->{variable} 
-                                           : $self->questionId($address);
+                                           : $self->questionId(@address);
         next unless $identifier;
         
         my $answer = $self->survey->answer([@address]);