version 1.56, 2003/09/15 18:43:54
|
version 1.58, 2003/09/15 21:50:49
|
Line 53 use Apache::loncommon();
|
Line 53 use Apache::loncommon();
|
use Apache::lontexconvert(); |
use Apache::lontexconvert(); |
|
|
sub list_discussion { |
sub list_discussion { |
my ($discussiononly,$symb)=@_; |
my ($mode,$status,$symb)=@_; |
|
my $discussiononly=0; |
|
if ($mode eq 'board') { $discussiononly=1; } |
unless ($ENV{'request.course.id'}) { return ''; } |
unless ($ENV{'request.course.id'}) { return ''; } |
my $crs='/'.$ENV{'request.course.id'}; |
my $crs='/'.$ENV{'request.course.id'}; |
if ($ENV{'request.course.sec'}) { |
if ($ENV{'request.course.sec'}) { |
Line 735 sub handler {
|
Line 737 sub handler {
|
} |
} |
} else { |
} else { |
# Ambiguous Problem Resource |
# Ambiguous Problem Resource |
|
if ( $Apache::lonnet::perlvar{'MODPERL2'} ) { |
&Apache::lonnet::cleanenv(); |
&Apache::lonnet::cleanenv(); |
|
} |
$r->internal_redirect('/adm/ambiguous'); |
$r->internal_redirect('/adm/ambiguous'); |
} |
} |
} |
} |