--- loncom/cgi/loncgi.pm	2005/05/25 22:31:51	1.5
+++ loncom/cgi/loncgi.pm	2006/05/18 14:24:06	1.7
@@ -1,7 +1,7 @@
 #
 # LON-CAPA helpers for cgi-bin scripts
 #
-# $Id: loncgi.pm,v 1.5 2005/05/25 22:31:51 albertel Exp $
+# $Id: loncgi.pm,v 1.7 2006/05/18 14:24:06 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -53,9 +53,11 @@ use strict;
 use warnings FATAL=>'all';
 no warnings 'uninitialized';
 
+use lib '/home/httpd/lib/perl/';
 use CGI();
 use CGI::Cookie();
 use Fcntl qw(:flock);
+use LONCAPA;
 use LONCAPA::Configuration();
 
 my $lonidsdir;
@@ -150,7 +152,9 @@ sub transfer_profile_to_env {
     }
     foreach my $envrow (@profile) {
         chomp($envrow);
-        my ($envname,$envvalue)=split(/=/,$envrow);
+        my ($envname,$envvalue)=split(/=/,$envrow,2);
+	$envname  = &unescape($envname);
+	$envvalue = &unescape($envvalue);
         $Apache::lonnet::env{$envname} = $envvalue;
     }
     $Apache::lonnet::env{'user.environment'} = "$lonidsdir/$handle.id";
@@ -160,6 +164,7 @@ sub transfer_profile_to_env {
 #############################################
 #############################################
 
+
 =pod
 
 =back