oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

make sure that Help skeleton does not actually generate a help entry

Browse source
This commit is contained in:
Colin Kuskie 2005-11-07 20:04:41 +00:00
parent 2c7a475d40
commit b77f503aec
1 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lib/WebGUI/Operation/Help.pm
View file

@ -59,6 +59,15 @@ sub _linkTOC {
return WebGUI::URL::page('op=viewHelpChapter;namespace='.$_[0]);
}
#-------------------------------------------------------------------
sub _getHelpFilesList {
my $dir = $session{config}{webguiRoot}.$session{os}{slash}."lib".$session{os}{slash}."WebGUI".$session{os}{slash}."Help";
opendir (DIR,$dir) or WebGUI::ErrorHandler::fatal("Can't open Help directory!");
my @files = grep { /^_Help/ } grep { /\.pm$/} readdir(DIR);
closedir(DIR);
return @files;
}
#-------------------------------------------------------------------
sub _getHelpName {
my $file = shift;
@ -108,10 +117,7 @@ sub www_viewHelpIndex {
return WebGUI::Privilege::insufficient() unless (WebGUI::Grouping::isInGroup(7));
my @helpIndex;
my $i;
my $dir = $session{config}{webguiRoot}.$session{os}{slash}."lib".$session{os}{slash}."WebGUI".$session{os}{slash}."Help";
opendir (DIR,$dir) or WebGUI::ErrorHandler::fatal("Can't open Help directory!");
my @files = grep { /\.pm$/} readdir(DIR);
closedir(DIR);
my @files = _getHelpFilesList();
foreach my $file (@files) {
if ($file =~ /(.*?)\.pm$/) {
my $namespace = $1;
@ -146,10 +152,7 @@ sub www_viewHelpTOC {
return WebGUI::Privilege::insufficient() unless (WebGUI::Grouping::isInGroup(7));
my @helpIndex;
my $i;
my $dir = $session{config}{webguiRoot}.$session{os}{slash}."lib".$session{os}{slash}."WebGUI".$session{os}{slash}."Help";
opendir (DIR,$dir) or WebGUI::ErrorHandler::fatal("Can't open Help directory!");
my @files = grep { /\.pm$/} readdir(DIR);
closedir(DIR);
my @files = _getHelpFilesList();
my $third = round(@files/3 + 0.50);
my @entries;
foreach my $file (@files) {