version 1.73, 2003/12/30 14:57:49
|
version 1.74, 2003/12/30 20:39:30
|
Line 294 sub retrieve_author_res_msg {
|
Line 294 sub retrieve_author_res_msg {
|
foreach (keys %errormsgs) { |
foreach (keys %errormsgs) { |
if ($_=~/^\Q$url\E\_\d+$/) { |
if ($_=~/^\Q$url\E\_\d+$/) { |
my %content=&unpackagemsg($errormsgs{$_}); |
my %content=&unpackagemsg($errormsgs{$_}); |
$msgs.='<b>'.$content{'time'}.'</b>: '.$content{'message'}. |
$msgs.='<p><img src="/adm/lonMisc/bomb.gif" /><b>'. |
'<br />'; |
$content{'time'}.'</b>: '.$content{'message'}. |
|
'<br /></p>'; |
} |
} |
} |
} |
return $msgs; |
return $msgs; |