[Debian-l10n-commits] r1799 - in /dl10n/trunk: Changelog dl10n-pts

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

Author: nekral-guest
Date: Wed Jul 22 11:52:17 2009
New Revision: 1799

URL: http://svn.debian.org/wsvn/?sc=1&rev=1799
Log:
	* dl10n-pts: Added boolean to indicate if a todo message should be
	displayed on the PTS. Only shadow currently.

Modified:
    dl10n/trunk/Changelog
    dl10n/trunk/dl10n-pts

Modified: dl10n/trunk/Changelog
URL: http://svn.debian.org/wsvn/dl10n/trunk/Changelog?rev=1799&op=diff
==============================================================================
--- dl10n/trunk/Changelog (original)
+++ dl10n/trunk/Changelog Wed Jul 22 11:52:17 2009
@@ -1,3 +1,8 @@
+2009-07-22  Nicolas François  <nicolas.francois at centraliens.net>
+
+	* dl10n-pts: Added boolean to indicate if a todo message should be
+	displayed on the PTS. Only shadow currently.
+
 2009-07-22  Nicolas François  <nicolas.francois at centraliens.net>
 
 	* dl10n-pts: Fixed URL. i18n is still debian.net.

Modified: dl10n/trunk/dl10n-pts
URL: http://svn.debian.org/wsvn/dl10n/trunk/dl10n-pts?rev=1799&op=diff
==============================================================================
--- dl10n/trunk/dl10n-pts (original)
+++ dl10n/trunk/dl10n-pts Wed Jul 22 11:52:17 2009
@@ -180,12 +180,13 @@
 open PKGLIST, ">$GENDIR/pkglist"
     or die "Cannot open $GENDIR/pkglist: $!";
 print PKGLIST <<EOF;
-# <package> <version> (<comma sperated scores>) <link>
+# <package> <version> (<comma sperated scores>) <link> <todo>
 # The scores are:
 #   - debian translations: po-debconf and po4a translation
 #   - non debian translations: other PO files.
 # Scores are currently the percentage of translated strings in the existing PO
 # files.
+# <todo> indicates if some work is needed on the translations
 EOF
 foreach my $pkg (keys %global_score) {
     my $pkgstatus = pkg_letter($pkg)."/$pkg.html";
@@ -193,6 +194,8 @@
                      and ($global_score{$pkg}{debian} ne "0t0f0u"))
                  or (    (defined $global_score{$pkg}{nondebian})
                      and ($global_score{$pkg}{nondebian} ne "0t0f0u")));
+    my $todo = 0;
+    $todo = 1 if $pkg eq "shadow";
     print PKGLIST "$pkg ".
                   $data->version($pkg).
                   " (".
@@ -201,6 +204,8 @@
                   output_percent($global_score{$pkg}{nondebian}).
                   ") ".
                   "http://i18n.debian.net/l10n-pkg-status/$pkgstatus".
+                  " ".
+                  $todo.
                   "\n";
     $pkgstatus = "$GENDIR/".$pkgstatus;
     unless (-d "$GENDIR/".pkg_letter($pkg)) {