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

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

View file

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