sub tagname ($) {
my $tag=shift;
if (defined $config{tagbase}) {
- $tag =~ s!^/$config{tagbase}/!!;
+ $tag =~ s!^/\Q$config{tagbase}\E/!!;
} else {
- $tag =~ s!^\.?/?!!;
+ $tag =~ s!^\.?/!!;
}
- return $tag;
+ return pagetitle($tag, 1);
}
sub htmllink_tag ($$$;@) {