--- loncom/interface/lonbulletin.pm 2002/09/11 13:36:50 1.3 +++ loncom/interface/lonbulletin.pm 2008/03/03 11:25:59 1.46 @@ -1,7 +1,7 @@ # The LearningOnline Network -# Simple Page Editor +# Bulletin Board Handler # -# $Id: lonbulletin.pm,v 1.3 2002/09/11 13:36:50 www Exp $ +# $Id: lonbulletin.pm,v 1.46 2008/03/03 11:25:59 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -33,81 +33,190 @@ use Apache::Constants qw(:common); use Apache::loncommon; use Apache::lonnet; use Apache::lontexconvert; -use Apache::lonxml; +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 $start_page = + &Apache::loncommon::start_page("Bulletin Board/Discussion",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 $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}); - - if ($forcestudent) { $allowed=0; } + my $privileged=$allowed; + if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) { + $forcestudent='student'; + } + if ($target ne 'tex') { $r->print('
'); } + if ($forcestudent or $target eq 'tex') { $allowed=0; } - if ($allowed) { + if ($allowed) { + my $query_str = 'forcestudent=1'; + if (($group ne '') && ($env{'form.group'} eq $group)) { + $query_str.='&group='.$group.'&'.$refarg; + } $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); + '

'. +&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')).'
'.&mt('Show Student View').''. + &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'

'); + } elsif ($privileged and $target ne 'tex') { + my $query_str = 'forceedit=edit'; + if (($group ne '') && ($env{'form.group'} eq $group)) { + $query_str.='&group='.$group.'&'.$refarg; + } + $r->print('' + .&mt('Edit').''); + } + + 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',1, + 'bulletin/'.$group.'/'.$marker); + } else { + $syllabus{'uploaded.photourl'}= + &Apache::lonnet::userfileupload('uploaddoc',1, + 'bulletin/'.$marker); + } } $syllabus{'uploaded.lastmodified'}=time; &Apache::lonnet::put('bulletinpage_'.$marker,\%syllabus,$dom,$crs); } - if (($allowed) && ($ENV{'form.storesyl'})) { - foreach (keys %syllabusfields) { - my $field=$ENV{'form.'.$_}; + if (($allowed) && ($env{'form.storesyl'})) { + foreach my $syl_field (keys(%syllabusfields)) { + my $field=$env{'form.'.$syl_field}; $field=~s/\s+$//s; - $field=~s/\/\>\;/g; - $syllabus{$_}=$field; + $field=&Apache::lonfeedback::clear_out_html($field,1); + $syllabus{$syl_field}=$field; } $syllabus{'uploaded.lastmodified'}=time; &Apache::lonnet::put('bulletinpage_'.$marker,\%syllabus,$dom,$crs); @@ -116,43 +225,61 @@ ENDDOCUMENT # ---------------------------------------------------------------- Get syllabus if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) { if ($syllabus{'uploaded.photourl'}) { - $r->print(''); + &Apache::lonnet::allowuploaded('/adm/syllabus', + $syllabus{'uploaded.photourl'}); + $r->print(''); } if ($allowed) { $r->print( '
'. - '

Upload a Photo

'. + ''. + '

'.&mt('Upload a Photo').'

'. ''. - ''. - '
'); + ''. + '
'. + ''); } - foreach (sort keys %syllabusfields) { - if (($syllabus{$_}) || ($allowed)) { - my $message=$syllabus{$_}; - $message=~s/\n/\
/g; - $message - =~s/(http\:\/\/[^\s]+)/\\$1\<\/tt\>\<\/a\>/g; + foreach my $field (sort(keys(%syllabusfields))) { + if (($syllabus{$field}) || ($allowed)) { + my $message=$syllabus{$field}; + &Apache::lonfeedback::newline_to_br(\$message); + $message + =~s/(https*\:\/\/[^\s]+)/\\$1\<\/tt\>\<\/a\>/g; + if ($allowed) { + $message=&Apache::lonspeller::markeduptext($message); + } $message=&Apache::lontexconvert::msgtexconverted($message); - unless ($_ eq 'aaa_title') { - if (($_ ne 'bbb_content') || ($allowed)) { - $r->print('

'.$syllabusfields{$_}.'

'); + unless ($field eq 'aaa_title') { + if (($field ne 'bbb_content') || ($allowed)) { + if ($target ne 'tex') { + $r->print('

'.$syllabusfields{$field}.'

'); + } else { + $r->print('\\\\\textbf{'.$syllabusfields{$field}.'}\\\\'); + } + } + if ($target ne 'tex') { + $r->print('
'. + $message.'
'); + } else { + $r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$message).' '); } - $r->print('
'. - $message.'
'); if ($allowed) { - $r->print('
'); + $r->print('
'); } } else { - $r->print('

'.$message.'

'); + if ($target ne 'tex') { + $r->print('

'.$message.'

'); + } else { + $r->print('\\\\\textbf{'.&Apache::lonxml::xmlparse($r,'tex',$message).'}\\\\'); + } if ($allowed) { $r->print( - '
Topic
'); + '
'.&mt('Topic').'
'); } } } @@ -160,14 +287,57 @@ ENDDOCUMENT if ($allowed) { $r->print(''); } - $r->print('

'); + if ($target ne 'tex') {$r->print('

');} else {$r->print('\\\\');} } else { - $r->print('

No page information provided.

'); + $r->print('

'.&mt('No page information provided.').'

'); } - $r->print(&Apache::lonxml::xmlend(1,'bulletin___'.$marker.'___'. - 'adm/wrapper'.$r->uri).''); + if ($target ne 'tex') { $r->print('
'); } + if ($target ne 'tex') { + $r->print(&Apache::lonfeedback::list_discussion + ('board','OPEN','bulletin___'.$marker.'___'. + $r->uri,undef,$group)); + } else { + $r->print('\\\\'.&Apache::lonxml::xmlparse($r,'tex',&Apache::lonfeedback::list_discussion + ('board','OPEN','bulletin___'.$marker.'___'. + $r->uri,undef,$group))); + } + &print_end_page($r,$target); return OK; -} +} + +sub print_end_page { + my ($r,$target) = @_; + if ($target ne 'tex') { + $r->print(&Apache::loncommon::end_page()); + } else { + $r->print('\end{document}'); + } +} + +sub groupboard_breadcrumbs { + my ($cdom,$cnum,$group,$refarg,$gpterm,$ucgpterm,$description,$boardurl, + $boardtitle)= @_; + &Apache::lonhtmlcommon::clear_breadcrumbs(); + if ($refarg ne '') { + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>"/adm/coursegroups", + text=>"Groups", + title=>"View course groups"}); + } + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>"/adm/$cdom/$cnum/$group/smppg?$refarg", + text=>"$ucgpterm: $description", + title=>"Go to group's home page"}, + {href=>"/adm/groupboards?group=$group&$refarg", + text=>"Discussion Boards", + title=>"Display group discussion boards"}, + {href=>"$boardurl", + text=>"$boardtitle", + title=>"$boardtitle"}, + ); + my $output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('[_1] discussion boards - [_2]',$gpterm,$description)); + return $output; +} 1; __END__ 500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.