X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/7bde880fa8cf2e7d3413a7ede7ae5b604a97e85b..df512e55dfbbb912cdf4aee5db48622301bb29ac:/IkiWiki/Plugin/map.pm diff --git a/IkiWiki/Plugin/map.pm b/IkiWiki/Plugin/map.pm index 97450eb6d..581ae5011 100644 --- a/IkiWiki/Plugin/map.pm +++ b/IkiWiki/Plugin/map.pm @@ -37,6 +37,9 @@ sub preprocess (@) { #{{{ my @b=split(/\//, $common_prefix); $common_prefix=""; while (@a && @b && $a[0] eq $b[0]) { + if (length $common_prefix) { + $common_prefix.="/"; + } $common_prefix.=shift(@a); shift @b; } @@ -45,7 +48,8 @@ sub preprocess (@) { #{{{ } # Common prefix should not be a page in the map. - while (length $common_prefix && exists $mapitems{$common_prefix}) { + while (defined $common_prefix && length $common_prefix && + exists $mapitems{$common_prefix}) { $common_prefix=IkiWiki::dirname($common_prefix); } @@ -60,19 +64,23 @@ sub preprocess (@) { #{{{ my $parent=""; my $indent=0; my $openli=0; + my $dummy=0; my $map = "
\n\n"; } } + $dummy=0; while ($depth < $indent) { $indent--; $map .= "\n"; @@ -89,10 +97,13 @@ sub preprocess (@) { #{{{ $map .= "