loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.54, 2003/09/14 23:57:18	version 1.56, 2003/09/15 18:43:54
Line 53 use Apache::loncommon();	Line 53 use Apache::loncommon();
use Apache::lontexconvert();	use Apache::lontexconvert();

sub list_discussion {	sub list_discussion {
my ($crs,$symb,$discussiononly)=@_;	my ($discussiononly,$symb)=@_;
	unless ($ENV{'request.course.id'}) { return ''; }
	my $crs='/'.$ENV{'request.course.id'};
	if ($ENV{'request.course.sec'}) {
	$crs.='_'.$ENV{'request.course.sec'};
	}
	$crs=~s/\_/\//g;
unless ($symb) {	unless ($symb) {
$symb=&Apache::lonnet::symbread();	$symb=&Apache::lonnet::symbread();
}	}
Line 729 sub handler {	Line 735 sub handler {
}	}
} else {	} else {
# Ambiguous Problem Resource	# Ambiguous Problem Resource
if ( Apache::exists_config_define("MODPERL2") ) {
&Apache::lonnet::cleanenv();	&Apache::lonnet::cleanenv();
}
$r->internal_redirect('/adm/ambiguous');	$r->internal_redirect('/adm/ambiguous');
}	}
}	}