loncom/cgi/loncgi.pm - diff

Return to loncgi.pm CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.3, 2005/04/07 06:56:21	version 1.4, 2005/05/03 22:22:47
Line 60 use Fcntl qw(:flock);	Line 60 use Fcntl qw(:flock);
use LONCAPA::Configuration();	use LONCAPA::Configuration();
require Exporter;	require Exporter;

our @ISA = qw (Exporter);	#our @ISA = qw (Exporter);
our @EXPORT = qw(%env);	#our @EXPORT = qw(%env);

my $lonidsdir;	my $lonidsdir;

Line 156 sub transfer_profile_to_env {	Line 156 sub transfer_profile_to_env {
foreach my $envrow (@profile) {	foreach my $envrow (@profile) {
chomp($envrow);	chomp($envrow);
my ($envname,$envvalue)=split(/=/,$envrow);	my ($envname,$envvalue)=split(/=/,$envrow);
$ENV{$envname} = $envvalue;	$Apache::lonnet::env{$envname} = $envvalue;
$env{$envname} = $envvalue;
}	}
$ENV{'user.environment'} = "$lonidsdir/$handle.id";	$Apache::lonnet::env{'user.environment'} = "$lonidsdir/$handle.id";
$env{'user.environment'} = "$lonidsdir/$handle.id";
return undef;	return undef;
}	}