[Debian-l10n-commits] r2539 - in /dl10n/trunk: Changelog dl10n-txt

[nekral-guest at users.alioth.debian.org]

Author: nekral-guest
Date: Sun Feb 20 16:32:47 2011
New Revision: 2539

URL: http://svn.debian.org/wsvn/?sc=1&rev=2539
Log:
	* dl10n-txt: When there are reports for multiple languages,
	provide a footer only at the end.

Modified:
    dl10n/trunk/Changelog
    dl10n/trunk/dl10n-txt

Modified: dl10n/trunk/Changelog
URL: http://svn.debian.org/wsvn/dl10n/trunk/Changelog?rev=2539&op=diff
==============================================================================
--- dl10n/trunk/Changelog (original)
+++ dl10n/trunk/Changelog Sun Feb 20 16:32:47 2011
@@ -1,3 +1,8 @@
+2011-02-19  Nicolas François  <nicolas.francois at centraliens.net>
+
+	* dl10n-txt: When there are reports for multiple languages,
+	provide a footer only at the end.
+
 2011-02-19  Nicolas François  <nicolas.francois at centraliens.net>
 
 	* dl10n-html: Added Czech support.

Modified: dl10n/trunk/dl10n-txt
URL: http://svn.debian.org/wsvn/dl10n/trunk/dl10n-txt?rev=2539&op=diff
==============================================================================
--- dl10n/trunk/dl10n-txt (original)
+++ dl10n/trunk/dl10n-txt Sun Feb 20 16:32:47 2011
@@ -139,9 +139,9 @@
 }
 
 my $data = Debian::L10n::Db->new();
-print STDERR "Read the database...";
+print "Read the database...";
 $data->read($DB_FILE);
-print STDERR " done.\n";
+print " done.\n";
 
 my %ignored_pkgs = ();
 if ($IGNORE_FILE) {
@@ -207,6 +207,7 @@
 die $@ if $@;
 
 map {
+$-=0;
     my $lang=$_;
     my $statusDBname = "$STATUS_FILE";
 #    print STDERR "Handle $lang\n" if (scalar @todo_lang > 1);
@@ -400,17 +401,20 @@
 	print "_______|" if $parts{'man'};
 	print "\n\n\n";
 
-	print "When there is some ---, that means that the material exists, but is not \n".
+    }
+} @todo_lang;
+
+if (not $show_total) {
+    print "When there is some ---, that means that the material exists, but is not \n".
 	  "translated to this language and that some issue (in pot file or DB) prevent to find the amount of string.\n\n";
-	print "Significance of the 'details' columns:\n".
+    print "Significance of the 'details' columns:\n".
 	  "   [# translated strings]/[# fuzzy translation]/[# untranslated strings]\n\n";
-	if ($parts{'man'}) {
-	    print "Significance of the 'man' column: [# french pages]/[# english pages]\n";
-	    print "WARNING: 'french' is hardcoded in that script for now.\n";
-	    print "WARNING: do not trust the stats about man for now.\n";
-	}
-    }
-} @todo_lang;
+    if ($parts{'man'}) {
+	print "Significance of the 'man' column: [# french pages]/[# english pages]\n";
+	print "WARNING: 'french' is hardcoded in that script for now.\n";
+	print "WARNING: do not trust the stats about man for now.\n";
+    }
+}
 
 
 sub add_stat {