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

[www]

www		Tue Feb 18 11:29:15 2003 EDT

  Modified files:              
    /loncom/auth	lonlogin.pm 
  Log:
  Work on ADA compliance and PDA compatibility
  
  
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.32 loncom/auth/lonlogin.pm:1.33
--- loncom/auth/lonlogin.pm:1.32	Mon Feb 17 18:25:59 2003
+++ loncom/auth/lonlogin.pm	Tue Feb 18 11:29:15 2003
@@ -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.33 2003/02/18 16:29:15 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -196,6 +196,18 @@
         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.fontenhance.value
+       =this.document.client.elements.fontenhance.value;
+
+        this.document.server.elements.blackwhite.value
+       =this.document.client.elements.blackwhite.value;
+
         uextkey=this.document.client.elements.uextkey.value;
         lextkey=this.document.client.elements.lextkey.value;
         initkeys();
@@ -216,12 +228,16 @@
 
     $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="embedsuppress"  value="" />
+   <input type="hidden" name="fontenhance"  value="" />
+   <input type="hidden" name="blackwhite"  value="" />
   </form>
 ENDSERVERFORM
     if ($fullgraph) { $r->print(<<ENDTOP);
@@ -279,10 +295,29 @@
    <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('<font color="#FFFFFF"><h1>The Learning<i>Online</i> Network with CAPA</h1><h1>Text-based Interface Login</h1></font>');
+}
+    $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">
+<input type="checkbox" name="imagesuppress" /> Suppress rendering of images<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>
+ENDACCESSOPTIONS
+} else {
+    $r->print(<<ENDNOOPT);
+<input type="hidden" name="imagesuppress"  value="" />
+<input type="hidden" name="embedsuppress"  value="" />
+<input type="hidden" name="fontenhance"  value="" />
+<input type="hidden" name="blackwhite"  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">