--- loncom/interface/lonhtmlcommon.pm 2004/08/29 07:03:53 1.88 +++ loncom/interface/lonhtmlcommon.pm 2004/09/10 17:58:01 1.89 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common html routines # -# $Id: lonhtmlcommon.pm,v 1.88 2004/08/29 07:03:53 albertel Exp $ +# $Id: lonhtmlcommon.pm,v 1.89 2004/09/10 17:58:01 banghart Exp $ # # Copyright Michigan State University Board of Trustees # @@ -117,6 +117,12 @@ sub store_recent { 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 { my ($area,$fieldname,$event)=@_; my %recent=&Apache::lonnet::dump(&recent_filename($area));