[Po4a-commits] "po4a/lib/Locale/Po4a Sgml.pm,1.112,1.113"

[Nicolas FRANCOIS]

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

Modified Files:
	Sgml.pm 
Log Message:
Remove the tags from the default categories when they are defined by the user.


Index: Sgml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Sgml.pm,v
retrieving revision 1.112
retrieving revision 1.113
diff -u -d -r1.112 -r1.113
--- Sgml.pm	7 Oct 2006 20:55:25 -0000	1.112
+++ Sgml.pm	21 Oct 2006 23:58:36 -0000	1.113
@@ -329,6 +329,13 @@
 
     foreach (qw(translate empty section verbatim ignore attributes qualify)) {
 	$self->{SGML}->{k}{$_} = $self->{options}{$_} ? $self->{options}{$_}.' ' : '';
+        # Remove the default behavior for the tags defined with the
+        # options.
+        foreach my $k (keys %kinds) {
+            foreach my $t (split(" ", $self->{SGML}->{k}{$_})) {
+                $kinds{$k} =~ s/\b$t\b//;
+            }
+        }
     }
 
     foreach (keys %kinds) {