Some fixes to the way Survey handles recordedAnswer, value, etc..

2009-04-07 07:15:33 +00:00 · 2009-04-07 07:15:33 +00:00 · c1b18ea9bb
commit c1b18ea9bb
parent 80d3e74d60
3 changed files with 120 additions and 55 deletions
--- a/lib/WebGUI/Asset/Wobject/Survey/SurveyJSON.pm
+++ b/lib/WebGUI/Asset/Wobject/Survey/SurveyJSON.pm
@ -1063,7 +1063,7 @@ sub addAnswersToQuestion {
        $self->update(
            \@address_copy,
            {   text           => $answers->[$answer_index],
-                recordedAnswer => $answer_index + 1,
+                recordedAnswer => $answer_index + 1, # 1-indexed
                verbatim       => $verbatims->{$answer_index},
            }
        );