fix a typo and logic error in the label test

This commit is contained in:
Colin Kuskie 2006-05-30 04:38:34 +00:00
parent af29303c31
commit c96cef545c

View file

@ -19,6 +19,7 @@ use WebGUI::International;
use WebGUI::Session;
use Text::Balanced qw(extract_codeblock);
use File::Find;
use Data::Dumper;
#The goal of this test is to locate all of the international labels that it
#can and verify that they exist in all loaded language models
@ -69,6 +70,7 @@ my @sqlLabels;
my @libLabels;
my @objLabels;
@helpLabels = getHelpLabels();
#@sqlLabels = getSQLLabels();
@ -208,10 +210,10 @@ sub getHelpLabels {
push @helpLabels, {
topic=>$topic,
entry=>$entry,
tag=>'fields',
tag=>'variables',
namespace=>$namespace,
label=>$variable->{description},
} if exists $variable->{description};
} if $variable->{description};
}
}
}