loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.110, 2005/06/18 18:51:50	version 1.111, 2005/08/05 18:14:40
Line 100 sub store_recent {	Line 100 sub store_recent {
my ($area,$name,$value)=@_;	my ($area,$name,$value)=@_;
my $file=&recent_filename($area);	my $file=&recent_filename($area);
my %recent=&Apache::lonnet::dump($file);	my %recent=&Apache::lonnet::dump($file);
if (scalar(keys(%recent))>10) {	if (scalar(keys(%recent))>20) {
# remove oldest value	# remove oldest value
my $oldest=time;	my $oldest=time;
my $delkey='';	my $delkey='';