version 1.54, 2003/09/14 23:57:18
|
version 1.57, 2003/09/15 19:56:44
|
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 ($mode,$status,$symb)=@_; |
|
my $discussiononly=0; |
|
if ($mode eq 'board') { $discussiononly=1; } |
|
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 737 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'); |
} |
} |
} |
} |