baseurl(): return local path, not absolute URL, if the argument is undef
parent
6be4e6d1a5
commit
f032bce791
|
@ -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/[^\/]+$//;
|
||||||
|
|
Loading…
Reference in New Issue