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

Fixed end of survey bug. Now previous answer fill in workds [[gotparam]], branching, and all question types but uploaded files all work. Need to finish reports, upgrade script from V1.0, copy and paste, add point values to answers and questions in the edit templates, and figure out what all methods a proper core wobject should allow.

Browse source
This commit is contained in:
Kaleb Murphy 2008-10-20 03:49:17 +00:00
parent ff2ecaa8fc
commit 5b8a1df90e
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -180,7 +180,7 @@ $self->log("There are questions to be submitted in this section");
$terminal = 1;
$terminalUrl = $answer->{terminalUrl};
}
elsif($answer->{goto} =~ /\S/){
elsif($answer->{goto} =~ /\w/){
$goto = $answer->{goto};
}
}
@ -191,7 +191,7 @@ $self->log("There are questions to be submitted in this section");
#if all responses completed, move the lastResponse index to the last question shown
if($qAnswered){
$self->lastResponse($self->lastResponse + @$questions);
$self->goto($goto);
$self->goto($goto) if(defined $goto);
}else{
$terminal = 0;
}
@ -200,7 +200,7 @@ $self->log("There are questions to be submitted in this section");
sub goto{
my $self = shift;
my $goto = shift;
$self->log("In goto for $goto");
$self->log("In goto for '$goto'");
for(my $i = 0; $i <= $#{$self->surveyOrder()}; $i++){
my $section = $self->survey->section($self->surveyOrder()->[$i]);
my $question = $self->survey->question($self->surveyOrder()->[$i]);
@ -285,6 +285,7 @@ $self->log("Next Questions returning with ");
sub surveyEnd{
my $self = shift;
$self->log("LR is ".$self->lastResponse." and order is ".$#{$self->surveyOrder});
$self->log("ENDING THE SURVEY\n\n\n") if($self->lastResponse > $#{$self->surveyOrder});
return 1 if($self->lastResponse >= $#{$self->surveyOrder});
return 0;
}