[LON-CAPA-cvs] cvs: loncom /interface lonmsg.pm

[www]

www		Thu Jan 15 13:25:36 2004 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm 
  Log:
  Rewinding to 1.78 - 1.79 not a good idea.
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.79 loncom/interface/lonmsg.pm:1.80
--- loncom/interface/lonmsg.pm:1.79	Thu Jan 15 10:12:31 2004
+++ loncom/interface/lonmsg.pm	Thu Jan 15 13:25:36 2004
@@ -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.80 2004/01/15 18:25:36 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -274,18 +274,13 @@
 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.='<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>';
 	}