loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.782.2.2, 2006/09/28 18:23:32	version 1.782.2.3, 2006/10/04 19:52:08
Line 295 sub error {	Line 295 sub error {
# ------------------------------------------- Transfer profile into environment	# ------------------------------------------- Transfer profile into environment
my $env_loaded;	my $env_loaded;
sub transfer_profile_to_env {	sub transfer_profile_to_env {
if ($env_loaded) { return; }	my ($lonidsdir,$handle,$force_transfer) = @_;
	if (!$force_transfer && $env_loaded) { return; }

my ($lonidsdir,$handle)=@_;
if (!defined($lonidsdir)) {	if (!defined($lonidsdir)) {
$lonidsdir = $perlvar{'lonIDsDir'};	$lonidsdir = $perlvar{'lonIDsDir'};
}	}