--- loncom/auth/lonlogin.pm	2003/02/18 16:29:15	1.33
+++ loncom/auth/lonlogin.pm	2003/02/20 01:35:27	1.36
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.33 2003/02/18 16:29:15 www Exp $
+# $Id: lonlogin.pm,v 1.36 2003/02/20 01:35:27 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -170,13 +170,19 @@ ENDHEADER
     }
 
 # ----------------------------------------------------------- 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');
 
@@ -197,16 +203,22 @@ ENDHEADER
        =this.document.client.elements.udom.value;
 
         this.document.server.elements.imagesuppress.value
-       =this.document.client.elements.imagesuppress.value;
+       =this.document.client.elements.imagesuppress.checked;
 
         this.document.server.elements.embedsuppress.value
-       =this.document.client.elements.embedsuppress.value;
+       =this.document.client.elements.embedsuppress.checked;
+
+        this.document.server.elements.appletsuppress.value
+       =this.document.client.elements.appletsuppress.checked;
 
         this.document.server.elements.fontenhance.value
-       =this.document.client.elements.fontenhance.value;
+       =this.document.client.elements.fontenhance.checked;
 
         this.document.server.elements.blackwhite.value
-       =this.document.client.elements.blackwhite.value;
+       =this.document.client.elements.blackwhite.checked;
+
+        this.document.server.elements.remember.value
+       =this.document.client.elements.remember.checked;
 
         uextkey=this.document.client.elements.uextkey.value;
         lextkey=this.document.client.elements.lextkey.value;
@@ -235,9 +247,11 @@ ENDSCRIPT
    <input type="hidden" name="upass" value="" />
    <input type="hidden" name="udom" value="" />
    <input type="hidden" name="imagesuppress"  value="" />
+   <input type="hidden" name="appletsuppress"  value="" />
    <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);
@@ -295,26 +309,30 @@ ENDSERVERFORM
    <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);
 <input type="hidden" name="imagesuppress"  value="" />
 <input type="hidden" name="embedsuppress"  value="" />
+<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);