version 1.76, 2003/12/30 22:45:59
|
version 1.77, 2003/12/31 02:33:27
|
Line 294 sub retrieve_author_res_msg {
|
Line 294 sub retrieve_author_res_msg {
|
sub del_url_author_res_msg { |
sub del_url_author_res_msg { |
my $url=shift; |
my $url=shift; |
$url=&Apache::lonnet::declutter($url); |
$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 |
# ================= Return hash with URLs for which there is a resource message |