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

Diff for /loncom/interface/lonmsg.pm between versions 1.35 and 1.36

version 1.35, 2002/07/22 14:23:29 version 1.36, 2002/07/29 22:17:05
Line 50  use vars qw($msgcount); Line 50  use vars qw($msgcount);
 use HTML::TokeParser;  use HTML::TokeParser;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::loncommon;  use Apache::loncommon;
   use Apache::lontexconvert;
   
 # ===================================================================== Package  # ===================================================================== Package
   
Line 316  sub discrit { Line 317  sub discrit {
         $result.='<hr>From: <b>'.$content{'sendername'}.'@'.          $result.='<hr>From: <b>'.$content{'sendername'}.'@'.
             $content{'senderdomain'}.'</b> ('.$content{'time'}.              $content{'senderdomain'}.'</b> ('.$content{'time'}.
             ')<br>Subject: '.$content{'subject'}.              ')<br>Subject: '.$content{'subject'}.
             '<br><blockquote>'.$content{'message'}.'</blockquote>'.              '<br><blockquote>'.
                 &Apache::lontexconvert::msgtexconverted($content{'message'}).
               '</blockquote>'.
             '<input type=submit name="rec_'.$_.'" value="Confirm Receipt">'.              '<input type=submit name="rec_'.$_.'" value="Confirm Receipt">'.
             '<input type=submit name="reprec_'.$_.'" '.              '<input type=submit name="reprec_'.$_.'" '.
                   'value="Confirm Receipt and Reply">';                    'value="Confirm Receipt and Reply">';
Line 555  sub handler { Line 558  sub handler {
              '"><b>Mark Unread</b></a></td>'.               '"><b>Mark Unread</b></a></td>'.
         '<td><a href="/adm/email"><b>Display all Messages</b></a></td>'.          '<td><a href="/adm/email"><b>Display all Messages</b></a></td>'.
              '</tr></table><p><pre>'.               '</tr></table><p><pre>'.
              $content{'message'}.'</pre><hr>'.$content{'citation'});               &Apache::lontexconvert::msgtexconverted($content{'message'}).
                '</pre><hr>'.$content{'citation'});
   } elsif ($ENV{'form.replyto'}) {    } elsif ($ENV{'form.replyto'}) {
       &comprep($r,$ENV{'form.replyto'});        &comprep($r,$ENV{'form.replyto'});
   } elsif ($ENV{'form.sendreply'}) {    } elsif ($ENV{'form.sendreply'}) {
Removed from v.1.35  
changed lines
  Added in v.1.36

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