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, |