--- loncom/auth/lonauth.pm	2003/02/18 21:11:17	1.39
+++ loncom/auth/lonauth.pm	2003/02/20 01:35:27	1.40
@@ -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 @@ sub success {
     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 @@ sub success {
             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();
         }