loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.47, 2003/02/17 17:09:27	version 1.48, 2003/02/17 17:39:53
Line 57 use HTML::Entities();	Line 57 use HTML::Entities();

sub packagemsg {	sub packagemsg {
my ($subject,$message,$citation)=@_;	my ($subject,$message,$citation)=@_;
# $message=~s/\</\&lt\;/g;
# $message=~s/\>/\&gt\;/g;
$message =&HTML::Entities::encode($message);	$message =&HTML::Entities::encode($message);
$citation=&HTML::Entities::encode($citation);	$citation=&HTML::Entities::encode($citation);
$subject =&HTML::Entities::encode($subject);	$subject =&HTML::Entities::encode($subject);
# $subject=~s/\</\&lt\;/g;
# $subject=~s/\>/\&gt\;/g;
my $now=time;	my $now=time;
$msgcount++;	$msgcount++;
my $partsubj=$subject;	my $partsubj=$subject;