Since the topical view of the Help has gone away, the TOC labels
are no longer required in the i18n files. Remove the test and subroutine from Operation/Help.pm.
This commit is contained in:
parent
844c39e321
commit
9e1cc24271
3 changed files with 0 additions and 75 deletions
|
|
@ -214,33 +214,6 @@ sub _getHelpFilesList {
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
#-------------------------------------------------------------------
|
||||||
|
|
||||||
=head2 _getHelpName ( $session, $file )
|
|
||||||
|
|
||||||
To support the table of contents, all WebGUI help files have a corresponding
|
|
||||||
entry in the i18n file for the name of the chapter. This utility routine
|
|
||||||
will fetch the correct i18n name for the chapter.
|
|
||||||
|
|
||||||
=cut
|
|
||||||
|
|
||||||
sub _getHelpName {
|
|
||||||
my $session = shift;
|
|
||||||
my $file = shift;
|
|
||||||
my $helpName;
|
|
||||||
if ($file =~ /^Asset_/) {
|
|
||||||
$helpName = 'assetName';
|
|
||||||
}
|
|
||||||
elsif ($file =~ /^Macro_/) {
|
|
||||||
$helpName = 'macroName';
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
$helpName = 'topicName';
|
|
||||||
}
|
|
||||||
my $i18n = WebGUI::International->new($session);
|
|
||||||
return $i18n->get($helpName,$file);
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
|
|
||||||
=head2 _related ( $session, $related )
|
=head2 _related ( $session, $related )
|
||||||
|
|
||||||
Utility routine for returning a list of topics related the the current help
|
Utility routine for returning a list of topics related the the current help
|
||||||
|
|
|
||||||
|
|
@ -15,16 +15,6 @@ our $I18N = { ##hashref of hashes
|
||||||
context => q|Provide some context to let the translator know what this message is used for.|
|
context => q|Provide some context to let the translator know what this message is used for.|
|
||||||
},
|
},
|
||||||
|
|
||||||
#If the help file documents an Asset, it must include an assetName key
|
|
||||||
#If the help file documents an Macro, it must include an macroName key
|
|
||||||
#If the help file documents a Workflow Activity, it must include an activityName key
|
|
||||||
#If the help file documents a Template Parser, it must include an templateParserName key
|
|
||||||
#For all other types, use topicName
|
|
||||||
'assetName' => {
|
|
||||||
message => q|My Asset|,
|
|
||||||
lastUpdated => 1131394072,
|
|
||||||
},
|
|
||||||
|
|
||||||
};
|
};
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
|
|
||||||
38
t/Help/toc.t
38
t/Help/toc.t
|
|
@ -1,38 +0,0 @@
|
||||||
#-------------------------------------------------------------------
|
|
||||||
# WebGUI is Copyright 2001-2008 Plain Black Corporation.
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
# Please read the legal notices (docs/legal.txt) and the license
|
|
||||||
# (docs/license.txt) that came with this distribution before using
|
|
||||||
# this software.
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
# http://www.plainblack.com info@plainblack.com
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
|
|
||||||
use FindBin;
|
|
||||||
use strict;
|
|
||||||
use lib "$FindBin::Bin/../lib";
|
|
||||||
|
|
||||||
use WebGUI::Test;
|
|
||||||
use WebGUI::Session;
|
|
||||||
use WebGUI::Operation::Help;
|
|
||||||
use WebGUI::International;
|
|
||||||
use Data::Dumper;
|
|
||||||
|
|
||||||
#The goal of this test is to make sure that all required labels
|
|
||||||
#for the help system exist.
|
|
||||||
|
|
||||||
use Test::More; # increment this value for each test you create
|
|
||||||
my $numTests = 0;
|
|
||||||
|
|
||||||
my $session = WebGUI::Test->session;
|
|
||||||
|
|
||||||
my @helpFileSet = WebGUI::Operation::Help::_getHelpFilesList($session);
|
|
||||||
|
|
||||||
$numTests = scalar @helpFileSet;
|
|
||||||
|
|
||||||
plan tests => $numTests;
|
|
||||||
|
|
||||||
foreach my $fileSet (@helpFileSet) {
|
|
||||||
my $file = $fileSet->[1];
|
|
||||||
ok(WebGUI::Operation::Help::_getHelpName($session, $file), "Missing label for $file");
|
|
||||||
}
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue