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>'; |
} |
} |