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