--- loncom/interface/lonmsg.pm	2004/01/15 03:53:12	1.78
+++ 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.78 2004/01/15 03:53:12 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.='<p><img src="/adm/lonMisc/bomb.gif" /><b>'.
+		($listall?"<a href='".&Apache::lonnet::clutter($errurl)."'><tt>".
+		 $errurl.
+		 '</tt></a> ':' ').
 		$content{'time'}.'</b>: '.$content{'message'}.
 		'<br /></p>';
 	}