[LON-CAPA-cvs] cvs: loncom /auth lonauth.pm lonlogin.pm /html/adm loginproblems.html

[www]

www		Wed Feb 19 20:35:27 2003 EDT

  Modified files:              
    /loncom/auth	lonauth.pm lonlogin.pm 
    /loncom/html/adm	loginproblems.html 
  Log:
  * Additional browser information
  * Accessibility options get stored in environment for "remember"
  
  
Index: loncom/auth/lonauth.pm
diff -u loncom/auth/lonauth.pm:1.39 loncom/auth/lonauth.pm:1.40
--- loncom/auth/lonauth.pm:1.39	Tue Feb 18 16:11:17 2003
+++ loncom/auth/lonauth.pm	Wed Feb 19 20:35:27 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.39 2003/02/18 21:11:17 www Exp $
+# $Id: lonauth.pm,v 1.40 2003/02/20 01:35:27 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -108,6 +108,17 @@
     if ($httpbrowser=~/win/i) { $clientos='win'; }
     if ($httpbrowser=~/embed/i) { $clientos='pda'; }
 
+# -------------------------------------- Any accessibility options to remember?
+    if (($FORM{'interface'}) && ($FORM{'remember'} eq 'true')) {
+       foreach ('imagesuppress','appletsuppress',
+                'embedsuppress','fontenhance','blackwhite') {
+	 if ($FORM{$_} eq 'true') {
+            &Apache::lonnet::put('environment',{$_ => 'on'},$domain,$username);
+         } else {
+            &Apache::lonnet::del('environment',[$_],$domain,$username);
+         }
+       }
+    } 
 # ------------------------------------------------------------- Get environment
 
     my $userenv;
@@ -146,18 +157,19 @@
             print $idf "request.role=cm\n";
             print $idf "request.host=$ENV{'HTTP_HOST'}\n";
             if ($FORM{'interface'}) {
-		$FORM{'interface'}=~s/\W//gs;
-                print $idf "browser.interface=$FORM{'interface'}\n";
-                $ENV{'browser.interface'}=$FORM{'interface'};
-            }
-            foreach 
-              ('imagesuppress','appletsuppress',
-               'embedsuppress','fontenhance','blackwhite') {
-                if (($FORM{$_} eq 'on') ||
-                    ($userenv{$_} eq 'on')) {
-                   print $idf "browser.$_=on\n";
-		}
-            } 
+	       $FORM{'interface'}=~s/\W//gs;
+               print $idf "browser.interface=$FORM{'interface'}\n";
+               $ENV{'browser.interface'}=$FORM{'interface'};
+               foreach 
+                 ('imagesuppress','appletsuppress',
+                  'embedsuppress','fontenhance','blackwhite') {
+                   if (($FORM{$_} eq 'true') ||
+                       ($userenv{$_} eq 'on')) {
+                      print $idf "browser.$_=on\n";
+		   }
+       
+               }               
+	    }
             if ($userroles ne '') { print $idf "$userroles"; }
 	    $idf->close();
         }
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.35 loncom/auth/lonlogin.pm:1.36
--- loncom/auth/lonlogin.pm:1.35	Wed Feb 19 09:05:28 2003
+++ loncom/auth/lonlogin.pm	Wed Feb 19 20:35:27 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.35 2003/02/19 14:05:28 www Exp $
+# $Id: lonlogin.pm,v 1.36 2003/02/20 01:35:27 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -203,22 +203,22 @@
        =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.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.value;
+       =this.document.client.elements.remember.checked;
 
         uextkey=this.document.client.elements.uextkey.value;
         lextkey=this.document.client.elements.lextkey.value;
Index: loncom/html/adm/loginproblems.html
diff -u loncom/html/adm/loginproblems.html:1.3 loncom/html/adm/loginproblems.html:1.4
--- loncom/html/adm/loginproblems.html:1.3	Wed Feb 19 09:01:10 2003
+++ loncom/html/adm/loginproblems.html	Wed Feb 19 20:35:27 2003
@@ -19,7 +19,8 @@
 <li>Mozilla version 1.0 and higher</li>
 <li>Netscape version 4.7 and higher</li>
 <li>Safari</li>
-<li>Internet Explorer version 5.0 and higher</li>
+<li>Galeon version 1.2 and higher</li>
+<li>Internet Explorer version 5.1 and higher</li>
 </ul>
 on the following operating systems
 <ul>