--- loncom/interface/lonmsg.pm	2004/03/01 23:06:17	1.71.2.1
+++ loncom/interface/lonmsg.pm	2003/12/30 14:57:49	1.73
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.71.2.1 2004/03/01 23:06:17 albertel Exp $
+# $Id: lonmsg.pm,v 1.73 2003/12/30 14:57:49 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -270,26 +270,51 @@ sub author_res_msg {
     my ($filename,$message)=@_;
     unless ($message) { return 'empty'; }
     $filename=&Apache::lonnet::declutter($filename);
-    my ($domain,$author)=split(/\//,$filename);
+    my ($domain,$author,@dummy)=split(/\//,$filename);
     my $homeserver=&Apache::lonnet::homeserver($author,$domain);
     if ($homeserver ne 'no_host') {
        my $id=unpack("%32C*",$message);
        my $msgid;
-       ($msgid,$message)=&packagemsg("Error: [$filename]",$message);
-       #FIXME this should be nohist_res_msg, we need to provide an interface 
-       #      to this hash BUG#2444
-       #return &Apache::lonnet::reply('put:'.$domain.':'.$author.
-       #  ':nohist_res_msg:'.
-       #   &Apache::lonnet::escape($filename.'_'.$id).'='.
-       #   &Apache::lonnet::escape($message),$homeserver);
+       ($msgid,$message)=&packagemsg($filename,$message);
        return &Apache::lonnet::reply('put:'.$domain.':'.$author.
-	   ':nohist_email:'.
-           &Apache::lonnet::escape($msgid).'='.
-           &Apache::lonnet::escape($message),$homeserver);
+         ':nohist_res_msgs:'.
+          &Apache::lonnet::escape($filename.'_'.$id).'='.
+          &Apache::lonnet::escape($message),$homeserver);
     }
     return 'no_host';
 }
 
+# =========================================== Retrieve author resource messages
+
+sub retrieve_author_res_msg {
+    my ($author,$domain,$url)=@_;
+    $url=&Apache::lonnet::declutter($url);
+    my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$1,$2);
+    my $msgs='';
+    foreach (keys %errormsgs) {
+	if ($_=~/^\Q$url\E\_\d+$/) {
+	    my %content=&unpackagemsg($errormsgs{$_});
+	    $msgs.='<b>'.$content{'time'}.'</b>: '.$content{'message'}.
+		      '<br />';
+	}
+    } 
+    return $msgs;     
+}
+
+
+# =============================== Delete all author messages related to one URL
+
+sub del_url_author_res_msg {
+    my ($author,$domain,$url)=@_;
+    $url=&Apache::lonnet::declutter($url);
+}
+
+# ================= Return hash with URLs for which there is a resource message
+
+sub all_url_author_res_msg {
+    my ($author,$domain)=@_;
+}
+
 # ================================================== Critical message to a user
 
 sub user_crit_msg_raw {
@@ -839,7 +864,6 @@ ENDCOMP
     } else { # $broadcast is 'upload'
 	$r->print(<<ENDUPLOAD);
 <input type=hidden name=sendmode value=upload>
-<input type="hidden" name="send" value="on" />
 <h3>Generate messages from a file</h3>
 <p>
 Subject: <input type=text size=50 name=subject>