[Po4a-commits] "po4a/lib/Locale/Po4a Text.pm,1.22,1.23"

[Nicolas FRANCOIS]

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

Modified Files:
	Text.pm 
Log Message:
	* lib/Locale/Po4a/Text.pm, t/data-30/Paragraphs.po: Added support
	for [icons=...] and [icon=...].
	* t/data-30/Paragraphs.po, t/data-30/Paragraphs.out,
	t/data-30/Paragraphs.asciidoc: Added test for [icon="..."].


Index: Text.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Text.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- Text.pm	13 Oct 2008 21:32:39 -0000	1.22
+++ Text.pm	24 Oct 2008 21:46:51 -0000	1.23
@@ -332,6 +332,32 @@
             undef $self->{bullet};
             undef $self->{indent};
         } elsif ($asciidoc and not defined $self->{verbatim} and
+                 ($line =~ m/^\[icon="(.*)"\]$/)) {
+            my $arg = $1;
+            do_paragraph($self,$paragraph,$wrapped_mode);
+            $paragraph="";
+            my $t = $self->translate($arg,
+                                     $self->{ref},
+                                     "icon",
+                                     "wrap" => 0);
+            $self->pushline("[icon=\"$t\"]\n");
+            $wrapped_mode = 1;
+            undef $self->{bullet};
+            undef $self->{indent};
+        } elsif ($asciidoc and not defined $self->{verbatim} and
+                 ($line =~ m/^\[icons=None, +caption="(.*)"\]$/)) {
+            my $arg = $1;
+            do_paragraph($self,$paragraph,$wrapped_mode);
+            $paragraph="";
+            my $t = $self->translate($arg,
+                                     $self->{ref},
+                                     "caption",
+                                     "wrap" => 0);
+            $self->pushline("[icons=None, caption=\"$t\"]\n");
+            $wrapped_mode = 1;
+            undef $self->{bullet};
+            undef $self->{indent};
+        } elsif ($asciidoc and not defined $self->{verbatim} and
                  ($line =~ m/^(\s*)(\S.*)((?:::|;;)\s+)(.*)$/)) {
             my $indent = $1;
             my $label = $2;