loncom/cgi/loncgi.pm - diff

Return to loncgi.pm CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.1, 2003/10/09 22:04:37	version 1.2, 2005/04/05 20:43:27
Line 52 package LONCAPA::loncgi;	Line 52 package LONCAPA::loncgi;
use strict;	use strict;
use warnings FATAL=>'all';	use warnings FATAL=>'all';
no warnings 'uninitialized';	no warnings 'uninitialized';
	use vars qw(%env);

use CGI();	use CGI();
use CGI::Cookie();	use CGI::Cookie();
use Fcntl qw(:flock);	use Fcntl qw(:flock);
use LONCAPA::Configuration();	use LONCAPA::Configuration();
	require Exporter;

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

my $lonidsdir;	my $lonidsdir;

Line 151 sub transfer_profile_to_env {	Line 157 sub transfer_profile_to_env {
chomp($envrow);	chomp($envrow);
my ($envname,$envvalue)=split(/=/,$envrow);	my ($envname,$envvalue)=split(/=/,$envrow);
$ENV{$envname} = $envvalue;	$ENV{$envname} = $envvalue;
	$env{$envname} = $envvalue;
}	}
$ENV{'user.environment'} = "$lonidsdir/$handle.id";	$ENV{'user.environment'} = "$lonidsdir/$handle.id";
	$env{'user.environment'} = "$lonidsdir/$handle.id";
return undef;	return undef;
}	}