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

[www]

www		Wed Feb 19 09:05:28 2003 EDT

  Modified files:              
    /loncom/auth	lonlogin.pm 
  Log:
  Make text-based login screen more accessible. Add "remember" checkbox, which
  still has to be picked up in lonauth.pm.
  
  
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.34 loncom/auth/lonlogin.pm:1.35
--- loncom/auth/lonlogin.pm:1.34	Tue Feb 18 16:11:17 2003
+++ loncom/auth/lonlogin.pm	Wed Feb 19 09:05:28 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.34 2003/02/18 21:11:17 www Exp $
+# $Id: lonlogin.pm,v 1.35 2003/02/19 14:05:28 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -170,13 +170,19 @@
     }
 
 # ----------------------------------------------------------- Front page design
-    my $pgbg=&Apache::loncommon::designparm('login.pgbg');
-    my $font=&Apache::loncommon::designparm('login.font');
-    my $link=&Apache::loncommon::designparm('login.link');
-    my $vlink=&Apache::loncommon::designparm('login.vlink');
+    my $pgbg=
+      ($fullgraph?&Apache::loncommon::designparm('login.pgbg'):'#FFFFFF');
+    my $font=
+      ($fullgraph?&Apache::loncommon::designparm('login.font'):'#000000');
+    my $link=
+      ($fullgraph?&Apache::loncommon::designparm('login.link'):'#0000FF');
+    my $vlink=
+      ($fullgraph?&Apache::loncommon::designparm('login.vlink'):'#0000FF');
     my $alink=&Apache::loncommon::designparm('login.alink');
-    my $mainbg=&Apache::loncommon::designparm('login.mainbg');
-    my $sidebg=&Apache::loncommon::designparm('login.sidebg');
+    my $mainbg=
+      ($fullgraph?&Apache::loncommon::designparm('login.mainbg'):'#FFFFFF');
+    my $sidebg=
+      ($fullgraph?&Apache::loncommon::designparm('login.sidebg'):'#FFFFFF');
     my $logo=&Apache::loncommon::designparm('login.logo');
     my $img=&Apache::loncommon::designparm('login.img');
 
@@ -211,6 +217,9 @@
         this.document.server.elements.blackwhite.value
        =this.document.client.elements.blackwhite.value;
 
+        this.document.server.elements.remember.value
+       =this.document.client.elements.remember.value;
+
         uextkey=this.document.client.elements.uextkey.value;
         lextkey=this.document.client.elements.lextkey.value;
         initkeys();
@@ -242,6 +251,7 @@
    <input type="hidden" name="embedsuppress"  value="" />
    <input type="hidden" name="fontenhance"  value="" />
    <input type="hidden" name="blackwhite"  value="" />
+   <input type="hidden" name="remember"  value="" />
   </form>
 ENDSERVERFORM
     if ($fullgraph) { $r->print(<<ENDTOP);
@@ -299,20 +309,21 @@
    <td align="center" valign="middle" bgcolor="$sidebg">
 ENDTOP
 } else {
-    $r->print('<font color="#FFFFFF"><h1>The Learning<i>Online</i> Network with CAPA</h1><h1>Text-based Interface Login</h1></font>');
+    $r->print('<h1>The Learning<i>Online</i> Network with CAPA</h1><h2>Text-based Interface Login</h2>');
 }
     $r->print('<form name="client" onsubmit="return(send())">');
     unless ($fullgraph) {
         $r->print(<<ENDACCESSOPTIONS);
-<table bgcolor="#AAAAAA" cellspacing="3" cellpadding="3">
-<tr><th>Select Accessibility Options</th></tr>
-<tr>
-<td bgcolor="#FFFFFF">
+<h3>Select Accessibility Options</h3>
 <input type="checkbox" name="imagesuppress" /> Suppress rendering of images<br />
 <input type="checkbox" name="appletsuppress" /> Suppress Java applets<br />
 <input type="checkbox" name="embedsuppress" /> Suppress rendering of embedded multimedia<br />
 <input type="checkbox" name="fontenhance" /> Increase font size<br />
-<input type="checkbox" name="blackwhite" /> Switch to black and white mode<br /></td></tr></table>
+<input type="checkbox" name="blackwhite" /> Switch to black and white mode<br />
+<p>If you have accessibility needs that are not addressed by this interface, 
+please
+contact the system administrator at <tt>$sysadm</tt>.</p><br />
+<input type="checkbox" name="remember" /> Remember these settings for next login<hr />
 ENDACCESSOPTIONS
 } else {
     $r->print(<<ENDNOOPT);
@@ -321,6 +332,7 @@
 <input type="hidden" name="appletsuppress"  value="" />
 <input type="hidden" name="fontenhance"  value="" />
 <input type="hidden" name="blackwhite"  value="" />
+<input type="hidden" name="remember"  value="" />
 ENDNOOPT
 }
     $r->print(<<ENDLOGIN);