Validates goto syntax on all objects now.

This commit is contained in:
Kaleb Murphy 2009-03-31 05:00:22 +00:00
parent e515817053
commit 1ad5303267

View file

@ -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.");
}