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

modified help generation to allow underscores in help file names

Browse source
This commit is contained in:
Colin Kuskie 2005-04-03 07:41:48 +00:00
parent 359dc92e0a
commit 318242da9b
1 changed files with 12 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -64,12 +64,11 @@ sub www_viewHelp {
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub www_viewHelpIndex { sub www_viewHelpIndex {
return WebGUI::Privilege::insufficient() unless (WebGUI::Grouping::isInGroup(7)); return WebGUI::Privilege::insufficient() unless (WebGUI::Grouping::isInGroup(7));
my %helpIndex; my @helpIndex;
tie %helpIndex, "Tie::IxHash";
my $i; my $i;
my $dir = $session{config}{webguiRoot}.$session{os}{slash}."lib".$session{os}{slash}."WebGUI".$session{os}{slash}."Help"; 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!"); opendir (DIR,$dir) or WebGUI::ErrorHandler::fatal("Can't open Help directory!");
my @files = readdir(DIR); my @files = grep { /\.pm$/} readdir(DIR);
closedir(DIR); closedir(DIR);
foreach my $file (@files) { foreach my $file (@files) {
if ($file =~ /(.*?)\.pm$/) { if ($file =~ /(.*?)\.pm$/) {
@ -81,7 +80,8 @@ sub www_viewHelpIndex {
$cmd = "\$".$cmd."::HELP"; $cmd = "\$".$cmd."::HELP";
my $help = eval($cmd); my $help = eval($cmd);
foreach my $key (keys %{$help}) { foreach my $key (keys %{$help}) {
$helpIndex{$key."_".$namespace} = WebGUI::International::get($help->{$key}{title},$namespace); push @helpIndex, [$namespace, $key,
WebGUI::International::get($help->{$key}{title},$namespace)];
$i++; $i++;
} }
} else { } else {
@ -92,15 +92,14 @@ sub www_viewHelpIndex {
my $output = '<table width="100%" class="content"><tr><td valign="top">'; my $output = '<table width="100%" class="content"><tr><td valign="top">';
my $halfway = round($i/2); my $halfway = round($i/2);
$i = 0; $i = 0;
%helpIndex = sortHash(%helpIndex); @helpIndex = sort { $a->[2] <=> $b->[2] } @helpIndex;
foreach my $key (keys %helpIndex) { foreach my $helpEntry (@helpIndex) {
my ($id,$namespace) = split("_",$key); my ($namespace, $id, $title) = @{ $helpEntry };
my $help = _get($id,$namespace); $output .= '<p><a href="'._link($id,$namespace).'">'.$title.'</a></p>';
$output .= '<p><a href="'._link($id,$namespace).'">'.$helpIndex{$key}.'</a></p>'; $i++;
$i++; if ($i == $halfway) {
if ($i == $halfway) { $output .= '</td><td valign="top">';
$output .= '</td><td valign="top">'; }
}
} }
$output .= '</td></tr></table>'; $output .= '</td></tr></table>';
return WebGUI::AdminConsole->new("help")->render($output); return WebGUI::AdminConsole->new("help")->render($output);