--- loncom/interface/lonfeedback.pm 2004/06/01 21:40:57 1.85 +++ loncom/interface/lonfeedback.pm 2004/06/02 16:41:46 1.86 @@ -1,7 +1,7 @@ # The LearningOnline Network # Feedback # -# $Id: lonfeedback.pm,v 1.85 2004/06/01 21:40:57 www Exp $ +# $Id: lonfeedback.pm,v 1.86 2004/06/02 16:41:46 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -34,7 +34,8 @@ use Apache::Constants qw(:common); use Apache::lonmsg(); use Apache::loncommon(); use Apache::lontexconvert(); -use Apache::lonlocal; +use Apache::lonlocal; # must not have () +use Apache::lonhtmlcommon(); sub list_discussion { my ($mode,$status,$symb)=@_; @@ -458,7 +459,7 @@ sub mail_screen { } } my $latexHelp=&Apache::loncommon::helpLatexCheatsheet(); - my $htmlheader=&Apache::lonhtmlcommon::htmlareaheaders(); + my $htmlheader=&Apache::lonhtmlcommon::htmlareaheaders(); my $send=&mt('Send'); $r->print(< @@ -502,6 +503,7 @@ $htmlheader } if (rec) { + document.mailform.onsubmit(); document.mailform.submit(); } else { alert('Please check a feedback type.');