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

[grisu at users.alioth.debian.org]

Author: grisu
Date: Fri Aug 15 21:55:17 2008
New Revision: 1218

URL: http://svn.debian.org/wsvn/?sc=1&rev=1218
Log:
'force' to login, give hint on the login-screen, show owner and reviewer on the reviewer-page

Modified:
    ddtss/trunk/ddtss-cgi

Modified: ddtss/trunk/ddtss-cgi
URL: http://svn.debian.org/wsvn/ddtss/trunk/ddtss-cgi?rev=1218&op=diff
==============================================================================
--- ddtss/trunk/ddtss-cgi (original)
+++ ddtss/trunk/ddtss-cgi Fri Aug 15 21:55:17 2008
@@ -257,6 +257,12 @@
 
   print $q->h1("DDTSS for $lang");
   print $q->p("<div style='color: #ff0000'>The DDTSS has moved to a new system. Please report any issues to the <a href='mailto:debian-i18n\@lists.debian.org'>mailing list</a></div>");
+  if( not $logged_in ) 
+  { 
+    print $q->p($q->b("Please login... Only with a login, you can use all features! Go to " . 
+             $q->a({-href => "$realself/login"}, "Login")
+	     ));
+  };
   print $q->p("The DDTSS is a queue-based system. New translations are automatically fetched only when there are only a few pending translation. Translations will only be sent off after they have received a certain amount of review. New translations will be fetched in priority order, so the goal is to get your priority numbers as low as possible!");
   print $q->p("The rate of getting new descriptions to translate is not automatic. If you find you keep running low on things to translate, ask me to increase it.");
   print $q->p( $q->a({-href => 'http://www.debian.org/international/l10n/ddtp#rules'}, "Common translation rules") );
@@ -684,6 +690,8 @@
     }
   } 
 
+  $trailer .= $q->br("Note: the owner is: ".$q->b("$owner").", reviewer are: ".$q->b("$reviewers")) ;
+
   my $comment = "";
   $db->get("$lang/packages/$package/comment", $comment);
   DDTSS_Close($db);
@@ -1408,6 +1416,7 @@
         
   print $q->p("A login on the DDTSS is only used so you can keep the status
               of what you've reviewed between machines."),
+	$q->p("(To create a account go to " . $q->a({-href => "$realself/createlogin"}, "Create Login") .  ")"),
         $q->start_form( -method => 'post' ),
         $q->start_table( -id => 'login' ),
         $q->TR( $q->td( $q->label( { -for => 'alias' }, "Alias:" ) ),