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

Diff for /loncom/interface/lonmsg.pm between versions 1.79 and 1.81

version 1.79, 2004/01/15 15:12:31 version 1.81, 2004/01/28 20:48:35
Line 274  sub author_res_msg { Line 274  sub author_res_msg {
 sub retrieve_author_res_msg {  sub retrieve_author_res_msg {
     my $url=shift;      my $url=shift;
     $url=&Apache::lonnet::declutter($url);      $url=&Apache::lonnet::declutter($url);
     my ($domain,$author,$file)=($url=~/^(\w+)\/(\w+)\/(.+)$/);      my ($domain,$author)=($url=~/^(\w+)\/(\w+)\//);
     my $listall=($file eq 'allbombs');  
     my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$domain,$author);      my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$domain,$author);
     my $msgs='';      my $msgs='';
     foreach (keys %errormsgs) {      foreach (keys %errormsgs) {
  if (($_=~/^\Q$url\E\_\d+$/) || ($listall)) {   if ($_=~/^\Q$url\E\_\d+$/) {
     my ($errurl)=($_=~/^(.+)\_(\d+)$/);  
     my %content=&unpackagemsg($errormsgs{$_});      my %content=&unpackagemsg($errormsgs{$_});
     $msgs.='<p><img src="/adm/lonMisc/bomb.gif" /><b>'.      $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'}.   $content{'time'}.'</b>: '.$content{'message'}.
  '<br /></p>';   '<br /></p>';
  }   }
Line 1089  $content{'sendername'},$content{'senderd Line 1084  $content{'sendername'},$content{'senderd
            '"><b>'.&mt('Next').'</b></a></td>');             '"><b>'.&mt('Next').'</b></a></td>');
        }         }
        $r->print('</tr></table><p><pre>'.         $r->print('</tr></table><p><pre>'.
              &Apache::lontexconvert::msgtexconverted($content{'message'}).               &Apache::lontexconvert::msgtexconverted($content{'message'},1).
              '</pre><hr>'.$content{'citation'});               '</pre><hr>'.$content{'citation'});
   } elsif ($ENV{'form.replyto'}) {    } elsif ($ENV{'form.replyto'}) {
       &comprep($r,$ENV{'form.replyto'});        &comprep($r,$ENV{'form.replyto'});
Removed from v.1.79  
changed lines
  Added in v.1.81

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