version 1.8, 2003/03/03 13:03:58
|
version 1.15, 2003/09/17 19:45:39
|
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; |
|
use Apache::lonlocal; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 66 ENDDOCUMENT
|
Line 66 ENDDOCUMENT
|
my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'}; |
my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'}; |
|
|
# --------------------------------------------------------- The syllabus fields |
# --------------------------------------------------------- The syllabus fields |
my %syllabusfields=( |
my %syllabusfields=&Apache::lonnet::texthash( |
'aaa_title' => 'Topic', |
'aaa_title' => 'Topic', |
'bbb_content' => 'Task', |
'bbb_content' => 'Task', |
'ccc_webreferences' => 'Web References'); |
'ccc_webreferences' => 'Web References'); |
Line 93 ENDDOCUMENT
|
Line 93 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'}) && |
($ENV{'form.storeupl'}) && ($allowed)) { |
($ENV{'form.storeupl'}) && ($allowed)) { |
if ($ENV{'form.uploaddoc.filename'}=~/\.(gif|jpg|png|jpeg)$/) { |
if ($ENV{'form.uploaddoc.filename'}=~/\.(gif|jpg|png|jpeg)$/i) { |
$syllabus{'uploaded.photourl'}= |
$syllabus{'uploaded.photourl'}= |
&Apache::lonnet::userfileupload('uploaddoc',1); |
&Apache::lonnet::userfileupload('uploaddoc',1); |
} |
} |
Line 143 ENDDOCUMENT
|
Line 143 ENDDOCUMENT
|
my $message=$syllabus{$_}; |
my $message=$syllabus{$_}; |
$message=~s/\n/\<br \/\>/g; |
$message=~s/\n/\<br \/\>/g; |
$message |
$message |
=~s/(http\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g; |
=~s/(https*\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g; |
$message=&Apache::lontexconvert::msgtexconverted($message); |
$message=&Apache::lontexconvert::msgtexconverted($message); |
unless ($_ eq 'aaa_title') { |
unless ($_ eq 'aaa_title') { |
if (($_ ne 'bbb_content') || ($allowed)) { |
if (($_ ne 'bbb_content') || ($allowed)) { |
Line 174 ENDDOCUMENT
|
Line 174 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; |
} |
} |
|
|