texinfo/tp/Texinfo/Convert HTML.pm

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        11/04/30 15:46:59

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

Log message:
        Handle whole menu comment.

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

Patches:
Index: HTML.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Convert/HTML.pm,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -b -r1.40 -r1.41
--- HTML.pm     30 Apr 2011 13:06:42 -0000      1.40
+++ HTML.pm     30 Apr 2011 15:46:59 -0000      1.41
@@ -1747,7 +1747,7 @@
   return $text;
 }
 
-sub _convert_menu_entry($$$)
+sub _convert_menu_entry_type($$$)
 {
   my $self = shift;
   my $type = shift;
@@ -1840,7 +1840,21 @@
   return "<tr><td align=\"left\" 
valign=\"top\">$name$MENU_ENTRY_COLON</td><td>&nbsp;&nbsp;</td><td 
align=\"left\" valign=\"top\"> $description</td></tr>\n";
 }
 
-$default_types_conversion{'menu_entry'} = \&_convert_menu_entry;
+$default_types_conversion{'menu_entry'} = \&_convert_menu_entry_type;
+
+sub _convert_menu_comment_type($$$$)
+{
+  my $self = shift;
+  my $type = shift;
+  my $command = shift;
+  my $content = shift;
+
+  return "<tr><th colspan=\"3\" align=\"left\" valign=\"top\">".$content
+       ."</th></tr>";
+}
+
+$default_types_conversion{'menu_comment'} = \&_convert_menu_comment_type;
+
 
 # FIXME not sure that there is contents.  Not sure that it matters either.
 sub _convert_def_line_type($$$$)