--- loncom/interface/lonmsg.pm 2002/12/27 16:33:36 1.45 +++ loncom/interface/lonmsg.pm 2003/02/17 17:09:27 1.47 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging # -# $Id: lonmsg.pm,v 1.45 2002/12/27 16:33:36 www Exp $ +# $Id: lonmsg.pm,v 1.47 2003/02/17 17:09:27 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -47,21 +47,23 @@ package Apache::lonmsg; use strict; use Apache::lonnet(); use vars qw($msgcount); -use HTML::TokeParser; +use HTML::TokeParser(); use Apache::Constants qw(:common); -use Apache::loncommon; -use Apache::lontexconvert; +use Apache::loncommon(); +use Apache::lontexconvert(); +use HTML::Entities(); # ===================================================================== Package sub packagemsg { my ($subject,$message,$citation)=@_; - $message=~s/\\<\;/g; - $message=~s/\>/\>\;/g; - $citation=~s/\\<\;/g; - $citation=~s/\>/\>\;/g; - $subject=~s/\\<\;/g; - $subject=~s/\>/\>\;/g; +# $message=~s/\\<\;/g; +# $message=~s/\>/\>\;/g; + $message =&HTML::Entities::encode($message); + $citation=&HTML::Entities::encode($citation); + $subject =&HTML::Entities::encode($subject); +# $subject=~s/\\<\;/g; +# $subject=~s/\>/\>\;/g; my $now=time; $msgcount++; my $partsubj=$subject; @@ -533,10 +535,11 @@ sub compout { '
Username: | ||
Username: | $selectlink | |
Domain: | $domform |