script update

git-svn-id: http://svn.osgeo.org/qgis/trunk/qgis@10347 c8812cc2-4d05-0410-92ff-de0c093fc19c
qgis · Mar 20, 2009 · dc29466 · dc29466
1 parent 0083d25
commit dc29466
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/scripts/tsstat.pl b/scripts/tsstat.pl
@@ -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";
 }