--- HTML.pm.orig 2004-08-01 02:41:45.000000000 -0700
+++ HTML.pm 2004-08-01 02:46:12.000000000 -0700
@@ -1183,7 +1183,9 @@
}
$pre->push_content("\n");
- if($self->{_current_head1_title} eq 'NAME' && !$self->description()) {
+ if(( $self->{_current_head1_title} eq 'NAME'
+ ||$self->{_current_head1_title} eq 'NOMBRE'
+ ||$self->{_current_head1_title} eq 'NOM') && !$self->description()) {
# save the description for further use in TOC
my $str = $paragraph;
$str =~ s/^[\n\s]+//;
@@ -1226,7 +1228,9 @@
if(!$self->{_begin}) {
my @text = $self->interpolate($paragraph, $line_num);
# remember first paragraph in NAME section
- if($self->{_current_head1_title} eq 'NAME' && $paragraph &&
+ if(( $self->{_current_head1_title} eq 'NAME'
+ ||$self->{_current_head1_title} eq 'NOMBRE'
+ ||$self->{_current_head1_title} eq 'NOM') && $paragraph &&
!$self->description()) {
# save the description for further use in TOC
$self->description([ HTML::Element->clone_list(@text) ]);