--- loncom/auth/lonlogin.pm	2003/02/17 23:25:59	1.32
+++ loncom/auth/lonlogin.pm	2003/02/19 14:05:28	1.35
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.32 2003/02/17 23:25:59 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 @@ 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');
 
@@ -196,6 +202,24 @@ ENDHEADER
         this.document.server.elements.udom.value
        =this.document.client.elements.udom.value;
 
+        this.document.server.elements.imagesuppress.value
+       =this.document.client.elements.imagesuppress.value;
+
+        this.document.server.elements.embedsuppress.value
+       =this.document.client.elements.embedsuppress.value;
+
+        this.document.server.elements.appletsuppress.value
+       =this.document.client.elements.appletsuppress.value;
+
+        this.document.server.elements.fontenhance.value
+       =this.document.client.elements.fontenhance.value;
+
+        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();
@@ -216,12 +240,18 @@ ENDSCRIPT
 
     $r->print(<<ENDSERVERFORM);
   <form name="server" action="$otherserver/adm/authenticate" method="post" target="_top">
-   <input type=hidden name=logtoken value="$logtoken">
-   <input type=hidden name=serverid value="$lonhost">
-   <input type=hidden name=interface value="$ENV{'form.interface'}">
-   <input type=hidden name=uname value="">
-   <input type=hidden name=upass value="">
-   <input type=hidden name=udom value="">
+   <input type="hidden" name="logtoken" value="$logtoken" />
+   <input type="hidden" name="serverid" value="$lonhost" />
+   <input type="hidden" name="interface" value="$ENV{'form.interface'}" />
+   <input type="hidden" name="uname" value="" />
+   <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);
@@ -279,10 +309,33 @@ 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><h3>Text-based Interface Login</h3></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);
+<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 />
+<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);
-    <form name="client" onsubmit="return(send())">
      <input type="hidden" name="lextkey" value="$lextkey">
      <input type="hidden" name="uextkey" value="$uextkey">