oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improved createSurveyOrder documentation, and made perlcritic happy

Browse source
This commit is contained in:
Patrick Donelan 2009-02-04 00:16:44 +00:00
parent 6fb325699f
commit 477f014177
1 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/Asset/Wobject/Survey/ResponseJSON.pm
View file

@ -82,13 +82,12 @@ sub new {
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
=head2 createSurveyOrder ( SurveyJSON, [address,address] ) =head2 createSurveyOrder
This creates the order for the survey which will change after every fork. The survey Computes the order of Sections, Questions and Aswers for this Survey. The order is represented as
order is to precreate random questions and answers, which also leaves a record or what an array of addresses (see L<"Address Parameter">), and is stored in the surveyOrder property.
the user was presented with. Forks are passed in to show where to branch the new order. Questions and Answers that are set to be randomized are shuffled into a random order.
The survey order leaves a record or what the user was presented with.
If questions and/or answers were set to be randomized, it is handled in here.
=cut =cut
@ -128,6 +127,8 @@ sub createSurveyOrder {
} }
} }
$self->response->{surveyOrder} = \@surveyOrder; $self->response->{surveyOrder} = \@surveyOrder;
return;
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------