loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.75, 2003/12/30 22:19:18	version 1.76, 2003/12/30 22:45:59
Line 275 sub retrieve_author_res_msg {	Line 275 sub retrieve_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 ($domain,$author)=($url=~/^(\w+)\/(\w+)\//);
my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$1,$2);	my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$domain,$author);
my $msgs='';	my $msgs='';
foreach (keys %errormsgs) {	foreach (keys %errormsgs) {
if ($_=~/^\Q$url\E\_\d+$/) {	if ($_=~/^\Q$url\E\_\d+$/) {
Line 301 sub del_url_author_res_msg {	Line 301 sub del_url_author_res_msg {
sub all_url_author_res_msg {	sub all_url_author_res_msg {
my ($author,$domain)=@_;	my ($author,$domain)=@_;
my %returnhash=();	my %returnhash=();
foreach (&Apache::lonnet::getkeys('nohist_res_msgs')) {	foreach (&Apache::lonnet::getkeys('nohist_res_msgs',$domain,$author)) {
$_=~/^(.+)\_\d+/;	$_=~/^(.+)\_\d+/;
$returnhash{$1}=1;	$returnhash{$1}=1;
}	}