support nested lists in index

2010-01-05 17:57:24 +01:00
parent 48c1cc8c89
commit 11622e4ac1
1 changed files with 5 additions and 5 deletions
--- a/doc/fixnavi.pl
+++ b/doc/fixnavi.pl
@@ -11,10 +11,10 @@ my $doctitle = "";
 my $curpage = "";
 my $intoc = 0;
 while (<FILE>) {
-    if (!$intoc) {
-        if (keys(%title2page) == 1 && /^\h*\\list/) {
-            $intoc = 1;
-        } elsif (/^\h*\\page\h+(\H+)/) {
+    if (keys(%title2page) == 1 && /^\h*\\list/) {
+        $intoc++;
+    } elsif (!$intoc) {
+        if (/^\h*\\page\h+(\H+)/) {
            $curpage = $1;
        } elsif (/^\h*\\title\h+(.+)$/) {
            if ($curpage eq "") {
@@ -26,7 +26,7 @@ while (<FILE>) {
        }
    } else {
        if (/^\h*\\endlist/) {
-            $intoc = 0;
+            $intoc--;
        } elsif (/^\h*\\o\h+\\l{(.*)}$/) {
            push @toc, $1;
        }