--- loncom/interface/lonfeedback.pm 2005/10/30 02:38:10 1.170 +++ loncom/interface/lonfeedback.pm 2005/11/01 15:59:18 1.171 @@ -1,7 +1,7 @@ # The LearningOnline Network # Feedback # -# $Id: lonfeedback.pm,v 1.170 2005/10/30 02:38:10 www Exp $ +# $Id: lonfeedback.pm,v 1.171 2005/11/01 15:59:18 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2641,13 +2641,16 @@ sub newline_to_br { } sub generate_preview_button { + my ($formname,$fieldname)=@_; + unless ($formname) { $formname='mailform'; } + unless ($fieldname) { $fieldname='comment'; } my $pre=&mt("Show Preview and Check Spelling"); return(< +onClick="if (typeof(document.$formname.onsubmit)=='function') {document.$formname.onsubmit();};this.form.comment.value=document.$formname.$fieldname.value;this.form.subject.value=document.$formname.subject.value;this.form.submit();" /> ENDPREVIEW }