loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.79, 2004/01/15 15:12:31	version 1.80, 2004/01/15 18:25:36
Line 274 sub author_res_msg {	Line 274 sub author_res_msg {
sub retrieve_author_res_msg {	sub retrieve_author_res_msg {
my $url=shift;	my $url=shift;
$url=&Apache::lonnet::declutter($url);	$url=&Apache::lonnet::declutter($url);
my ($domain,$author,$file)=($url=~/^(\w+)\/(\w+)\/(.+)$/);	my ($domain,$author)=($url=~/^(\w+)\/(\w+)\//);
my $listall=($file eq 'allbombs');
my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$domain,$author);	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+$/) \|\| ($listall)) {	if ($_=~/^\Q$url\E\_\d+$/) {
my ($errurl)=($_=~/^(.+)\_(\d+)$/);
my %content=&unpackagemsg($errormsgs{$_});	my %content=&unpackagemsg($errormsgs{$_});
$msgs.='<p><img src="/adm/lonMisc/bomb.gif" /><b>'.	$msgs.='<p><img src="/adm/lonMisc/bomb.gif" /><b>'.
($listall?"<a href='".&Apache::lonnet::clutter($errurl)."'><tt>".
$errurl.
'</tt></a> ':' ').
$content{'time'}.'</b>: '.$content{'message'}.	$content{'time'}.'</b>: '.$content{'message'}.
'<br /></p>';	'<br /></p>';
}	}