[otrs-cvs] otrs/bin otrs.CreateTranslationFile.pl,1.39,1.40

Comments:
Update of /home/cvs/otrs/bin
In directory lancelot:/tmp/cvs-serv10276/bin

Modified Files:
	otrs.CreateTranslationFile.pl 
Log Message:
Improved language stats output. Synchronized translation files.
Fixed es_CO.pm file structure.

Author: mg

Index: otrs.CreateTranslationFile.pl
===================================================================
RCS file: /home/cvs/otrs/bin/otrs.CreateTranslationFile.pl,v
retrieving revision 1.39
retrieving revision 1.40
diff -2 -u -d -r1.39 -r1.40
--- otrs.CreateTranslationFile.pl	22 Jan 2013 10:14:09 -0000	1.39
+++ otrs.CreateTranslationFile.pl	31 Jan 2013 13:12:28 -0000	1.40
@@ -138,11 +138,21 @@
     }
 
-    print "\n\nTranslation statistics:\n";
+    my %Summary;
     for my $Language ( sort keys %Stats ) {
-        my $Strings = scalar keys %{ $Stats{$Language} };
-        my $Translations = scalar grep {$_} values %{ $Stats{$Language} };
+        $Summary{$Language}->{Translated} = scalar grep {$_} values %{ $Stats{$Language} };
+        $Summary{$Language}->{Total} = scalar values %{ $Stats{$Language} };
+    }
+
+    print "\n\nTranslation statistics:\n";
+    for my $Language (
+        sort { $Summary{$b}->{Translated} <=> $Summary{$a}->{Translated} }
+        keys %Stats
+        )
+    {
+        my $Strings      = $Summary{$Language}->{Total};
+        my $Translations = $Summary{$Language}->{Translated};
         print "\t" . sprintf( "%7s", $Language ) . ": ";
         print sprintf( "%02d", int( ( $Translations / $Strings ) * 100 ) );
-        print "% ($Translations/$Strings)\n";
+        print sprintf( "%% (%4d/%4d)\n", $Translations, $Strings );
 
     }
---------------------------------------------------------------------
OTRS mailing list: cvs-log - Webpage: http://otrs.org/
Archive: http://lists.otrs.org/pipermail/cvs-log
To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/cvs-log