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

Validates goto syntax on all objects now.

Browse source
This commit is contained in:
Kaleb Murphy 2009-03-31 05:00:22 +00:00
parent e515817053
commit 1ad5303267
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Asset/Wobject/Survey/SurveyJSON.pm
View file

@ -1224,6 +1224,9 @@ sub validateSurvey{
if(! $self->validateInfLoop($section)){ if(! $self->validateInfLoop($section)){
push(@messages,"Section $s jumps to itself."); 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. #step through each question validating it.
my $questions = $self->questions([$s]); my $questions = $self->questions([$s]);
@ -1255,6 +1258,9 @@ sub validateSurvey{
if(! $self->validateGoto($answer,$goodTargets)){ if(! $self->validateGoto($answer,$goodTargets)){
push(@messages,"Section $s Question $q Answer $a does not have a valid GOTO target."); 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)){ if(! $self->validateGotoExpression($answer,$goodTargets)){
push(@messages,"Section $s Question $q Answer $a does not have a valid GOTO Expression target."); push(@messages,"Section $s Question $q Answer $a does not have a valid GOTO Expression target.");
} }