Branching now works, but now it isn't recognizing the end of the survey properly. Will be easy fix tomorrow.
This commit is contained in:
parent
a4afde5786
commit
ff2ecaa8fc
2 changed files with 45 additions and 15 deletions
|
|
@ -587,10 +587,6 @@ $self->session->errorHandler->error(Dumper $responses);
|
|||
|
||||
my @goodResponses = keys %$responses;#load everything.
|
||||
|
||||
if(@goodResponses == 0){##nothing to load
|
||||
return $self->www_loadQuestions();
|
||||
}
|
||||
|
||||
$self->loadBothJSON();
|
||||
|
||||
my $termInfo = $self->response->recordResponses($responses);
|
||||
|
|
@ -660,8 +656,13 @@ $self->session->errorHandler->error("Can take survey");
|
|||
|
||||
return $self->surveyEnd() if($self->response->surveyEnd());
|
||||
|
||||
my $questions = $self->response->nextQuestions();
|
||||
$self->session->errorHandler->error("Load Questions had ".@$questions." questions");
|
||||
my $questions;
|
||||
eval{
|
||||
$questions = $self->response->nextQuestions();
|
||||
};
|
||||
$self->session->errorHandler->error($@) if($@);
|
||||
|
||||
$self->session->errorHandler->error("Load Questions had ".@$questions." questions") if(ref $questions eq 'ARRAY');
|
||||
|
||||
|
||||
my $section = $self->response->nextSection();
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue