[Po4a-commits] "po4a/lib/Locale/Po4a Xml.pm,1.90,1.91"

[Nicolas FRANCOIS]

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

Modified Files:
	Xml.pm 
Log Message:
	* NEWS, lib/Locale/Po4a/Xml.pm: The tags and tagsonly options are
	deprecated. Use the translated/untranslated and
	break/inline/placeholder options instead.


Index: Xml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Xml.pm,v
retrieving revision 1.90
retrieving revision 1.91
diff -u -d -r1.90 -r1.91
--- Xml.pm	22 Feb 2009 10:04:45 -0000	1.90
+++ Xml.pm	22 Feb 2009 10:08:49 -0000	1.91
@@ -1,6 +1,4 @@
 #!/usr/bin/perl
-#TODO:
-#Warn if tags / tagsonly / inline is used
 
 # Po4a::Xml.pm 
 # 
@@ -1553,11 +1551,22 @@
 	$self->{nodefault} = \%list_nodefault;
 
 	$self->{options}{'tags'} =~ /^\s*(.*)\s*$/s;
+	if (length $self->{options}{'tags'}) {
+		warn wrap_mod("po4a::xml",
+		             dgettext("po4a",
+		                      "The '%s' option is deprecated. Please use the translated/untranslated and/or break/inline/placeholder categories."), "tags");
+	}
 	foreach (split(/\s+/s,$1)) {
 		$_ =~ m/^(.*?)(<.*)$/;
 		$self->{tags}->{$2} = $1 || "";
 	}
 
+	if ($self->{options}{'tagsonly'}) {
+		warn wrap_mod("po4a::xml",
+		             dgettext("po4a",
+		                      "The '%s' option is deprecated. Please use the translated/untranslated and/or break/inline/placeholder categories."), "tagsonly");
+	}
+
 	$self->{options}{'break'} =~ /^\s*(.*)\s*$/s;
 	foreach my $tag (split(/\s+/s,$1)) {
 		$tag =~ m/^(.*?)(<.*)$/;