version 1.92, 2004/06/04 19:27:33
|
version 1.93, 2004/06/04 22:54:36
|
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; |
} |
} |
|
|