[Po4a-commits] "po4a/lib/Locale/Po4a Xml.pm, 1.78, 1.79 Xhtml.pm, 1.12, 1.13"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv25947/lib/Locale/Po4a

Modified Files:
	Xml.pm Xhtml.pm 
Log Message:
	* lib/Locale/Po4a/Xhtml.pm: Added support for <br> tags
	(untranslated, introduce a break).
	* lib/Locale/Po4a/Xml.pm: Do not translate the leading blank
	lines.


Index: Xml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Xml.pm,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -d -r1.78 -r1.79
--- Xml.pm	2 Nov 2008 14:44:23 -0000	1.78
+++ Xml.pm	2 Nov 2008 17:22:45 -0000	1.79
@@ -1451,6 +1451,13 @@
 	my @paragraph = @_;
 	$translate = $self->get_translate_options($self->get_path);
 
+	while (    (scalar @paragraph)
+	       and ($paragraph[0] =~ m/^\s*\n/s)) {
+		$self->pushline($paragraph[0]);
+		shift @paragraph;
+		shift @paragraph;
+	}
+
 	my $comments;
 	while (@comments) {
 		my ($comment,$eoc);

Index: Xhtml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Xhtml.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- Xhtml.pm	2 Nov 2008 14:45:55 -0000	1.12
+++ Xhtml.pm	2 Nov 2008 17:22:46 -0000	1.13
@@ -169,6 +169,9 @@
         $self->{options}{'_default_translated'}.='
                 W<pre>
         ';
+        $self->{options}{'_default_untranslated'}.='
+                <br>
+        ';
 
         $self->{options}{'_default_inline'}.='
                 <a>