version 1.11, 2003/07/10 10:53:18
|
version 1.14, 2003/09/15 19:56:44
|
Line 33 use Apache::Constants qw(:common);
|
Line 33 use Apache::Constants qw(:common);
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lontexconvert; |
use Apache::lontexconvert; |
use Apache::lonxml; |
|
use Apache::lonfeedback; |
use Apache::lonfeedback; |
|
|
sub handler { |
sub handler { |
Line 93 ENDDOCUMENT
|
Line 92 ENDDOCUMENT
|
("Bulletin Board/Discussion",$forcestudent,$addentries,'',$dom, |
("Bulletin Board/Discussion",$forcestudent,$addentries,'',$dom, |
$ENV{'form.register'})); |
$ENV{'form.register'})); |
|
|
my $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}); |
my $allowed=&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'}); |
|
|
if ($forcestudent) { $allowed=0; } |
if ($forcestudent) { $allowed=0; } |
|
|
Line 174 ENDDOCUMENT
|
Line 173 ENDDOCUMENT
|
} else { |
} else { |
$r->print('<p>No page information provided.</p>'); |
$r->print('<p>No page information provided.</p>'); |
} |
} |
$r->print(&Apache::lonxml::xmlend(1,'bulletin___'.$marker.'___'. |
$r->print(&Apache::lonfeedback::list_discussion |
'adm/wrapper'.$r->uri).'</body></html>'); |
('board','OPEN','bulletin___'.$marker.'___'. |
|
'adm/wrapper'.$r->uri).'</body></html>'); |
return OK; |
return OK; |
} |
} |
|
|