[Po4a-commits] "po4a po4a,1.47,1.48"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a
In directory haydn:/tmp/cvs-serv14644

Modified Files:
	po4a 
Log Message:
Fix the --quiet option.


Index: po4a
===================================================================
RCS file: /cvsroot/po4a/po4a/po4a,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- po4a	27 Nov 2005 16:17:20 -0000	1.47
+++ po4a	8 Dec 2005 21:04:27 -0000	1.48
@@ -358,8 +358,8 @@
     ) or pod2usage();
 
     $opts{"verbose"} = scalar @verbose;
-    $opts{"verbose"} =  1 if $opts{"debug"};
-    $opts{"verbose"} = -1 if $opts{"quiet"};
+    $opts{"verbose"} = 0 if $opts{"quiet"};
+    $opts{"verbose"} ||= 1 if $opts{"debug"};
 
     # options to transmit to the modules
     %{$opts{"options"}} = (
@@ -620,7 +620,8 @@
         $potfile->write_if_needed($pot_filename);
     }
 
-    print wrap_msg(gettext(" (%d entries)"), $potfile->count_entries());
+    print wrap_msg(gettext(" (%d entries)"), $potfile->count_entries())
+        unless ($po4a_opts{"quiet"});
 } else {
     $potfile->read($pot_filename);
 }
@@ -651,10 +652,10 @@
 	    foreach my $master (sort keys %document) {
 		my $pot=Locale::Po4a::Po->new();
 		my $po=Locale::Po4a::Po->new();
-		print "  $master:";
-		print "(pot)";
+		print "  $master:" unless ($po4a_opts{"quiet"});
+		print "(pot)" unless ($po4a_opts{"quiet"});
 		$pot=$potfile->filter("(reference=$master:)");
-		print "(po) ";
+		print "(po) " unless ($po4a_opts{"quiet"});
 		$po=$poorig->filter("(reference=$master:)");
 		unlink($pot_filename) if -e $pot_filename;
 		unlink($po_filename) if -e $po_filename;