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

do not modify $_ in list functions. PBP/114

Browse source
This commit is contained in:
Colin Kuskie 2007-12-05 23:00:58 +00:00
parent fc6cd26348
commit be6b2d3e7c
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Help/Macros.pm
View file

@ -9,8 +9,12 @@ our $HELP = {
my $session = shift; my $session = shift;
my $dir = join '/', $session->config->getWebguiRoot, "lib", "WebGUI", "Macro"; my $dir = join '/', $session->config->getWebguiRoot, "lib", "WebGUI", "Macro";
opendir( DIR, $dir ) or $session->errorHandler->fatal("Can't open Macro directory: $dir!"); opendir( DIR, $dir ) or $session->errorHandler->fatal("Can't open Macro directory: $dir!");
my @macros = map { s/\.pm//; $_; } my @macros = ();
grep {/\.pm$/} readdir(DIR); ##list of namespaces foreach my $dir (readdir(DIR)) {
next unless $dir =~ /\.pm$/;
$dir =~ s/\.pm//;
push @macros, $dir;
}
closedir(DIR); closedir(DIR);
##Build list of enabled macros, by namespace, by reversing session hash: ##Build list of enabled macros, by namespace, by reversing session hash: