loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.444, 2003/11/10 21:50:21	version 1.446, 2003/11/10 23:57:49
Line 247 sub transfer_profile_to_env {	Line 247 sub transfer_profile_to_env {
}	}
}	}
}	}
	$ENV{'user.environment'} = "$lonidsdir/$handle.id";
foreach my $expired_key (keys(%Remove)) {	foreach my $expired_key (keys(%Remove)) {
&delenv($expired_key);	&delenv($expired_key);
}	}
$ENV{'user.environment'} = "$lonidsdir/$handle.id";
}	}

# ---------------------------------------------------------- Append Environment	# ---------------------------------------------------------- Append Environment
Line 895 EVALBLOCK	Line 895 EVALBLOCK
}	}
} else {	} else {
if (-e $filename) {	if (-e $filename) {
&logthis("Unable to tie hash (save cache item): $name");	&logthis("Unable to tie hash (save cache item): $name ($!)");
unlink($filename);	unlink($filename);
}	}
}	}
Line 939 EVALBLOCK	Line 939 EVALBLOCK
}	}
} else {	} else {
if (-e $filename) {	if (-e $filename) {
&logthis("Unable to tie hash (load cache item): $name");	&logthis("Unable to tie hash (load cache item): $name ($!)");
unlink($filename);	unlink($filename);
}	}
}	}