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(); |
} |
} |