[Po4a-commits] "po4a/lib/Locale/Po4a Xml.pm,1.66,1.67"
Nicolas FRANCOIS
nekral-guest at alioth.debian.org
Sun Mar 2 00:49:04 UTC 2008
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv21282/lib/Locale/Po4a
Modified Files:
Xml.pm
Log Message:
iUse get_translate_options to check if a tag should be inlined.
Index: Xml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Xml.pm,v
retrieving revision 1.66
retrieving revision 1.67
diff -u -d -r1.66 -r1.67
--- Xml.pm 2 Mar 2008 00:46:56 -0000 1.66
+++ Xml.pm 2 Mar 2008 00:49:02 -0000 1.67
@@ -681,8 +681,8 @@
sub tag_break_close {
my ($self, at tag)=@_;
- if ($self->tag_in_list($self->get_path."<".
- $self->get_tag_name(@tag).">",@{$self->{inline}})) {
+ my $struct = $self->get_path."<".$self->get_tag_name(@tag).">";
+ if ($self->get_translate_options($struct) =~ m/i/) {
return 0;
} else {
return 1;
@@ -721,8 +721,8 @@
sub tag_break_alone {
my ($self, at tag)=@_;
- if ($self->tag_in_list($self->get_path."<".
- $self->get_tag_name(@tag).">",@{$self->{inline}})) {
+ my $struct = $self->get_path."<".$self->get_tag_name(@tag).">";
+ if ($self->get_translate_options($struct) =~ m/i/) {
return 0;
} else {
return 1;
@@ -742,8 +742,8 @@
sub tag_break_open {
my ($self, at tag)=@_;
- if ($self->tag_in_list($self->get_path."<".
- $self->get_tag_name(@tag).">",@{$self->{inline}})) {
+ my $struct = $self->get_path."<".$self->get_tag_name(@tag).">";
+ if ($self->get_translate_options($struct) =~ m/i/) {
return 0;
} else {
return 1;
More information about the Po4a-commits
mailing list