bug fixes
This commit is contained in:
parent
6c3120b9b0
commit
da580b77a0
3 changed files with 7 additions and 7 deletions
|
|
@ -256,9 +256,8 @@ sub page {
|
|||
my $url;
|
||||
if ($useFullUrl) {
|
||||
$url = getSiteURL();
|
||||
} else {
|
||||
$url = getScriptURL();
|
||||
}
|
||||
$url .= getScriptURL();
|
||||
my $pathinfo = $session{env}{PATH_INFO};
|
||||
$pathinfo =~ s/^\/(.*)/$1/;
|
||||
$url .= $pathinfo;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue