--- loncom/auth/lonauth.pm	2003/02/13 16:31:54	1.37
+++ loncom/auth/lonauth.pm	2003/02/18 19:12:38	1.38
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.37 2003/02/13 16:31:54 www Exp $
+# $Id: lonauth.pm,v 1.38 2003/02/18 19:12:38 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -118,6 +118,9 @@ sub success {
 	    $userenv.="environment.$key=$userenv{$key}\n";
 	}
     }
+    if (($userenv{'interface'}) && (!$FORM{'interface'})) {
+	$FORM{'interface'}=$userenv{'interface'};
+    }
 # --------------------------------------------------------- Write first profile
 
        {
@@ -146,6 +149,13 @@ sub success {
 		$FORM{'interface'}=~s/\W//gs;
                 print $idf "browser.interface=$FORM{'interface'}\n";
                 $ENV{'browser.interface'}=$FORM{'interface'};
+            }
+            foreach 
+              ('imagesuppress','embedsuppress','fontenhance','blackwhite') {
+                if (($FORM{$_} eq 'on') ||
+                    ($userenv{$_} eq 'on')) {
+                   print $idf "browser.$_=on\n";
+		}
             } 
             if ($userroles ne '') { print $idf "$userroles"; }
 	    $idf->close();