--- loncom/interface/lonmsg.pm 2003/12/31 02:33:27 1.77 +++ loncom/interface/lonmsg.pm 2004/01/15 15:12:31 1.79 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging # -# $Id: lonmsg.pm,v 1.77 2003/12/31 02:33:27 www Exp $ +# $Id: lonmsg.pm,v 1.79 2004/01/15 15:12:31 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -274,13 +274,18 @@ sub author_res_msg { sub retrieve_author_res_msg { my $url=shift; $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 $msgs=''; foreach (keys %errormsgs) { - if ($_=~/^\Q$url\E\_\d+$/) { + if (($_=~/^\Q$url\E\_\d+$/) || ($listall)) { + my ($errurl)=($_=~/^(.+)\_(\d+)$/); my %content=&unpackagemsg($errormsgs{$_}); $msgs.='
'.
+ ($listall?"".
+ $errurl.
+ ' ':' ').
$content{'time'}.': '.$content{'message'}.
'