loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.72, 2003/12/29 21:21:39
+version 1.73, 2003/12/30 14:57:49
  Line 284  sub author_res_msg {
      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 {