loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.46, 2002/12/30 14:10:58	version 1.47, 2003/02/17 17:09:27
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;
$citation=~s/\</\&lt\;/g;	$message =&HTML::Entities::encode($message);
$citation=~s/\>/\&gt\;/g;	$citation=&HTML::Entities::encode($citation);
$subject=~s/\</\&lt\;/g;	$subject =&HTML::Entities::encode($subject);
$subject=~s/\>/\&gt\;/g;	# $subject=~s/\</\&lt\;/g;
	# $subject=~s/\>/\&gt\;/g;
my $now=time;	my $now=time;
$msgcount++;	$msgcount++;
my $partsubj=$subject;	my $partsubj=$subject;