loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.38, 2002/12/26 16:40:33	version 1.39, 2003/02/10 16:22:28
Line 226 sub resource_output {	Line 226 sub resource_output {
}	}

sub clear_out_html {	sub clear_out_html {
my $message=$ENV{'form.comment'};	my ($message,$override)=@_;
my $cid=$ENV{'request.course.id'};	my $cid=$ENV{'request.course.id'};
if ($ENV{"course.$cid.allow_limited_html_in_feedback"} =~ m/yes/i) {	if (($ENV{"course.$cid.allow_limited_html_in_feedback"} =~ m/yes/i) \|\|
	($override)) {
# allows <B> <I> <P> <A> <LI> <OL> <UL> <EM> <BR> <TT> <STRONG>	# allows <B> <I> <P> <A> <LI> <OL> <UL> <EM> <BR> <TT> <STRONG>
# <BLOCKQUOTE> <DIV .*> <DIV> <IMG>	# <BLOCKQUOTE> <DIV .*> <DIV> <IMG>
my %html=(B=>1, I=>1, P=>1, A=>1, LI=>1, OL=>1, UL=>1, EM=>1,	my %html=(B=>1, I=>1, P=>1, A=>1, LI=>1, OL=>1, UL=>1, EM=>1,
Line 550 sub handler {	Line 551 sub handler {
my $usersaw=&resource_output($feedurl);	my $usersaw=&resource_output($feedurl);

# Filter HTML out of message (could be nasty)	# Filter HTML out of message (could be nasty)
my $message=&clear_out_html;	my $message=&clear_out_html($ENV{'form.comment'});

# Assemble email	# Assemble email
my ($email,$citations)=&assemble_email($feedurl,$message,$prevattempts,	my ($email,$citations)=&assemble_email($feedurl,$message,$prevattempts,