[Debian-l10n-commits] r1224 - /ddtss/trunk/ddtss-cgi

[grisu at users.alioth.debian.org]

Author: grisu
Date: Sun Aug 24 13:47:57 2008
New Revision: 1224

URL: http://svn.debian.org/wsvn/?sc=1&rev=1224
Log:
add translation/review counter

Modified:
    ddtss/trunk/ddtss-cgi

Modified: ddtss/trunk/ddtss-cgi
URL: http://svn.debian.org/wsvn/ddtss/trunk/ddtss-cgi?rev=1224&op=diff
==============================================================================
--- ddtss/trunk/ddtss-cgi (original)
+++ ddtss/trunk/ddtss-cgi Sun Aug 24 13:47:57 2008
@@ -411,6 +411,9 @@
     $msg = submit_translation( $db, $package, $key, $q->param("short"), $q->param("long") );
     if( not defined $msg )
     {
+      my $count=0;
+      $db->get("aliases/$user/counttranslations", $count );
+      $db->put("aliases/$user/counttranslations", ++$count );
       DDTSS_Unlock( $db, "$lang/packages/$package", $user );
       DDTSS_Close($db);
 #      print STDERR "line 383\n";
@@ -625,12 +628,18 @@
         if( scalar( grep { $_ eq $user } @a ) == 0 )
         {
           $db->put("$lang/packages/$package/reviewers", $reviewers.",".$user);
+          my $count=0;
+          $db->get("aliases/$user/countreviews", $count );
+          $db->put("aliases/$user/countreviews", ++$count );
           DDTSS_Log( $db, "$lang/packages/$package/log", time()." reviewed by $user" );
         }
       }
       else
       {
         $db->put("$lang/packages/$package/reviewers",$user);
+        my $count=0;
+        $db->get("aliases/$user/countreviews", $count );
+        $db->put("aliases/$user/countreviews", ++$count );
         DDTSS_Log( $db, "$lang/packages/$package/log", time()." reviewed by $user" );
       }
     }