update tsstat.pl

This commit is contained in:
Juergen E. Fischer 2012-02-13 03:36:55 +01:00
parent 38113fb92c
commit 8a9cb76868

View File

@ -6,7 +6,7 @@ use Locale::Country;
my @lang;
print "{| border='1' \n |Language||Count||Translated||Translation finished||Translation unfinished||Untranslated||Percentage \n |- \n";
print "|Language|Count|Translated|Translation finished|Translation unfinished|Untranslated|Percentage|\n";
for my $i (<i18n/qgis_*.ts>) {
my ($langcode) = $i =~ /i18n\/qgis_(.*).ts/;
@ -44,6 +44,5 @@ for my $i (<i18n/qgis_*.ts>) {
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", "|-\n";
print "|", $l->{name}, "|", join("|", $l->{n}, $l->{translations}, $l->{finished}, $l->{unfinished}, $l->{untranslated}, sprintf("%.1f", $l->{percentage}) ), "|\n";
}
print "|}","\n";