texinfo/tp/Texinfo/Convert HTML.pm

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        11/05/09 23:19:49

Modified files:
        tp/Texinfo/Convert: HTML.pm 

Log message:
        No @top in table of contents.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Convert/HTML.pm?cvsroot=texinfo&r1=1.58&r2=1.59

Patches:
Index: HTML.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Convert/HTML.pm,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -b -r1.58 -r1.59
--- HTML.pm     9 May 2011 19:43:40 -0000       1.58
+++ HTML.pm     9 May 2011 23:19:49 -0000       1.59
@@ -3912,6 +3912,7 @@
     my $section = $top_section;
  SECTION:
     while ($section) {# and $section ne $section_root) {
+      if ($section->{'cmdname'} ne 'top') {
       my $text = $self->command_text($section);
       # FIXME OVERVIEW_LINK_TO_TOC?
       my $href = $self->command_href($section, $filename);
@@ -3919,6 +3920,7 @@
       $result .= (' ' x (2*($section->{'level'} - $root_level))) 
         . "<li><a name=\"$toc_id\" href=\"$href\">$text</a>"
          if ($text ne '');
+      }
       if ($section->{'section_childs'}
           and ($contents or $section->{'level'} < $root_level+1)) {
         $result .= "\n". ' ' x (2*($section->{'level'} - $root_level))