[LON-CAPA-cvs] cvs: loncom /auth lonlogin.pm

[bisitz]

bisitz		Tue Jul  8 13:56:21 2008 EDT

  Modified files:              
    /loncom/auth	lonlogin.pm 
  Log:
  Added warning message to login screen which is displayed, if user has no (java)script activated in the web browser.
  
  
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.103 loncom/auth/lonlogin.pm:1.104
--- loncom/auth/lonlogin.pm:1.103	Fri May 30 15:31:20 2008
+++ loncom/auth/lonlogin.pm	Tue Jul  8 13:56:21 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.103 2008/05/30 19:31:20 bisitz Exp $
+# $Id: lonlogin.pm,v 1.104 2008/07/08 17:56:21 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -507,6 +507,10 @@
         $logintitle = '<td bgcolor="'.$sidebg.'" colspan="2"><img src="'.$login.'" alt="'.
                       &mt('User Authentication').'" /></td>';
     }
+    my $noscript_warning='<td colspan="2" bgcolor="'.$mainbg.'">'
+                        .'<noscript><div class="LC_warning"><font size="-1">'
+                        .&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.')
+                        .'</font></div></noscript></td>';
     $r->print(<<ENDLOGIN);
      <input type="hidden" name="lextkey" value="$lextkey">
      <input type="hidden" name="uextkey" value="$uextkey">
@@ -514,6 +518,7 @@
      <!-- Start the sub-table for text and input alignment -->
      <table border=0 cellspacing=0 cellpadding=0>
       <tr>$logintitle</tr>
+      <tr>$noscript_warning</tr>
       <tr>
        <td bgcolor="$mainbg"><br /><font size=-1><b>&nbsp;&nbsp;&nbsp;<label for="uname">$lt{'un'}</label>:</b></font></td>
        <td bgcolor="$mainbg"><br /><input type="text" name="uname" size="10" value="$authusername" /></td>