baseurl(): return local path, not absolute URL, if the argument is undef

master
Simon McVittie 2010-11-22 23:25:45 +00:00
parent 6be4e6d1a5
commit f032bce791
1 changed files with 1 additions and 1 deletions

View File

@ -1057,7 +1057,7 @@ sub cgiurl (@) {
sub baseurl (;$) { sub baseurl (;$) {
my $page=shift; my $page=shift;
return "$config{url}/" if ! defined $page; return $local_url if ! defined $page;
$page=htmlpage($page); $page=htmlpage($page);
$page=~s/[^\/]+$//; $page=~s/[^\/]+$//;