loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.627, 2005/04/18 22:28:19	version 1.628, 2005/04/22 21:01:25
Line 258 sub critical {	Line 258 sub critical {

sub transfer_profile_to_env {	sub transfer_profile_to_env {
my ($lonidsdir,$handle)=@_;	my ($lonidsdir,$handle)=@_;
	undef(%env);
my @profile;	my @profile;
{	{
open(my $idf,"$lonidsdir/$handle.id");	open(my $idf,"$lonidsdir/$handle.id");
Line 827 sub getsection {	Line 828 sub getsection {
}	}

sub save_cache {	sub save_cache {
	my ($r)=@_;
	if (! $r->is_initial_req()) { return DECLINED; }
&purge_remembered();	&purge_remembered();
undef(%env);	undef(%env);
	return OK;
}	}

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