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

Implemented Survey branching expressions (#9233). Woot!

Browse source
This commit is contained in:
Patrick Donelan 2008-12-15 10:25:44 +00:00
parent ad0f3b388d
commit fc3851705a
6 changed files with 268 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Asset/Wobject/Survey/SurveyJSON.pm
View file

@ -318,6 +318,14 @@ sub getSectionEditVars {
return \%var;
} ## end sub getSectionEditVars
sub getGotoTargets {
my $self = shift;
my @section_vars = map {$_->{variable}} @{$self->sections};
my @question_vars = map {$_->{variable}} @{$self->questions};
return grep {$_ ne ''} (@section_vars, @question_vars);
}
=head2 getQuestionEditVars ( $address )
Get a safe copy of the variables for this question, to use for editing purposes. Adds
@ -707,6 +715,7 @@ sub newAnswer {
textCols => 10,
textRows => 5,
goto => '',
gotoExpression => '',
recordedAnswer => '',
isCorrect => 1,
min => 1,