--- loncom/interface/lonbulletin.pm 2002/09/10 20:53:36 1.2
+++ loncom/interface/lonbulletin.pm 2010/10/27 01:00:38 1.62
@@ -1,7 +1,7 @@
# The LearningOnline Network
-# Simple Page Editor
+# Bulletin Board Handler
#
-# $Id: lonbulletin.pm,v 1.2 2002/09/10 20:53:36 www Exp $
+# $Id: lonbulletin.pm,v 1.62 2010/10/27 01:00:38 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -33,140 +33,321 @@ use Apache::Constants qw(:common);
use Apache::loncommon;
use Apache::lonnet;
use Apache::lontexconvert;
+use Apache::lonfeedback;
+use Apache::lonlocal;
+use Apache::lonhtmlcommon;
+use HTML::Entities();
+use LONCAPA;
sub handler {
my $r = shift;
- $r->content_type('text/html');
+ &Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
return OK if $r->header_only;
+ my $target=$env{'form.grade_target'};
# ------------------------------------------------------------ Print the screen
- $r->print(<
-
-The LearningOnline Network with CAPA
-
-ENDDOCUMENT
+ if ($target eq 'tex') {
+ $r->print(&Apache::lonprintout::print_latex_header($env{'form.latex_type'}));
+ }
my (undef,undef,undef,undef,$marker)=split(/\//,$r->uri);
# Is this even in a course?
- unless ($ENV{'request.course.id'}) {
- $r->print('Not in a course');
+ if (!$env{'request.course.id'}) {
+ &Apache::loncommon::simple_error_page($r,'Not in a course',
+ 'Not in a course');
return OK;
}
$marker=~s/\D//g;
- unless ($marker) {
- $r->print('Invalid call');
+ if (!$marker) {
+ &Apache::loncommon::simple_error_page($r,'Invalid Call',
+ 'Invalid Call');
return OK;
}
- my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
- my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
+ my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+ my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
+ my ($group,$grp_desc);
# --------------------------------------------------------- The syllabus fields
- my %syllabusfields=(
+ my %syllabusfields=&Apache::lonlocal::texthash(
'aaa_title' => 'Topic',
'bbb_content' => 'Task',
'ccc_webreferences' => 'Web References');
-# --------------------------------------------------------------- Force Student
+# ------------------------------------------------------------ Get Query String
&Apache::loncommon::get_unprocessed_cgi
- ($ENV{'QUERY_STRING'},['forcestudent']);
+ ($ENV{'QUERY_STRING'},['forcestudent','forceedit','register',
+ 'origpage','group','ref']);
+# ----------------------------------------------------- Force menu registration
+ my %addentries;
+ if ($env{'form.origpage'}) {
+ $addentries{'onload'} = "document.location='#newpost';";
+ }
+# --------------------------------------------------------------- Force Student
my $forcestudent='';
- if ($ENV{'form.forcestudent'}) { $forcestudent='student'; };
+ if ($env{'form.forcestudent'}) { $forcestudent='student'; }
+
+ my $forceedit='';
+ if ($env{'form.forceedit'}) { $forceedit='edit'; }
+ my $refarg = '';
+ if (exists($env{'form.ref'})) { $refarg = 'ref='.$env{'form.ref'}; }
my %syllabus=&Apache::lonnet::dump('bulletinpage_'.$marker,$dom,$crs);
-
+
+ my $boardurl = $r->uri;
+ if ($boardurl =~ m|/adm/\Q$dom\E/\Q$crs\E/\d+/bulletinboard|) {
+ if (!exists($syllabus{'group'})) {
+ &Apache::loncommon::simple_error_page($r,'Group information missing',
+ 'Group information missing');
+
+ return OK;
+ } else {
+ $group = $syllabus{'group'};
+ if ($group eq '') {
+ &Apache::loncommon::simple_error_page($r,'Invalid group',
+ 'Invalid group');
+ return OK;
+ }
+ my %curr_groups = &Apache::longroup::coursegroups($dom,$crs,$group);
+ if (!defined($curr_groups{$group})) {
+ &Apache::loncommon::simple_error_page($r,'Invalid group',
+ 'Invalid group');
+ return OK;
+ } else {
+ my %content = &Apache::longroup::get_group_settings(
+ $curr_groups{$group});
+ $grp_desc = &unescape($content{'description'});
+ }
+ }
+ }
+
# --------------------------------------- There is such a user, get environment
+ if ($target ne 'tex') {
+ my $course_or_group;
+ if($group eq '') {
+ $course_or_group="Course";
+ } else {
+ $course_or_group="Group";
+ }
+ my $start_page =
+ &Apache::loncommon::start_page("$course_or_group Discussion Board",undef,
+ {'function' => $forcestudent,
+ 'add_entries' => \%addentries,
+ 'domain' => $dom,
+ 'force_register' =>
+ $env{'form.register'}});
+ $r->print($start_page);
+ if ($group ne '' && $env{'form.group'} eq $group) {
+ my $gpterm = &Apache::loncommon::group_term();
+ my $ucgpterm = $gpterm;
+ $ucgpterm =~ s/^(\w)/uc($1)/e;
+ my ($groupboards,$boards) =
+ &Apache::longroup::get_group_bbinfo($dom,$crs,$group,$boardurl);
+ my $boardtitle;
+ if ((ref($groupboards) eq 'ARRAY') && (@{$groupboards} > 0)) {
+ $boardtitle = $$boards{$$groupboards[0]}{'title'};
+ }
+ $boardurl .= '?register=1&group='.$group;
+ $r->print(&groupboard_breadcrumbs($dom,$crs,$group,$refarg,$gpterm,
+ $ucgpterm,$grp_desc,$boardurl,$boardtitle));
+ }
+ }
+ my ($allowed);
+ if ($group ne '') {
+ $allowed=&Apache::lonnet::allowed('mdg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
+ if (!$allowed) {
+ $allowed = &Apache::lonnet::allowed('cgb',$env{'request.course.id'}.
+ '/'.$group);
+ }
+ if (!$allowed) {
+ if ((!&Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) &&
+ (!&Apache::lonnet::allowed('vgb',$env{'request.course.id'}.
+ '/'.$group))) {
+ &print_end_page($r,$target);
+ return OK;
+ }
+ }
+ } else {
+ $allowed=&Apache::lonnet::allowed('mdc',$env{'request.course.id'});
+ }
- $r->print(&Apache::loncommon::bodytag
- ("Bulletin Board/Discussion",$forcestudent,'','',$dom));
+ my $privileged=$allowed;
+ if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) {
+ $forcestudent='student';
+ }
+ if ($forcestudent or $target eq 'tex') { $allowed=0; }
- my $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'});
+ if ($allowed) {
+ my $query_str = 'forcestudent=1';
+ if (($group ne '') && ($env{'form.group'} eq $group)) {
+ $query_str.='&group='.$group.'&'.$refarg;
+ }
+ if ($env{'form.register'}) {
+ $query_str .= '®ister='.$env{'form.register'};
+ }
+ #Function Box for Edit Mode.
+ my $functionbox = &Apache::lonhtmlcommon::start_funclist();
+ $functionbox .= &Apache::lonhtmlcommon::add_item_funclist(
+ ''.&mt('Show Student View').''.
+ &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView'));
+ $functionbox.=&Apache::lonhtmlcommon::end_funclist();
+ $r->print(&Apache::loncommon::head_subbox($functionbox).&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')));
+ } elsif ($privileged and $target ne 'tex') {
+ my $query_str = 'forceedit=edit';
+ if (($group ne '') && ($env{'form.group'} eq $group)) {
+ $query_str.='&group='.$group.'&'.$refarg;
+ }
+ if ($env{'form.register'}) {
+ $query_str .= '®ister='.$env{'form.register'};
+ }
+ #Functionbox for Student view.
+ my $functionbox = &Apache::lonhtmlcommon::start_funclist();
+ $functionbox .= &Apache::lonhtmlcommon::add_item_funclist(
+ "".&mt('Edit')."");
+ $functionbox.=&Apache::lonhtmlcommon::end_funclist();
+ $r->print(&Apache::loncommon::head_subbox($functionbox));
+ }
- if ($forcestudent) { $allowed=0; }
-
- if ($allowed) {
- $r->print(
- 'Show Public View
');
- }
- if (($ENV{'form.uploaddoc.filename'}) &&
- ($ENV{'form.storeupl'}) && ($allowed)) {
- if ($ENV{'form.uploaddoc.filename'}=~/\.(gif|jpg|png|jpeg)$/) {
- $syllabus{'uploaded.photourl'}=
- &Apache::lonnet::userfileupload('uploaddoc',1);
- }
- $syllabus{'uploaded.lastmodified'}=time;
- &Apache::lonnet::put('bulletinpage_'.$marker,\%syllabus,$dom,$crs);
- }
- if (($allowed) && ($ENV{'form.storesyl'})) {
- foreach (keys %syllabusfields) {
- my $field=$ENV{'form.'.$_};
- $field=~s/\s+$//s;
- $field=~s/\\<\;/g;
- $field=~s/\>/\>\;/g;
- $syllabus{$_}=$field;
- }
- $syllabus{'uploaded.lastmodified'}=time;
- &Apache::lonnet::put('bulletinpage_'.$marker,\%syllabus,$dom,$crs);
- }
+ if (($env{'form.uploaddoc.filename'}) &&
+ ($env{'form.storeupl'}) && ($allowed)) {
+ if ($env{'form.uploaddoc.filename'}=~/\.(gif|jpg|png|jpeg)$/i) {
+ if ($syllabus{'uploaded.photourl'}) {
+ &Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'});
+ }
+ if ($group ne '') {
+ $syllabus{'uploaded.photourl'}=
+ &Apache::lonnet::userfileupload('uploaddoc','coursedoc',
+ 'bulletin/'.$group.'/'.$marker);
+ } else {
+ $syllabus{'uploaded.photourl'}=
+ &Apache::lonnet::userfileupload('uploaddoc','coursedoc',
+ 'bulletin/'.$marker);
+ }
+ }
+ $syllabus{'uploaded.lastmodified'}=time;
+ &Apache::lonnet::put('bulletinpage_'.$marker,\%syllabus,$dom,$crs);
+ }
+ if (($allowed) && ($env{'form.storesyl'})) {
+ foreach my $syl_field (keys(%syllabusfields)) {
+ my $field=$env{'form.'.$syl_field};
+ $field=~s/\s+$//s;
+ $field=&Apache::lonfeedback::clear_out_html($field,1);
+ $syllabus{$syl_field}=$field;
+ }
+ $syllabus{'uploaded.lastmodified'}=time;
+ &Apache::lonnet::put('bulletinpage_'.$marker,\%syllabus,$dom,$crs);
+ }
-# ---------------------------------------------------------------- Get syllabus
+# ---------------------------------------------------------------- Get discussion board
if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {
- if ($syllabus{'uploaded.photourl'}) {
- $r->print('
');
- }
- if ($allowed) {
- $r->print(
- '');
- }
- $r->print('
');
+ #Print Topic as Heading
+ my $titletext=&HTML::Entities::encode($syllabus{'aaa_title'},'<>&"');;
+ if ($target ne 'tex') {
+ $r->print(''.$titletext.'
');
+ } else {
+ $r->print('\\\\\textbf{'.&Apache::lonxml::xmlparse($r,'tex',$titletext).'}\\\\');
+ }
+ #Outputbox and Inputbox for Topic
+ if ($allowed) {
+ $r->print(''.
+ &Apache::lonhtmlcommon::htmlareaselectactive());
+ }
+ if ($target ne 'tex'){
+ $r->print('
');
+ }
+ else {
+ $r->print(&Apache::lonxml::xmlparse($r,'tex','
'));
+ }
} else {
- $r->print('No page information provided.
');
+ if ($target ne 'tex') {
+ $r->print(''.&mt('No page information provided.').'
');
+ }
}
- $r->print(&Apache::lonxml::xmlend(1,'bulletin___'.$marker.'___'.
- 'adm/wrapper'.$r->uri).'