--- loncom/interface/lonfeedback.pm 2004/06/04 19:27:33 1.92 +++ loncom/interface/lonfeedback.pm 2004/06/12 01:07:10 1.94 @@ -1,7 +1,7 @@ # The LearningOnline Network # Feedback # -# $Id: lonfeedback.pm,v 1.92 2004/06/04 19:27:33 albertel Exp $ +# $Id: lonfeedback.pm,v 1.94 2004/06/12 01:07:10 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -42,15 +42,12 @@ sub discussion_open { if (defined($status) && !($status eq 'CAN_ANSWER' || $status eq 'CANNOT_ANSWER' || $status eq 'OPEN')) { - &Apache::lonnet::logthis(" no open due to status $status"); return 0; } my $close=&Apache::lonnet::EXT('resource.0.discussend'); if (defined($close) && $close ne '' && $close < time) { - &Apache::lonnet::logthis(" no open due to time "); return 0; } - &Apache::lonnet::logthis(" open "); return 1; } @@ -59,11 +56,9 @@ sub discussion_visible { if (not &discussion_open($status)) { my $hidden=&Apache::lonnet::EXT('resource.0.discusshide'); if (lc($hidden) eq 'yes' or $hidden eq '' or !defined($hidden)) { - &Apache::lonnet::logthis(" hidden "); return 0; } } - &Apache::lonnet::logthis(" visible "); return 1; } @@ -439,7 +434,7 @@ sub list_discussion { Note: in anonymous discussion, your name is visible only to course faculty
Title: 

- +

Attachment (128 KB max size):

@@ -488,6 +483,11 @@ sub mail_screen { } 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(< @@ -531,7 +531,7 @@ $htmlheader } if (rec) { - document.mailform.onsubmit(); + $onsubmit document.mailform.submit(); } else { alert('Please check a feedback type.'); @@ -555,7 +555,7 @@ $quote $latexHelp Title:

-

Attachment (128 KB max size): @@ -567,7 +567,7 @@ Attachment (128 KB max size): ENDDOCUMENT $r->print(&generate_preview_button(). -&Apache::lonhtmlcommon::htmlareaactive(). +&Apache::lonhtmlcommon::htmlareaselectactive('comment'). ''); }