--- loncom/auth/lonauth.pm	2005/02/26 05:37:23	1.65
+++ loncom/auth/lonauth.pm	2005/04/07 06:56:21	1.66
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.65 2005/02/26 05:37:23 albertel Exp $
+# $Id: lonauth.pm,v 1.66 2005/04/07 06:56:21 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -25,13 +25,6 @@
 #
 # http://www.lon-capa.org/
 #
-# 5/21/99,5/22,5/25,5/26,5/27,5/29,6/2,6/11,6/14,6/15
-# 16/11,12/16,
-# 1/14,2/24,2/28,2/29,3/7,5/29,5/30,5/31,6/1,6/5,6/29,
-# 7/1,7/10,10/2,10/5,10/9,10/26,10/30,11/10,
-# 05/28,05/29 Gerd Kortemeyer
-# 07/28,08/03 Gerd Kortemeyer
-# 8/20 Gerd Kortemeyer
 
 package Apache::lonauth;
 
@@ -43,7 +36,7 @@ use CGI::Cookie();
 use DynaLoader; # for Crypt::DES version
 use Crypt::DES;
 use Apache::loncommon();
-use Apache::lonnet();
+use Apache::lonnet;
 use Apache::lonmenu();
 use Fcntl qw(:flock);
 use Apache::lonlocal;
@@ -107,7 +100,7 @@ sub success {
     if (($userenv{'interface'}) && (!$FORM{'interface'})) {
 	$FORM{'interface'}=$userenv{'interface'};
     }
-    $ENV{'environment.remote'}=$userenv{'remote'};
+    $env{'environment.remote'}=$userenv{'remote'};
     if ($userenv{'texengine'} eq 'ttm') { $clientmathml=1; }
 
 # --------------- Do not trust query string to be put directly into environment
@@ -143,12 +136,12 @@ sub success {
 	print $idf "request.course.uri=\n";
 	print $idf "request.course.sec=\n";
 	print $idf "request.role=cm\n";
-        print $idf "request.role.adv=$ENV{'user.adv'}\n";
+        print $idf "request.role.adv=$env{'user.adv'}\n";
 	print $idf "request.host=$ENV{'REMOTE_ADDR'}\n";
 	if ($FORM{'interface'}) {
 	    $FORM{'interface'}=~s/\W//gs;
 	    print $idf "browser.interface=$FORM{'interface'}\n";
-	    $ENV{'browser.interface'}=$FORM{'interface'};
+	    $env{'browser.interface'}=$FORM{'interface'};
 	    foreach ('imagesuppress','appletsuppress',
 		     'embedsuppress','fontenhance','blackwhite') {
 		if (($FORM{$_} eq 'true') ||
@@ -160,9 +153,9 @@ sub success {
 	if ($userroles ne '') { print $idf "$userroles"; }
 	$idf->close();
     }
-    $ENV{'request.role'}='cm';
-    $ENV{'request.role.adv'}=$ENV{'user.adv'};
-    $ENV{'browser.type'}=$clientbrowser;
+    $env{'request.role'}='cm';
+    $env{'request.role.adv'}=$env{'user.adv'};
+    $env{'browser.type'}=$clientbrowser;
 # -------------------------------------------------------------------- Log this
 
     &Apache::lonnet::log($domain,$username,$authhost,
@@ -189,8 +182,8 @@ sub success {
     my $bodytag=&Apache::loncommon::bodytag('Successful Login');
     my $add=&addcontent();
     my $continuelink;
-    if (($ENV{'browser.interface'} eq 'textual') ||
-        ($ENV{'environment.remote'} eq 'off')) {
+    if (($env{'browser.interface'} eq 'textual') ||
+        ($env{'environment.remote'} eq 'off')) {
 	$continuelink="<a href=\"$lowerurl\">".&mt('Continue')."</a>";
     }
 # ------------------------------------------------- Output for successful login