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

convert WebGUI to a mod perl handler

Browse source
This commit is contained in:
JT Smith 2005-11-03 09:14:23 +00:00
parent ec9d561c5a
commit 9b23c24a6a
13 changed files with 198 additions and 101 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Macro/PageUrl.pm
View file

@ -16,7 +16,7 @@ use WebGUI::URL;
#-------------------------------------------------------------------
sub process {
my $pathinfo = $session{env}{PATH_INFO};
my $pathinfo = $session{env}{SCRIPT_NAME};
$pathinfo =~ s#^/##;
return WebGUI::URL::getScriptURL().$pathinfo;
}

2
lib/WebGUI/Macro/r_printable.pm
View file

@ -26,7 +26,7 @@ sub process {
if ($session{env}{REQUEST_URI} =~ /op\=/) {
$append = 'op2='.WebGUI::URL::escape($append);
}
$temp = WebGUI::URL::gateway($session{env}{PATH_INFO},$append);
$temp = WebGUI::URL::gateway($session{env}{SCRIPT_NAME},$append);
$temp =~ s/\/\//\//;
$temp = WebGUI::URL::append($temp,$session{env}{QUERY_STRING});
if ($param[1] ne "") {