--- loncom/interface/lonfeedback.pm 2005/10/04 18:27:32 1.169 +++ 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.169 2005/10/04 18:27:32 albertel Exp $ +# $Id: lonfeedback.pm,v 1.171 2005/11/01 15:59:18 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -45,6 +45,7 @@ use Cwd; sub discussion_open { my ($status,$symb)=@_; + if ($env{'request.role.adv'}) { return 1; } if (defined($status) && !($status eq 'CAN_ANSWER' || $status eq 'CANNOT_ANSWER' || $status eq 'OPEN')) { @@ -2640,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 }