[Po4a-commits] "po4a/lib/Locale/Po4a Text.pm,1.4,1.5"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv16060/lib/Locale/Po4a

Modified Files:
	Text.pm 
Log Message:
Add support for underlined text.  Translate a title together with the
underlining, in non wrapped mode.  Underlines are lines consisting in only
'=', '-' or '_'.


Index: Text.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Text.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- Text.pm	9 Oct 2006 18:54:56 -0000	1.4
+++ Text.pm	9 Oct 2006 19:08:52 -0000	1.5
@@ -82,6 +82,14 @@
             $paragraph="";
             $wrapped_mode = 1;
             $self->pushline($line."\n");
+        } elsif (   $line =~ /^=*$/
+                 or $line =~ /^_*$/
+                 or $line =~ /^-*$/) {
+            $wrapped_mode = 0;
+            $paragraph .= $line."\n";
+            do_paragraph($self,$paragraph,$wrapped_mode);
+            $paragraph="";
+            $wrapped_mode = 1;
         } else {
             if ($line =~ /^\s/) {
                 # A line starting by a space indicates a non-wrap