Implemented Survey branching expressions (#9233). Woot!

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

View file

@ -458,9 +458,7 @@ sub www_loadSurvey {
}
# Generate the list of valid goto targets
my @section_vars = map {$_->{variable}} @{$self->survey->sections};
my @question_vars = map {$_->{variable}} @{$self->survey->questions};
my @gotoTargets = grep {$_ ne ''} (@section_vars, @question_vars);
my @gotoTargets = $self->survey->getGotoTargets;
my %buttons;
$buttons{question} = $$address[0];