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

Diff for /loncom/interface/lonmsg.pm between versions 1.24 and 1.25

version 1.24, 2001/11/05 19:44:23 version 1.25, 2001/11/05 21:01:54
Line 330  ENDREPLY Line 330  ENDREPLY
   
 sub disall {  sub disall {
     my $r=shift;      my $r=shift;
     $r->print('<h1>Display All Messages</h1>'.      $r->print(
        '<h1>Display All Messages</h1><form method=post action="/adm/email">'.
      '<table border=2><tr><th colspan=2>&nbsp</th><th>Date</th>'.       '<table border=2><tr><th colspan=2>&nbsp</th><th>Date</th>'.
      '<th>Username</th><th>Domain</th><th>Subject</th><th>Status</th></tr>');       '<th>Username</th><th>Domain</th><th>Subject</th><th>Status</th></tr>');
     map {      map {
Line 348  sub disall { Line 349  sub disall {
         }          }
         $r->print('<td><a href="/adm/email?display='.$_.          $r->print('<td><a href="/adm/email?display='.$_.
                   '">Open</a></td><td><a href="/adm/email?markdel='.$_.                    '">Open</a></td><td><a href="/adm/email?markdel='.$_.
                   '">Delete</a></td><td>'.localtime($sendtime).'</td><td>'.                  '">Delete</a><input type=checkbox name="delmark_'.$_.'"></td>'.
                     '<td>'.localtime($sendtime).'</td><td>'.
                   $fromname.'</td><td>'.$fromdomain.'</td><td>'.                    $fromname.'</td><td>'.$fromdomain.'</td><td>'.
       &Apache::lonnet::unescape($shortsubj).'</td><td>'.        &Apache::lonnet::unescape($shortsubj).'</td><td>'.
                       $status.'</td></tr>');                        $status.'</td></tr>');
Line 357  sub disall { Line 359  sub disall {
  $ENV{'user.domain'}.':'.   $ENV{'user.domain'}.':'.
                                         $ENV{'user.name'}.':nohist_email',                                          $ENV{'user.name'}.':nohist_email',
                                         $ENV{'user.home'}));                                          $ENV{'user.home'}));
     $r->print('</table></body></html>');      $r->print('</table><p>'.
                 '<input type=submit name="markeddel" value="Delete Checked">'.
                 '</form></body></html>');
 }  }
   
 # ============================================================== Compose output  # ============================================================== Compose output
Line 539  sub handler { Line 543  sub handler {
   } elsif ($ENV{'form.markdel'}) {    } elsif ($ENV{'form.markdel'}) {
       &statuschange($ENV{'form.markdel'},'deleted');        &statuschange($ENV{'form.markdel'},'deleted');
       &disall($r);        &disall($r);
     } elsif ($ENV{'form.markeddel'}) {
         my $total=0;
         map {
             if ($_=~/^form\.delmark_(.*)$/) {
         &statuschange(&Apache::lonnet::unescape($1),'deleted');
                 $total++;
             }
         } keys %ENV;
         $r->print('Deleted '.$total.' message(s)<p>');
         &disall($r);
   } elsif ($ENV{'form.markunread'}) {    } elsif ($ENV{'form.markunread'}) {
       &statuschange($ENV{'form.markunread'},'new');        &statuschange($ENV{'form.markunread'},'new');
       &disall($r);        &disall($r);
Removed from v.1.24  
changed lines
  Added in v.1.25

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