loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

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;
}	}