loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.779, 2006/09/15 07:14:04	version 1.780, 2006/09/15 07:55:05
Line 293 sub error {	Line 293 sub error {
}	}

# ------------------------------------------- Transfer profile into environment	# ------------------------------------------- Transfer profile into environment
	my $env_loaded;
sub transfer_profile_to_env {	sub transfer_profile_to_env {
	if ($env_loaded) { return; }

my ($lonidsdir,$handle)=@_;	my ($lonidsdir,$handle)=@_;
if (!defined($lonidsdir)) {	if (!defined($lonidsdir)) {
$lonidsdir = $perlvar{'lonIDsDir'};	$lonidsdir = $perlvar{'lonIDsDir'};
Line 325 sub transfer_profile_to_env {	Line 327 sub transfer_profile_to_env {
}	}
}	}
$env{'user.environment'} = "$lonidsdir/$handle.id";	$env{'user.environment'} = "$lonidsdir/$handle.id";
	$env_loaded=1;
foreach my $expired_key (keys(%Remove)) {	foreach my $expired_key (keys(%Remove)) {
&delenv($expired_key);	&delenv($expired_key);
}	}
Line 894 sub save_cache {	Line 897 sub save_cache {
&purge_remembered();	&purge_remembered();
#&Apache::loncommon::validate_page();	#&Apache::loncommon::validate_page();
undef(%env);	undef(%env);
	undef($env_loaded);
}	}

my $to_remember=-1;	my $to_remember=-1;