Implemented Survey Jump-to combo box (#9202)

You will need to manually import survey_rfe_9202 until this branch is
merged back into trunk.
This commit is contained in:
Patrick Donelan 2008-12-15 03:42:39 +00:00
parent 7a42b4b241
commit 4fe81a69f6
4 changed files with 18 additions and 3 deletions

View file

@ -456,6 +456,11 @@ sub www_loadSurvey {
elsif ( $var->{type} eq 'answer' ) {
$editHtml = $self->processTemplate( $var, $self->get("answerEditTemplateId") );
}
# 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 %buttons;
$buttons{question} = $$address[0];
@ -509,7 +514,8 @@ sub www_loadSurvey {
#type is the object type
my $return = {
"address", $address, "buttons", \%buttons, "edithtml", $editHtml,
"ddhtml", $html, "ids", \@ids, "type", $var->{type}
"ddhtml", $html, "ids", \@ids, "type", $var->{type},
gotoTargets => \@gotoTargets,
};
$self->session->http->setMimeType('application/json');
return to_json($return);