--- loncom/lonnet/perl/lonnet.pm	2005/04/07 06:56:24	1.620
+++ loncom/lonnet/perl/lonnet.pm	2005/04/07 08:15:41	1.621
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.620 2005/04/07 06:56:24 albertel Exp $
+# $Id: lonnet.pm,v 1.621 2005/04/07 08:15:41 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -270,7 +270,6 @@ sub transfer_profile_to_env {
     for ($envi=0;$envi<=$#profile;$envi++) {
 	chomp($profile[$envi]);
 	my ($envname,$envvalue)=split(/=/,$profile[$envi]);
-	$ENV{$envname} = $envvalue;
 	$env{$envname} = $envvalue;
         if (my ($key,$time) = ($envname =~ /^(cgi\.(\d+)_\d+\.)/)) {
             if ($time < time-300) {
@@ -278,7 +277,6 @@ sub transfer_profile_to_env {
             }
         }
     }
-    $ENV{'user.environment'} = "$lonidsdir/$handle.id";
     $env{'user.environment'} = "$lonidsdir/$handle.id";
     foreach my $expired_key (keys(%Remove)) {
         &delenv($expired_key);
@@ -296,7 +294,6 @@ sub appenv {
                 .'</font>');
 	    delete($newenv{$_});
         } else {
-            $ENV{$_}=$newenv{$_};
             $env{$_}=$newenv{$_};
         }
     }
@@ -384,7 +381,6 @@ sub delenv {
 	foreach (@oldenv) {
 	    if ($_=~/^$delthis/) { 
                 my ($key,undef) = split('=',$_);
-                delete($ENV{$key});
                 delete($env{$key});
             } else {
                 print $fh $_;