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