loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.78, 2004/01/15 03:53:12	version 1.79, 2004/01/15 15:12:31
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)=($url=~/^(\w+)\/(\w+)\//);	my ($domain,$author,$file)=($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+$/) {	if (($_=~/^\Q$url\E\_\d+$/) \|\| ($listall)) {
	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>';
}	}