Validates goto syntax on all objects now.
This commit is contained in:
parent
e515817053
commit
1ad5303267
1 changed files with 6 additions and 0 deletions
|
|
@ -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.");
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue