diff --git a/lib/WebGUI/Asset/Wobject/Survey.pm b/lib/WebGUI/Asset/Wobject/Survey.pm index f091d7998..d513e3714 100644 --- a/lib/WebGUI/Asset/Wobject/Survey.pm +++ b/lib/WebGUI/Asset/Wobject/Survey.pm @@ -658,7 +658,7 @@ $self->session->errorHandler->error("Can take survey"); return $self->surveyEnd(); } - return $self->surveyEnd() if($seslf->response->surveyEnd()); + return $self->surveyEnd() if($self->response->surveyEnd()); my $questions = $self->response->nextQuestions(); $self->session->errorHandler->error("Load Questions had ".@$questions." questions"); diff --git a/lib/WebGUI/Asset/Wobject/Survey/ResponseJSON.pm b/lib/WebGUI/Asset/Wobject/Survey/ResponseJSON.pm index b2c44673b..39d013e4b 100644 --- a/lib/WebGUI/Asset/Wobject/Survey/ResponseJSON.pm +++ b/lib/WebGUI/Asset/Wobject/Survey/ResponseJSON.pm @@ -240,7 +240,7 @@ $self->log("qAddy was $$qAddy[0]-$$qAddy[1]"); last; } my %question = %{$self->survey->question([$$qAddy[0],$$qAddy[1]])}; - $question->{'text'} =~ s/\[\[([^\%]*?)\]\]/$self->getPreviousAnswer($1)/eg; + $question{'text'} =~ s/\[\[([^\%]*?)\]\]/$self->getPreviousAnswer($1)/eg; delete $question{answers}; $question{id} = "$$qAddy[0]-$$qAddy[1]"; $question{sid} = "$$qAddy[0]";