},
tag_autocreate => {
type => "boolean",
- example => 0,
+ example => 1,
description => "autocreate new tag pages?",
safe => 1,
rebuild => undef,
sub taglink ($) {
my $tag=shift;
- if ($tag !~ m{^\.?/} &&
+ if ($tag !~ m{^/} &&
defined $config{tagbase}) {
$tag="/".$config{tagbase}."/".$tag;
$tag=~y#/#/#s; # squash dups
sub gentag ($) {
my $tag=shift;
- if ($config{tag_autocreate}) {
+ if ($config{tag_autocreate} ||
+ ($config{tagbase} && ! defined $config{tag_autocreate})) {
my $tagpage=taglink($tag);
if ($tagpage=~/^\.\/(.*)/) {
$tagpage=$1;