baseurl(): return local path, not absolute URL, if the argument is undef
parent
6be4e6d1a5
commit
f032bce791
|
@ -1057,7 +1057,7 @@ sub cgiurl (@) {
|
|||
sub baseurl (;$) {
|
||||
my $page=shift;
|
||||
|
||||
return "$config{url}/" if ! defined $page;
|
||||
return $local_url if ! defined $page;
|
||||
|
||||
$page=htmlpage($page);
|
||||
$page=~s/[^\/]+$//;
|
||||
|
|
Loading…
Reference in New Issue