fix problem with test reporting errors on programmatically generated content on body tags

This commit is contained in:
Colin Kuskie 2006-06-26 04:06:02 +00:00
parent 9287458443
commit 17308e72aa

View file

@ -169,13 +169,20 @@ sub getHelpLabels {
foreach my $topic ( keys %helpTable ) {
foreach my $entry ( keys %{ $helpTable{$topic} }) {
##Check the title and body data
foreach my $tag ('title','body') {
push @helpLabels, {
topic=>$topic,
entry=>$entry,
tag=>'title',
namespace=>$topic, ##default
label=>$helpTable{$topic}{$entry}{'title'},
};
if (ref $helpTable{$topic}{$entry}{'body'} ne 'CODE') {
push @helpLabels, {
topic=>$topic,
entry=>$entry,
tag=>$tag,
tag=>'body',
namespace=>$topic, ##default
label=>$helpTable{$topic}{$entry}{$tag},
label=>$helpTable{$topic}{$entry}{'body'},
};
}