--- loncom/interface/lonmsg.pm 2003/12/30 22:45:59 1.76 +++ loncom/interface/lonmsg.pm 2004/01/15 18:25:36 1.80 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging # -# $Id: lonmsg.pm,v 1.76 2003/12/30 22:45:59 www Exp $ +# $Id: lonmsg.pm,v 1.80 2004/01/15 18:25:36 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -294,6 +294,14 @@ sub retrieve_author_res_msg { sub del_url_author_res_msg { my $url=shift; $url=&Apache::lonnet::declutter($url); + my ($domain,$author)=($url=~/^(\w+)\/(\w+)\//); + my @delmsgs=(); + foreach (&Apache::lonnet::getkeys('nohist_res_msgs',$domain,$author)) { + if ($_=~/^\Q$url\E\_\d+$/) { + push (@delmsgs,$_); + } + } + return &Apache::lonnet::del('nohist_res_msgs',\@delmsgs,$domain,$author); } # ================= Return hash with URLs for which there is a resource message @@ -1016,7 +1024,9 @@ sub handler { if (!$ENV{'form.display'}) { $r->print('