convert WebGUI to a mod perl handler
This commit is contained in:
parent
ec9d561c5a
commit
9b23c24a6a
13 changed files with 198 additions and 101 deletions
|
|
@ -267,7 +267,7 @@ sub page {
|
|||
if ($session{asset}) {
|
||||
$pathinfo = $session{asset}->get("url");
|
||||
} else {
|
||||
$pathinfo = $session{env}{PATH_INFO};
|
||||
$pathinfo = $session{env}{SCRIPT_NAME};
|
||||
$pathinfo =~ s/^\/(.*)/$1/;
|
||||
}
|
||||
$url .= $pathinfo;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue