[Po4a-devel][CVS] po4a html-build-upload.sh,NONE,1.1

[Martin Quinson]

--KlAEzMkarCnErv5Q
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline

> On Fri, Jul 30, 2004 at 01:56:46AM +0200, Jordi Vilalta wrote:
> > 
> > The biggest issue I found with mpod2html is that it searches the modules' 
> > description in sections that begin with "NAME", but in translated 
> > documents it doesn't exist, and then it says those modules have no 
> > description. Everything else is fine.

Never let a perl script stand on your way ;)

The hack is crude, but I lack the time to implement a real option...

Bye, Mt.

-- 
Testing can only prove the presence of bugs. 
    --- Dijkstra

--KlAEzMkarCnErv5Q
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename="translated-NAME.diff"

--- 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) ]);

--KlAEzMkarCnErv5Q--