diff --git a/lib/WebGUI/Asset/Wobject/Survey/SurveyJSON.pm b/lib/WebGUI/Asset/Wobject/Survey/SurveyJSON.pm index 3e90bc725..13f125a48 100644 --- a/lib/WebGUI/Asset/Wobject/Survey/SurveyJSON.pm +++ b/lib/WebGUI/Asset/Wobject/Survey/SurveyJSON.pm @@ -1224,6 +1224,9 @@ sub validateSurvey{ if(! $self->validateInfLoop($section)){ push(@messages,"Section $s jumps to itself."); } + if(! $self->validateExpressionSyntax($section)){ + push(@messages,"Section $s does not appear to have valid GOTO Expression syntax."); + } #step through each question validating it. my $questions = $self->questions([$s]); @@ -1255,6 +1258,9 @@ sub validateSurvey{ if(! $self->validateGoto($answer,$goodTargets)){ push(@messages,"Section $s Question $q Answer $a does not have a valid GOTO target."); } + if(! $self->validateExpressionSyntax($answer)){ + push(@messages,"Section $s Question $q Answer $a does not appear to have valid GOTO Expression syntax."); + } if(! $self->validateGotoExpression($answer,$goodTargets)){ push(@messages,"Section $s Question $q Answer $a does not have a valid GOTO Expression target."); }