[QGIS Commit] r10347 - trunk/qgis/scripts

[svn_qgis at osgeo.org]

Author: macho
Date: 2009-03-20 18:21:10 -0400 (Fri, 20 Mar 2009)
New Revision: 10347

Modified:
   trunk/qgis/scripts/tsstat.pl
Log:
script update


Modified: trunk/qgis/scripts/tsstat.pl
===================================================================
--- trunk/qgis/scripts/tsstat.pl	2009-03-20 22:15:18 UTC (rev 10346)
+++ trunk/qgis/scripts/tsstat.pl	2009-03-20 22:21:10 UTC (rev 10347)
@@ -4,6 +4,8 @@
 use Locale::Language;
 use Locale::Country;
 
+my @lang;
+
 print "||'''Language'''||'''Count'''||'''Translated'''||'''Translation finished'''||'''Translated unfinished'''||'''Untranslated'''||'''Percentage'''||\n";
 
 for my $i (<i18n/qgis_*.ts>) {
@@ -37,5 +39,10 @@
 
         my $n = $translations+$untranslated;
 
-        print "||'''$name'''||$n||$translations||$finished||$unfinished||$untranslated||" . sprintf("%.1f%", ($n-$untranslated)/$n*100) . "||\n";
+        push @lang, { name=>$name, n=>$n, translations=>$translations, finished=>$finished, unfinished=>$unfinished, untranslated=>$untranslated, percentage=>($n-$untranslated)/$n*100 };
 }
+
+
+for my $l (sort { $b->{percentage} <=> $a->{percentage} } @lang) {
+        print "||'''", $l->{name}, "'''||", join("||", $l->{n}, $l->{translations}, $l->{finished}, $l->{unfinished}, $l->{untranslated}, sprintf("%.1f", $l->{percentage}) ), "||\n";
+}