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

Diff for /loncom/interface/lonmsg.pm between versions 1.28 and 1.30

version 1.28, 2002/02/16 19:59:10 version 1.30, 2002/04/11 20:46:21
Line 40 Line 40
 # 07/27,07/28,07/30,08/03,08/06,08/08,08/09,08/10,8/13,8/15,  # 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  # 10/1,11/5 Gerd Kortemeyer
 # YEAR=2002  # YEAR=2002
 # 1/1 Gerd Kortemeyer  # 1/1,3/18 Gerd Kortemeyer
 #  #
 package Apache::lonmsg;  package Apache::lonmsg;
   
Line 303  ENDDISHEADER Line 303  ENDDISHEADER
   
 sub discrit {  sub discrit {
     my $r=shift;      my $r=shift;
       $r->print('<h1><font color=red>Critical Messages</font></h1>'.      my $header = '<h1><font color=red>Critical Messages</font></h1>'.
          '<form action=/adm/email method=post>'.          '<form action=/adm/email method=post>'.
          '<input type=hidden name=confirm value=true>');          '<input type=hidden name=confirm value=true>';
       my %what=&Apache::lonnet::dump('critical');      my %what=&Apache::lonnet::dump('critical');
       foreach (sort keys %what) {      my $result = '';
           my %content=&unpackagemsg($what{$_});      foreach (sort keys %what) {
           $content{'message'}=~s/\n/\<br\>/g;          my %content=&unpackagemsg($what{$_});
   $r->print('<hr>From: <b>'.$content{'sendername'}.'@'.          next if ($content{'senderdomain'} eq '');
                     $content{'senderdomain'}.'</b> ('.$content{'time'}.          $content{'message'}=~s/\n/\<br\>/g;
                     ')<br><blockquote>'.$content{'message'}.'</blockquote>'.          $result.='<hr>From: <b>'.$content{'sendername'}.'@'.
   '<input type=submit name="rec_'.$_.'" value="Confirm Receipt">'.              $content{'senderdomain'}.'</b> ('.$content{'time'}.
  '<input type=submit name="reprec_'.$_.'" value="Confirm Receipt and Reply">');              ')<br><blockquote>'.$content{'message'}.'</blockquote>'.
       }              '<input type=submit name="rec_'.$_.'" value="Confirm Receipt">'.
       $r->print(              '<input type=submit name="reprec_'.$_.'" '.
           '<input type=hidden name="displayedcrit" value="true"></form>');                    'value="Confirm Receipt and Reply">';
       }
       # Check to see if there were any messages.
       if ($result eq '') {
           $result = "<h2>You have no critical messages.</h2>";
       } else {
           $r->print($header);
       }
       $r->print($result);
       $r->print('<input type=hidden name="displayedcrit" value="true"></form>');
 }  }
   
 # =============================================================== Compose reply  # =============================================================== Compose reply
Line 355  ENDREPLY Line 364  ENDREPLY
   
 sub disall {  sub disall {
     my $r=shift;      my $r=shift;
     $r->print(       $r->print(<<ENDDISHEADER);
      '<h1>Display All Messages</h1><form method=post action="/adm/email">'.  <script>
       function checkall() {
    for (i=0; i<document.forms.disall.elements.length; i++) {
               if 
             (document.forms.disall.elements[i].name.indexOf('delmark_')==0) {
         document.forms.disall.elements[i].checked=true;
               }
           }
       }
   
       function uncheckall() {
    for (i=0; i<document.forms.disall.elements.length; i++) {
               if 
             (document.forms.disall.elements[i].name.indexOf('delmark_')==0) {
         document.forms.disall.elements[i].checked=false;
               }
           }
       }
   </script>
   ENDDISHEADER
      $r->print(
    '<h1>Display All Messages</h1><form method=post name=disall '.
    '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>');
     foreach (sort split(/\&/,&Apache::lonnet::reply('keys:'.      foreach (sort split(/\&/,&Apache::lonnet::reply('keys:'.
Line 385  sub disall { Line 416  sub disall {
        }         }
     }      }
     $r->print('</table><p>'.      $r->print('</table><p>'.
                 '<a href="javascript:checkall()">Check All</a>&nbsp;'.
                 '<a href="javascript:uncheckall()">Uncheck All</a><p>'.
               '<input type=submit name="markeddel" value="Delete Checked">'.                '<input type=submit name="markeddel" value="Delete Checked">'.
               '</form></body></html>');                '</form></body></html>');
 }  }
Removed from v.1.28  
changed lines
  Added in v.1.30

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