version 1.88, 2004/08/29 07:03:53
|
version 1.89, 2004/09/10 17:58:01
|
Line 117 sub store_recent {
|
Line 117 sub store_recent {
|
time.'&'.&Apache::lonnet::escape($value) }); |
time.'&'.&Apache::lonnet::escape($value) }); |
} |
} |
|
|
|
sub remove_recent { |
|
my ($area,$names)=@_; |
|
my $file=&recent_filename($area); |
|
return &Apache::lonnet::del($file,$names); |
|
} |
|
|
sub select_recent { |
sub select_recent { |
my ($area,$fieldname,$event)=@_; |
my ($area,$fieldname,$event)=@_; |
my %recent=&Apache::lonnet::dump(&recent_filename($area)); |
my %recent=&Apache::lonnet::dump(&recent_filename($area)); |