X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/f398ad035b973608d380c9939ea845d8e2a0cdc2..4347d948576d2fc67a1177649cbbde41f4452475:/IkiWiki/Plugin/map.pm

diff --git a/IkiWiki/Plugin/map.pm b/IkiWiki/Plugin/map.pm
index ce3ac1d24..38f090ff7 100644
--- a/IkiWiki/Plugin/map.pm
+++ b/IkiWiki/Plugin/map.pm
@@ -94,8 +94,9 @@ sub preprocess (@) {
 			if defined $common_prefix && length $common_prefix;
 		my $depth = ($item =~ tr/\//\//) + 1;
 		my $baseitem=IkiWiki::dirname($item);
-		while (length $parent && length $baseitem && $baseitem !~ /^\Q$parent\E(\/|$)/) {
-			$parent=IkiWiki::dirname($parent);
+		my $parentbase=IkiWiki::dirname($parent);
+		while (length $parentbase && length $baseitem && $baseitem !~ /^\Q$parentbase\E(\/|$)/) {
+			$parentbase=IkiWiki::dirname($parentbase);
 			last if length $addparent && $baseitem =~ /^\Q$addparent\E(\/|$)/;
 			$addparent="";
 			$indent--;
@@ -113,14 +114,10 @@ sub preprocess (@) {
 		}
 		my @bits=split("/", $item);
 		my $p="";
+		$indent++  unless length $parent;
 		$p.="/".shift(@bits) for 1..$indent;
 		while ($depth > $indent) {
-			$indent++;
-			if ($indent > 1) {
-				$map .= "<ul>\n";
-			}
-			if ($depth > $indent) {
-				$p.="/".shift(@bits);
+			if (@bits && !(length $parent && "/$parent" eq $p)) {
 				$addparent=$p;
 				$addparent=~s/^\///;
 				$map .= "<li>"
@@ -133,6 +130,11 @@ sub preprocess (@) {
 			else {
 				$openli=0;
 			}
+			$indent++;
+			$p.="/".shift(@bits) if @bits;
+			if ($indent > 1) {
+				$map .= "<ul>\n";
+			}
 		}
 		$map .= "</li>\n" if $openli;
 		$map .= "<li>"