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

fixed SCRIPT_NAME with a session variable from $r->uri

Browse source
This commit is contained in:
Matthew Wilson 2005-11-03 19:17:34 +00:00
parent dc66860d6f
commit 5ee8369c5e
9 changed files with 26 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/URL.pm
View file

@ -178,7 +178,7 @@ sub getScriptURL {
if (exists $session{config}{scripturl}) {
$scripturl = $session{config}{scripturl};
} else {
$scripturl = $session{env}{SCRIPT_NAME};
$scripturl = $session{wguri};
}
$scripturl .= '/';
return $scripturl;
@ -267,7 +267,7 @@ sub page {
if ($session{asset}) {
$pathinfo = $session{asset}->get("url");
} else {
$pathinfo = $session{env}{SCRIPT_NAME};
$pathinfo = $session{wguri};
$pathinfo =~ s/^\/(.*)/$1/;
}
$url .= $pathinfo;