version 1.10, 2003/06/20 13:31:46
|
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; } |
|
|
if ($allowed) { |
if ($allowed) { |
$r->print( |
$r->print( |
'<p>'. |
'<p>'. |
&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'<br /><a href="'.$r->uri.'?forcestudent=1">Show Public View</a>'. |
&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'<br /><a href="'.$r->uri.'?forcestudent=1"><font size="+1">Show Student View</font></a>'. |
&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>'); |
&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>'); |
} |
} |
if (($ENV{'form.uploaddoc.filename'}) && |
if (($ENV{'form.uploaddoc.filename'}) && |
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; |
} |
} |
|
|