[BACK]Return to lonmsg.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmsg.pm between versions 1.73 and 1.75

version 1.73, 2003/12/30 14:57:49 version 1.75, 2003/12/30 22:19:18
Line 25 Line 25
 #  #
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 #  
 # (Routines to control the menu  
 #  
 # (TeX Conversion Module  
 #  
 # 05/29/00,05/30 Gerd Kortemeyer)  
 #  
 # 10/05 Gerd Kortemeyer)  
 #  
 # 10/19,10/20,10/30,  
 # 02/06/01 Gerd Kortemeyer  
 # 07/27 Guy Albertelli  
 # 07/27,07/28,07/30,08/03,08/06,08/08,08/09,08/10,8/13,8/15,  
 # 10/1,11/5 Gerd Kortemeyer  
 # YEAR=2002  
 # 1/1,3/18 Gerd Kortemeyer  
 #  
 package Apache::lonmsg;  package Apache::lonmsg;
   
 =pod  =pod
Line 287  sub author_res_msg { Line 272  sub author_res_msg {
 # =========================================== Retrieve author resource messages  # =========================================== Retrieve author resource messages
   
 sub retrieve_author_res_msg {  sub retrieve_author_res_msg {
     my ($author,$domain,$url)=@_;      my $url=shift;
     $url=&Apache::lonnet::declutter($url);      $url=&Apache::lonnet::declutter($url);
       my ($domain,$author)=($url=~/^(\w+)\/(\w+)\//);
     my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$1,$2);      my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$1,$2);
     my $msgs='';      my $msgs='';
     foreach (keys %errormsgs) {      foreach (keys %errormsgs) {
  if ($_=~/^\Q$url\E\_\d+$/) {   if ($_=~/^\Q$url\E\_\d+$/) {
     my %content=&unpackagemsg($errormsgs{$_});      my %content=&unpackagemsg($errormsgs{$_});
     $msgs.='<b>'.$content{'time'}.'</b>: '.$content{'message'}.      $msgs.='<p><img src="/adm/lonMisc/bomb.gif" /><b>'.
       '<br />';   $content{'time'}.'</b>: '.$content{'message'}.
    '<br /></p>';
  }   }
     }       } 
     return $msgs;           return $msgs;     
Line 305  sub retrieve_author_res_msg { Line 292  sub retrieve_author_res_msg {
 # =============================== Delete all author messages related to one URL  # =============================== Delete all author messages related to one URL
   
 sub del_url_author_res_msg {  sub del_url_author_res_msg {
     my ($author,$domain,$url)=@_;      my $url=shift;
     $url=&Apache::lonnet::declutter($url);      $url=&Apache::lonnet::declutter($url);
 }  }
   
Line 313  sub del_url_author_res_msg { Line 300  sub del_url_author_res_msg {
   
 sub all_url_author_res_msg {  sub all_url_author_res_msg {
     my ($author,$domain)=@_;      my ($author,$domain)=@_;
       my %returnhash=();
       foreach (&Apache::lonnet::getkeys('nohist_res_msgs')) {
    $_=~/^(.+)\_\d+/;
    $returnhash{$1}=1;
       }
       return %returnhash;
 }  }
   
 # ================================================== Critical message to a user  # ================================================== Critical message to a user
Removed from v.1.73  
changed lines
  Added in v.1.75

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>