bugfix

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@1859 48e7efb5-ca39-0410-a469-dd3cf9ba447f

diff --git a/tools/doxygen/toc_create.pl b/tools/doxygen/toc_create.pl
index 52fbd09..a4dba12 100755 (executable)
--- a/tools/doxygen/toc_create.pl
+++ b/tools/doxygen/toc_create.pl
@@ -43,21 +43,24 @@ print OUTPUT "<!-- Automatically generated table of contents --!>\n";
 foreach $entry (@toc) {
     ($level,$label,$name) = @$entry;
 
 foreach $entry (@toc) {
     ($level,$label,$name) = @$entry;
 

-    if($current_level<$level) {
+    while($current_level<$level) {

        print OUTPUT "<ol type=\"1\">\n";
        print OUTPUT "<ol type=\"1\">\n";

+       $current_level++;

     }
     }

-    if($current_level>$level) {
+    while($current_level>$level) {

        print OUTPUT "</ol>\n";
        print OUTPUT "</ol>\n";

+       $current_level--;

     }
     }

-    $current_level = $level;

     foreach (1..$current_level) {
        print OUTPUT "\t";
     }
     print OUTPUT "<li> <a href=\"#$label\">$name</a>\n";
 }
 
     foreach (1..$current_level) {
        print OUTPUT "\t";
     }
     print OUTPUT "<li> <a href=\"#$label\">$name</a>\n";
 }
 

-$current_level=-1;
-print OUTPUT "</ol>\n";
+while($current_level>-1) {
+    print OUTPUT "</ol>\n";
+    $current_level--;
+}

 print OUTPUT "<!-- End of automatically generated table of contents --!>\n";
 
 
 print OUTPUT "<!-- End of automatically generated table of contents --!>\n";