--- loncom/interface/lonfeedback.pm	2002/12/26 16:40:33	1.38
+++ loncom/interface/lonfeedback.pm	2003/02/10 16:22:28	1.39
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.38 2002/12/26 16:40:33 www Exp $
+# $Id: lonfeedback.pm,v 1.39 2003/02/10 16:22:28 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -226,9 +226,10 @@ sub resource_output {
 }
 
 sub clear_out_html {
-  my $message=$ENV{'form.comment'};
+  my ($message,$override)=@_;
   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> 
       # <BLOCKQUOTE> <DIV .*> <DIV> <IMG>
       my %html=(B=>1, I=>1, P=>1, A=>1, LI=>1, OL=>1, UL=>1, EM=>1,
@@ -550,7 +551,7 @@ sub handler {
       my $usersaw=&resource_output($feedurl);
 
 # Filter HTML out of message (could be nasty)
-      my $message=&clear_out_html;
+      my $message=&clear_out_html($ENV{'form.comment'});
 
 # Assemble email
       my ($email,$citations)=&assemble_email($feedurl,$message,$prevattempts,