loncom/interface/lonbulletin.pm - diff

Return to lonbulletin.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.2, 2002/09/10 20:53:36	version 1.4, 2003/02/10 15:19:43
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;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 89 ENDDOCUMENT	Line 90 ENDDOCUMENT

if ($allowed) {	if ($allowed) {
$r->print(	$r->print(
'<p><a href="'.$r->uri.'?forcestudent=1">Show Public View</a></p>');	'<p><a href="'.$r->uri.'?forcestudent=1">Show Public View</a>'.
	&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').</p>');
}	}
if (($ENV{'form.uploaddoc.filename'}) &&	if (($ENV{'form.uploaddoc.filename'}) &&
($ENV{'form.storeupl'}) && ($allowed)) {	($ENV{'form.storeupl'}) && ($allowed)) {
Line 141 ENDDOCUMENT	Line 143 ENDDOCUMENT
$r->print('<blockquote>'.	$r->print('<blockquote>'.
$message.'</blockquote>');	$message.'</blockquote>');
if ($allowed) {	if ($allowed) {
$r->print('<br /><textarea cols="80" rows="20" name="'.$_.'">'.	$r->print('<br /><textarea cols="80" rows="10" name="'.$_.'">'.
$syllabus{$_}.	$syllabus{$_}.
'</textarea><input type="submit" name="storesyl" value="Store" />');	'</textarea><input type="submit" name="storesyl" value="Store" />');
}	}