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

Diff for /loncom/interface/lonmsg.pm between versions 1.42.2.1 and 1.43

version 1.42.2.1, 2003/03/17 16:55:06 version 1.43, 2002/12/23 18:02:44
Line 47  package Apache::lonmsg; Line 47  package Apache::lonmsg;
 use strict;  use strict;
 use Apache::lonnet();  use Apache::lonnet();
 use vars qw($msgcount);  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();  use Apache::lontexconvert;
 use HTML::Entities();  
   
 # ===================================================================== Package  # ===================================================================== Package
   
 sub packagemsg {  sub packagemsg {
     my ($subject,$message,$citation)=@_;      my ($subject,$message,$citation)=@_;
 #    $message=~s/\</\&lt\;/g;      $message=~s/\</\&lt\;/g;
 #    $message=~s/\>/\&gt\;/g;      $message=~s/\>/\&gt\;/g;
     $message =&HTML::Entities::encode($message);      $citation=~s/\</\&lt\;/g;
     $citation=&HTML::Entities::encode($citation);      $citation=~s/\>/\&gt\;/g;
     $subject =&HTML::Entities::encode($subject);      $subject=~s/\</\&lt\;/g;
 #    $subject=~s/\</\&lt\;/g;      $subject=~s/\>/\&gt\;/g;
 #    $subject=~s/\>/\&gt\;/g;  
     my $now=time;      my $now=time;
     $msgcount++;      $msgcount++;
     my $partsubj=$subject;      my $partsubj=$subject;
Line 624  $content{'sendername'},$content{'senderd Line 622  $content{'sendername'},$content{'senderd
              '"><b>Forward</b></a></td>'.               '"><b>Forward</b></a></td>'.
         '<td><a href="/adm/email?markunread='.&Apache::lonnet::escape($msgid).          '<td><a href="/adm/email?markunread='.&Apache::lonnet::escape($msgid).
              '"><b>Mark Unread</b></a></td>'.               '"><b>Mark Unread</b></a></td>'.
           '<td><a href="/adm/email?markdel='.&Apache::lonnet::escape($msgid).
                '"><b>Delete</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>'.
              &Apache::lontexconvert::msgtexconverted($content{'message'}).               &Apache::lontexconvert::msgtexconverted($content{'message'}).
Removed from v.1.42.2.1  
changed lines
  Added in v.1.43

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