version 1.92, 2004/06/04 19:27:33
|
version 1.94, 2004/06/12 01:07:10
|
Line 42 sub discussion_open {
|
Line 42 sub discussion_open {
|
if (defined($status) && |
if (defined($status) && |
!($status eq 'CAN_ANSWER' || $status eq 'CANNOT_ANSWER' |
!($status eq 'CAN_ANSWER' || $status eq 'CANNOT_ANSWER' |
|| $status eq 'OPEN')) { |
|| $status eq 'OPEN')) { |
&Apache::lonnet::logthis(" no open due to status $status"); |
|
return 0; |
return 0; |
} |
} |
my $close=&Apache::lonnet::EXT('resource.0.discussend'); |
my $close=&Apache::lonnet::EXT('resource.0.discussend'); |
if (defined($close) && $close ne '' && $close < time) { |
if (defined($close) && $close ne '' && $close < time) { |
&Apache::lonnet::logthis(" no open due to time "); |
|
return 0; |
return 0; |
} |
} |
&Apache::lonnet::logthis(" open "); |
|
return 1; |
return 1; |
} |
} |
|
|
Line 59 sub discussion_visible {
|
Line 56 sub discussion_visible {
|
if (not &discussion_open($status)) { |
if (not &discussion_open($status)) { |
my $hidden=&Apache::lonnet::EXT('resource.0.discusshide'); |
my $hidden=&Apache::lonnet::EXT('resource.0.discusshide'); |
if (lc($hidden) eq 'yes' or $hidden eq '' or !defined($hidden)) { |
if (lc($hidden) eq 'yes' or $hidden eq '' or !defined($hidden)) { |
&Apache::lonnet::logthis(" hidden "); |
|
return 0; |
return 0; |
} |
} |
} |
} |
&Apache::lonnet::logthis(" visible "); |
|
return 1; |
return 1; |
} |
} |
|
|
Line 439 sub list_discussion {
|
Line 434 sub list_discussion {
|
<font size="1">Note: in anonymous discussion, your name is visible only to |
<font size="1">Note: in anonymous discussion, your name is visible only to |
course faculty</font><br /> |
course faculty</font><br /> |
<b>Title:</b> <input type="text" name="subject" value="" size="30" /><br /><br /> |
<b>Title:</b> <input type="text" name="subject" value="" size="30" /><br /><br /> |
<textarea name="comment" cols="60" rows="12" wrap="hard"></textarea> |
<textarea name="comment" cols="80" rows="14" wrap="hard"></textarea> |
<p> |
<p> |
Attachment (128 KB max size): <input type="file" name="attachment" /> |
Attachment (128 KB max size): <input type="file" name="attachment" /> |
</p> |
</p> |
Line 488 sub mail_screen {
|
Line 483 sub mail_screen {
|
} |
} |
my $latexHelp=&Apache::loncommon::helpLatexCheatsheet(); |
my $latexHelp=&Apache::loncommon::helpLatexCheatsheet(); |
my $htmlheader=&Apache::lonhtmlcommon::htmlareaheaders(); |
my $htmlheader=&Apache::lonhtmlcommon::htmlareaheaders(); |
|
my $onsubmit=''; |
|
if ((&Apache::lonhtmlcommon::htmlareabrowser()) && |
|
(!&Apache::lonhtmlcommon::htmlareablocked())) { |
|
$onsubmit='document.mailform.onsubmit();'; |
|
} |
my $send=&mt('Send'); |
my $send=&mt('Send'); |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
<html> |
Line 531 $htmlheader
|
Line 531 $htmlheader
|
} |
} |
|
|
if (rec) { |
if (rec) { |
document.mailform.onsubmit(); |
$onsubmit |
document.mailform.submit(); |
document.mailform.submit(); |
} else { |
} else { |
alert('Please check a feedback type.'); |
alert('Please check a feedback type.'); |
Line 555 $quote
|
Line 555 $quote
|
$latexHelp |
$latexHelp |
Title: <input type="text" name="subject" size="30" value="$subject" /></p> |
Title: <input type="text" name="subject" size="30" value="$subject" /></p> |
<p> |
<p> |
<textarea name="comment" cols="60" rows="10" wrap="hard"> |
<textarea name="comment" id="comment" cols="60" rows="10" wrap="hard"> |
</textarea></p> |
</textarea></p> |
<p> |
<p> |
Attachment (128 KB max size): <input type="file" name="attachment" /> |
Attachment (128 KB max size): <input type="file" name="attachment" /> |
Line 567 Attachment (128 KB max size): <input typ
|
Line 567 Attachment (128 KB max size): <input typ
|
</form> |
</form> |
ENDDOCUMENT |
ENDDOCUMENT |
$r->print(&generate_preview_button(). |
$r->print(&generate_preview_button(). |
&Apache::lonhtmlcommon::htmlareaactive(). |
&Apache::lonhtmlcommon::htmlareaselectactive('comment'). |
'</body></html>'); |
'</body></html>'); |
} |
} |
|
|