loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.55, 2003/09/15 13:38:19	version 1.58, 2003/09/15 21:50:49
Line 53 use Apache::loncommon();	Line 53 use Apache::loncommon();
use Apache::lontexconvert();	use Apache::lontexconvert();

sub list_discussion {	sub list_discussion {
my ($discussiononly,$symb)=@_;	my ($mode,$status,$symb)=@_;
	my $discussiononly=0;
	if ($mode eq 'board') { $discussiononly=1; }
unless ($ENV{'request.course.id'}) { return ''; }	unless ($ENV{'request.course.id'}) { return ''; }
my $crs='/'.$ENV{'request.course.id'};	my $crs='/'.$ENV{'request.course.id'};
if ($ENV{'request.course.sec'}) {	if ($ENV{'request.course.sec'}) {
Line 735 sub handler {	Line 737 sub handler {
}	}
} else {	} else {
# Ambiguous Problem Resource	# Ambiguous Problem Resource
if ( Apache::exists_config_define("MODPERL2") ) {	if ( $Apache::lonnet::perlvar{'MODPERL2'} ) {
&Apache::lonnet::cleanenv();	&Apache::lonnet::cleanenv();
}	}
$r->internal_redirect('/adm/ambiguous');	$r->internal_redirect('/adm/ambiguous');