loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

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