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.55, 2003/09/15 13:38:19
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();
}	}