loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.88, 2004/06/03 14:28:39	version 1.89, 2004/06/03 20:06:15
Line 39 use Apache::lonhtmlcommon();	Line 39 use Apache::lonhtmlcommon();

sub list_discussion {	sub list_discussion {
my ($mode,$status,$symb)=@_;	my ($mode,$status,$symb)=@_;
# &Apache::lonnet::logthis("status is $status");
if (!($status eq 'CAN_ANSWER' \|\| $status eq 'CANNOT_ANSWER'	if (!($status eq 'CAN_ANSWER' \|\| $status eq 'CANNOT_ANSWER'
\|\| $status eq 'OPEN')) {	\|\| $status eq 'OPEN')) {
return '';	return '';
}	}
	my $close=&Apache::lonnet::EXT('resource.0.discussend');
	if (defined($close) && $close ne '' && $close < time) {
	return ''
	}

my @bgcols = ("#cccccc","#eeeeee");	my @bgcols = ("#cccccc","#eeeeee");
my $discussiononly=0;	my $discussiononly=0;