--- loncom/interface/lonfeedback.pm 2002/10/28 14:00:18 1.36 +++ loncom/interface/lonfeedback.pm 2002/10/28 23:28:52 1.37 @@ -1,7 +1,7 @@ # The LearningOnline Network # Feedback # -# $Id: lonfeedback.pm,v 1.36 2002/10/28 14:00:18 www Exp $ +# $Id: lonfeedback.pm,v 1.37 2002/10/28 23:28:52 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -227,9 +227,22 @@ sub resource_output { sub clear_out_html { my $message=$ENV{'form.comment'}; - $message=~s/\<\/*m\s*\>//g; - $message=~s/\\<\;/g; - $message=~s/\>/\>\;/g; + my $cid=$ENV{'request.course.id'}; + if ($ENV{"course.$cid.allow_limited_html_in_feedback"} =~ m/yes/i) { + # allows