--- loncom/cgi/loncgi.pm	2006/05/18 14:24:06	1.7
+++ loncom/cgi/loncgi.pm	2006/09/19 21:36:31	1.8
@@ -1,7 +1,7 @@
 #
 # LON-CAPA helpers for cgi-bin scripts
 #
-# $Id: loncgi.pm,v 1.7 2006/05/18 14:24:06 albertel Exp $
+# $Id: loncgi.pm,v 1.8 2006/09/19 21:36:31 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -59,6 +59,7 @@ use CGI::Cookie();
 use Fcntl qw(:flock);
 use LONCAPA;
 use LONCAPA::Configuration();
+use GDBM_File;
 
 my $lonidsdir;
 
@@ -143,19 +144,10 @@ Returns: undef
 #############################################
 sub transfer_profile_to_env {
     my ($handle)=@_;
-    my @profile;
-    {
-        open(IDFILE, "<$lonidsdir/$handle.id");
-        flock(IDFILE,LOCK_SH);
-        @profile=<IDFILE>;
-        close(IDFILE);
-    }
-    foreach my $envrow (@profile) {
-        chomp($envrow);
-        my ($envname,$envvalue)=split(/=/,$envrow,2);
-	$envname  = &unescape($envname);
-	$envvalue = &unescape($envvalue);
-        $Apache::lonnet::env{$envname} = $envvalue;
+   if (tie(my %disk_env,'GDBM_File',"$lonidsdir/$handle.id",&GDBM_READER(),
+	    0640)) {
+	%Apache::lonnet::env = %disk_env;
+	untie(%disk_env);
     }
     $Apache::lonnet::env{'user.environment'} = "$lonidsdir/$handle.id";
     return undef;