loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.74, 2004/01/13 02:31:09	version 1.76, 2004/02/11 22:14:10
Line 55 use Apache::lonlocal;	Line 55 use Apache::lonlocal;

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')) {
	return '';
	}
my $discussiononly=0;	my $discussiononly=0;
if ($mode eq 'board') { $discussiononly=1; }	if ($mode eq 'board') { $discussiononly=1; }
unless ($ENV{'request.course.id'}) { return ''; }	unless ($ENV{'request.course.id'}) { return ''; }
Line 753 sub handler {	Line 757 sub handler {
&mt('Changed discussion status').'<br />','0','0');	&mt('Changed discussion status').'<br />','0','0');
} elsif ($ENV{'form.preview'}) {	} elsif ($ENV{'form.preview'}) {
# -------------------------------------------------------- User wants a preview	# -------------------------------------------------------- User wants a preview
	$r->content_type('text/html');
	$r->send_http_header;
&show_preview($r);	&show_preview($r);
} else {	} else {
# ------------------------------------------------------------- Normal feedback	# ------------------------------------------------------------- Normal feedback