--- loncom/interface/lonmsg.pm 2004/01/15 15:12:31 1.79 +++ loncom/interface/lonmsg.pm 2004/01/31 01:26:41 1.83 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging # -# $Id: lonmsg.pm,v 1.79 2004/01/15 15:12:31 www Exp $ +# $Id: lonmsg.pm,v 1.83 2004/01/31 01:26:41 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -274,18 +274,13 @@ sub author_res_msg { sub retrieve_author_res_msg { my $url=shift; $url=&Apache::lonnet::declutter($url); - my ($domain,$author,$file)=($url=~/^(\w+)\/(\w+)\/(.+)$/); - my $listall=($file eq 'allbombs'); + my ($domain,$author)=($url=~/^(\w+)\/(\w+)\//); my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$domain,$author); my $msgs=''; foreach (keys %errormsgs) { - if (($_=~/^\Q$url\E\_\d+$/) || ($listall)) { - my ($errurl)=($_=~/^(.+)\_(\d+)$/); + if ($_=~/^\Q$url\E\_\d+$/) { my %content=&unpackagemsg($errormsgs{$_}); $msgs.='
'.
- ($listall?"".
- $errurl.
- ' ':' ').
$content{'time'}.': '.$content{'message'}.
'
'. - &Apache::lontexconvert::msgtexconverted($content{'message'}). + &Apache::lontexconvert::msgtexconverted($content{'message'},1). '