--- loncom/interface/lonfeedback.pm 2004/07/22 23:18:01 1.102 +++ loncom/interface/lonfeedback.pm 2004/07/24 18:19:38 1.106 @@ -1,7 +1,7 @@ # The LearningOnline Network # Feedback # -# $Id: lonfeedback.pm,v 1.102 2004/07/22 23:18:01 raeburn Exp $ +# $Id: lonfeedback.pm,v 1.106 2004/07/24 18:19:38 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -36,6 +36,7 @@ use Apache::loncommon(); use Apache::lontexconvert(); use Apache::lonlocal; # must not have () use Apache::lonhtmlcommon(); +use Apache::lonspeller(); sub discussion_open { my ($status)=@_; @@ -829,6 +830,7 @@ END } else { $oldmessage = $contrib{$idx.':message'}; } + $oldmessage=&HTML::Entities::encode($oldmessage,'<>&"'); if ($contrib{$idx.':subject'} =~ /::::\d+::::(.+)$/si) { $subject = $1; } else { @@ -863,11 +865,6 @@ END } my $latexHelp=&Apache::loncommon::helpLatexCheatsheet(); my $htmlheader=&Apache::lonhtmlcommon::htmlareaheaders(); - my $onsubmit=''; - if ((&Apache::lonhtmlcommon::htmlareabrowser()) && - (!&Apache::lonhtmlcommon::htmlareablocked())) { - $onsubmit='document.mailform.onsubmit();'; - } my $send=&mt('Send'); $r->print(< @@ -911,7 +908,9 @@ $htmlheader } if (rec) { - $onsubmit + if (typeof(document.mailform.onsubmit)!='undefined') { + document.mailform.onsubmit(); + } document.mailform.submit(); } else { alert('Please check a feedback type.'); @@ -1747,6 +1746,7 @@ sub show_preview { my $r=shift; my $message=&clear_out_html($ENV{'form.comment'}); $message=~s/\n/\
/g; + $message=&Apache::lonspeller::markeduptext($message); $message=&Apache::lontexconvert::msgtexconverted($message); my $subject=&clear_out_html($ENV{'form.subject'}); $subject=~s/\n/\
/g; @@ -1763,7 +1763,7 @@ sub generate_preview_button { +onClick="if (typeof(document.mailform.onsubmit)!='undefined') {document.mailform.onsubmit();};this.form.comment.value=document.mailform.comment.value;this.form.subject.value=document.mailform.subject.value;this.form.submit();" /> ENDPREVIEW }