--- loncom/cgi/loncgi.pm	2005/04/07 06:56:21	1.3
+++ loncom/cgi/loncgi.pm	2005/05/03 22:22:47	1.4
@@ -1,7 +1,7 @@
 #
 # LON-CAPA helpers for cgi-bin scripts
 #
-# $Id: loncgi.pm,v 1.3 2005/04/07 06:56:21 albertel Exp $
+# $Id: loncgi.pm,v 1.4 2005/05/03 22:22:47 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -60,8 +60,8 @@ use Fcntl qw(:flock);
 use LONCAPA::Configuration();
 require Exporter;
 
-our @ISA = qw (Exporter);
-our @EXPORT = qw(%env);
+#our @ISA = qw (Exporter);
+#our @EXPORT = qw(%env);
 
 my $lonidsdir;
 
@@ -156,11 +156,9 @@ sub transfer_profile_to_env {
     foreach my $envrow (@profile) {
         chomp($envrow);
         my ($envname,$envvalue)=split(/=/,$envrow);
-        $ENV{$envname} = $envvalue;
-        $env{$envname} = $envvalue;
+        $Apache::lonnet::env{$envname} = $envvalue;
     }
-    $ENV{'user.environment'} = "$lonidsdir/$handle.id";
-    $env{'user.environment'} = "$lonidsdir/$handle.id";
+    $Apache::lonnet::env{'user.environment'} = "$lonidsdir/$handle.id";
     return undef;
 }