fix a typo and logic error in the label test
This commit is contained in:
parent
af29303c31
commit
c96cef545c
1 changed files with 4 additions and 2 deletions
|
|
@ -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};
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue