--- loncom/auth/lonauth.pm	2003/02/03 18:03:52	1.36
+++ 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.36 2003/02/03 18:03:52 harris41 Exp $
+# $Id: lonauth.pm,v 1.38 2003/02/18 19:12:38 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -45,6 +45,9 @@ use Crypt::DES;
 use Apache::lonnet();
 use Apache::lonmenu();
 use Fcntl qw(:flock);
+
+my %FORM;
+
 # ------------------------------------------------------------ Successful login
 
 sub success {
@@ -115,6 +118,9 @@ sub success {
 	    $userenv.="environment.$key=$userenv{$key}\n";
 	}
     }
+    if (($userenv{'interface'}) && (!$FORM{'interface'})) {
+	$FORM{'interface'}=$userenv{'interface'};
+    }
 # --------------------------------------------------------- Write first profile
 
        {
@@ -138,7 +144,19 @@ sub success {
             print $idf "request.course.uri=\n";
             print $idf "request.course.sec=\n";
             print $idf "request.role=cm\n";
-            print $idf "request.host=$ENV{'HTTP_HOST'}\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','embedsuppress','fontenhance','blackwhite') {
+                if (($FORM{$_} eq 'on') ||
+                    ($userenv{$_} eq 'on')) {
+                   print $idf "browser.$_=on\n";
+		}
+            } 
             if ($userroles ne '') { print $idf "$userroles"; }
 	    $idf->close();
         }
@@ -223,7 +241,9 @@ sub handler {
     my $buffer;
     $r->read($buffer,$r->header_in('Content-length'));
     my @pairs=split(/&/,$buffer);
-    my $pair; my $name; my $value; my %FORM;
+    my $pair; my $name; my $value;
+    undef %FORM;
+    %FORM=();
     foreach $pair (@pairs) {
        ($name,$value) = split(/=/,$pair);
        $value =~ tr/+/ /;