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

Changed style system to a "body" configuration rather than header/footer.

Browse source
This commit is contained in:
JT Smith 2002-05-26 18:32:08 +00:00
parent 3f2abb21e5
commit 299995af14
4 changed files with 70 additions and 87 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lib/WebGUI/Macro.pm
View file

@ -29,24 +29,12 @@ sub getParams {
#-------------------------------------------------------------------
sub process {
my (@files, $file, $cmd, $output, $macroDir);
my ($macro, $cmd, $output);
$output = $_[0];
if ($^O =~ /Win/i) {
$macroDir = "\\lib\\WebGUI\\Macro";
} else {
$macroDir = "/lib/WebGUI/Macro";
}
opendir (DIR,$session{config}{webguiRoot}.$macroDir) or WebGUI::ErrorHandler::fatalError("Can't open macro directory!");
@files = readdir(DIR);
foreach $file (@files) {
if ($file =~ /(.*?)\.pm$/) {
$cmd = "use WebGUI::Macro::".$1;
eval($cmd);
$cmd = "WebGUI::Macro::".$1."::process";
$output = &$cmd($output);
}
foreach $macro (keys %{$session{macro}}) {
$cmd = "WebGUI::Macro::".$macro."::process";
$output = &$cmd($output);
}
closedir(DIR);
return $output;
}