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

[www]

www		Tue Feb 18 14:12:38 2003 EDT

  Modified files:              
    /loncom/auth	lonauth.pm 
  Log:
  Transfer login screen accessibility choices to session environment
  
  
Index: loncom/auth/lonauth.pm
diff -u loncom/auth/lonauth.pm:1.37 loncom/auth/lonauth.pm:1.38
--- loncom/auth/lonauth.pm:1.37	Thu Feb 13 11:31:54 2003
+++ loncom/auth/lonauth.pm	Tue Feb 18 14:12:38 2003
@@ -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 @@
 	    $userenv.="environment.$key=$userenv{$key}\n";
 	}
     }
+    if (($userenv{'interface'}) && (!$FORM{'interface'})) {
+	$FORM{'interface'}=$userenv{'interface'};
+    }
 # --------------------------------------------------------- Write first profile
 
        {
@@ -146,6 +149,13 @@
 		$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();