bug fixes

This commit is contained in:
JT Smith 2005-03-01 23:39:04 +00:00
parent 6c3120b9b0
commit da580b77a0
3 changed files with 7 additions and 7 deletions

View file

@ -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;