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=''; |