[BACK]Return to lonbulletin.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonbulletin.pm between versions 1.38 and 1.51

version 1.38, 2006/07/20 22:50:50 version 1.51, 2009/11/30 11:22:54
Line 36  use Apache::lontexconvert; Line 36  use Apache::lontexconvert;
 use Apache::lonfeedback;  use Apache::lonfeedback;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonhtmlcommon;  use Apache::lonhtmlcommon;
   use HTML::Entities();
 use LONCAPA;  use LONCAPA;
   
 sub handler {  sub handler {
Line 47  sub handler { Line 48  sub handler {
   
 # ------------------------------------------------------------ Print the screen  # ------------------------------------------------------------ Print the screen
     if ($target eq 'tex') {      if ($target eq 'tex') {
  $r->print(&Apache::lonprintout::print_latex_header($env{'form.latex_type'}));          $r->print(&Apache::lonprintout::print_latex_header($env{'form.latex_type'}));
     }      }
     my (undef,undef,undef,undef,$marker)=split(/\//,$r->uri);      my (undef,undef,undef,undef,$marker)=split(/\//,$r->uri);
 # Is this even in a course?  # Is this even in a course?
     if (!$env{'request.course.id'}) {      if (!$env{'request.course.id'}) {
  &Apache::loncommon::simple_error_page($r,'Not in a course',          &Apache::loncommon::simple_error_page($r,'Not in a course',
                 'Not in a course');                                                'Not in a course');
         return OK;          return OK;
     }      }
   
     $marker=~s/\D//g;      $marker=~s/\D//g;
   
     if (!$marker) {      if (!$marker) {
  &Apache::loncommon::simple_error_page($r,'Invalid Call',          &Apache::loncommon::simple_error_page($r,'Invalid Call',
       'Invalid Call');                                                'Invalid Call');
         return OK;          return OK;
     }      }
   
Line 82  sub handler { Line 83  sub handler {
 # ----------------------------------------------------- Force menu registration  # ----------------------------------------------------- Force menu registration
     my %addentries;      my %addentries;
     if ($env{'form.origpage'}) {      if ($env{'form.origpage'}) {
  $addentries{'onload'} = "document.location='#newpost';";          $addentries{'onload'} = "document.location='#newpost';";
     }      }
 # --------------------------------------------------------------- Force Student  # --------------------------------------------------------------- Force Student
     my $forcestudent='';      my $forcestudent='';
Line 121  sub handler { Line 122  sub handler {
             }              }
         }          }
     }      }
          
 # --------------------------------------- There is such a user, get environment  # --------------------------------------- There is such a user, get environment
     if ($target ne 'tex') {        if ($target ne 'tex') {
  my $start_page =          my $course_or_group;
     &Apache::loncommon::start_page("Bulletin Board/Discussion",undef,          if($group eq '') {
    {'function'       => $forcestudent,              $course_or_group="Course";
     'add_entries'    => \%addentries,          } else {
     'domain'         => $dom,              $course_or_group="Group";
     'force_register' =>          }
  $env{'form.register'}});          my $start_page =
  $r->print($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) {          if ($group ne '' && $env{'form.group'} eq $group) {
             my $gpterm =  &Apache::loncommon::group_term();              my $gpterm =  &Apache::loncommon::group_term();
             my $ucgpterm = $gpterm;              my $ucgpterm = $gpterm;
Line 157  sub handler { Line 164  sub handler {
         if (!$allowed) {          if (!$allowed) {
             if ((!&Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) &&              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'}.                 (!&Apache::lonnet::allowed('vgb',$env{'request.course.id'}.
                                                 '/'.$group))) {                                                   '/'.$group))) {
                  &print_end_page($r,$target);                   &print_end_page($r,$target);
                  return OK;                      return OK;
             }              }
         }          }
     } else {      } else {
Line 168  sub handler { Line 175  sub handler {
   
     my $privileged=$allowed;      my $privileged=$allowed;
     if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) {      if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) {
   $forcestudent='student';          $forcestudent='student';
     }      }
     if ($target ne 'tex') { $r->print('<table><tr><td>'); }      if ($target ne 'tex') { $r->print('<table><tr><td>'); }
       if ($forcestudent or $target eq 'tex') { $allowed=0; }      if ($forcestudent or $target eq 'tex') { $allowed=0; }
    
       if ($allowed) {      if ($allowed) {
           my $query_str = 'forcestudent=1';          my $query_str = 'forcestudent=1';
           if (($group ne '') && ($env{'form.group'} eq $group)) {          if (($group ne '') && ($env{'form.group'} eq $group)) {
               $query_str.='&amp;group='.$group.'&amp;'.$refarg;              $query_str.='&amp;group='.$group.'&amp;'.$refarg;
           }          }
           $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.'?'.$query_str.'"><font size="+1">'.&mt('Show Student View').'</font></a>'.              &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')).'<br /><a href="'.$r->uri.'?'.$query_str.'"><font size="+1">'.&mt('Show Student View').'</font></a>'.
  &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>');               &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>');
       }  elsif ($privileged and $target ne 'tex') {      }  elsif ($privileged and $target ne 'tex') {
           my $query_str = 'forceedit=edit';          my $query_str = 'forceedit=edit';
           if (($group ne '') && ($env{'form.group'} eq $group)) {          if (($group ne '') && ($env{'form.group'} eq $group)) {
               $query_str.='&amp;group='.$group.'&amp;'.$refarg;              $query_str.='&amp;group='.$group.'&amp;'.$refarg;
           }          }
   $r->print('<a href="'.$r->uri.'?'.$query_str.'"><font size="+1">'          $r->print('<a href="'.$r->uri.'?'.$query_str.'"><font size="+1">'
     .&mt('Edit').'</font></a>');                       .&mt('Edit').'</font></a>');
       }       }
   
       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)$/i) {          if ($env{'form.uploaddoc.filename'}=~/\.(gif|jpg|png|jpeg)$/i) {
       if ($syllabus{'uploaded.photourl'}) {              if ($syllabus{'uploaded.photourl'}) {
   &Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'});                  &Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'});
       }              }
               if ($group ne '') {              if ($group ne '') {
           $syllabus{'uploaded.photourl'}=                  $syllabus{'uploaded.photourl'}=
       &Apache::lonnet::userfileupload('uploaddoc',1,                      &Apache::lonnet::userfileupload('uploaddoc',1,
                                                       'bulletin/'.$group.'/'.$marker);                                                      'bulletin/'.$group.'/'.$marker);
               } else {              } else {
                   $syllabus{'uploaded.photourl'}=                  $syllabus{'uploaded.photourl'}=
                       &Apache::lonnet::userfileupload('uploaddoc',1,                      &Apache::lonnet::userfileupload('uploaddoc',1,
                                                       'bulletin/'.$marker);                                                        'bulletin/'.$marker);
               }              }
    }          }
           $syllabus{'uploaded.lastmodified'}=time;          $syllabus{'uploaded.lastmodified'}=time;
           &Apache::lonnet::put('bulletinpage_'.$marker,\%syllabus,$dom,$crs);          &Apache::lonnet::put('bulletinpage_'.$marker,\%syllabus,$dom,$crs);
        }      }
        if (($allowed) && ($env{'form.storesyl'})) {      if (($allowed) && ($env{'form.storesyl'})) {
    foreach (keys %syllabusfields) {          foreach my $syl_field (keys(%syllabusfields)) {
                my $field=$env{'form.'.$_};              my $field=$env{'form.'.$syl_field};
                $field=~s/\s+$//s;              $field=~s/\s+$//s;
                $field=&Apache::lonfeedback::clear_out_html($field,1);              $field=&Apache::lonfeedback::clear_out_html($field,1);
        $syllabus{$_}=$field;              $syllabus{$syl_field}=$field;
            }          }
            $syllabus{'uploaded.lastmodified'}=time;          $syllabus{'uploaded.lastmodified'}=time;
            &Apache::lonnet::put('bulletinpage_'.$marker,\%syllabus,$dom,$crs);          &Apache::lonnet::put('bulletinpage_'.$marker,\%syllabus,$dom,$crs);
        }      }
   
 # ---------------------------------------------------------------- Get syllabus  # ---------------------------------------------------------------- Get syllabus
     if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {      if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {
        if ($syllabus{'uploaded.photourl'}) {          if ($syllabus{'uploaded.photourl'}) {
    &Apache::lonnet::allowuploaded('/adm/syllabus',              &Apache::lonnet::allowuploaded('/adm/syllabus',
   $syllabus{'uploaded.photourl'});                                             $syllabus{'uploaded.photourl'});
    $r->print('<img src="'.$syllabus{'uploaded.photourl'}.              $r->print('<img src="'.$syllabus{'uploaded.photourl'}.
        '" align="right" />');              '" align="right" />');
        }          }
        if ($allowed) {          if ($allowed) {
            $r->print(              $r->print(
  '<form method="post" enctype="multipart/form-data">'.                  '<form method="post" enctype="multipart/form-data">'.
   '<input type="hidden" name="forceedit" value="edit" />'.                  '<input type="hidden" name="forceedit" value="edit" />'.
          '<h3>'.&mt('Upload a Photo').'</h3>'.                  '<h3>'.&mt('Upload a Photo').'</h3>'.
          '<input type="file" name="uploaddoc" size="50">'.                  '<input type="file" name="uploaddoc" size="50" />'.
          '<input type="submit" name="storeupl" value="'.&mt('Upload').'">'.                  '<input type="submit" name="storeupl" value="'.&mt('Upload').'" />'.
  '</form><form method="post">');                  '</form><form method="post">'.
        }                  '<input type="hidden" name="forceedit" value="edit" />');
        foreach (sort keys %syllabusfields) {          }
           if (($syllabus{$_}) || ($allowed)) {          foreach my $field (sort(keys(%syllabusfields))) {
               my $message=$syllabus{$_};              if (($syllabus{$field}) || ($allowed)) {
       &Apache::lonfeedback::newline_to_br(\$message);                  my $message=$syllabus{$field};
       $message                  if (!&Apache::lonfeedback::contains_block_html($message)) {
         =~s/(https*\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g;                  &Apache::lonfeedback::newline_to_br(\$message);
       if ($allowed) {                  }
   $message=&Apache::lonspeller::markeduptext($message);                  $message
       }                      =~s/(https*\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g;
       $message=&Apache::lontexconvert::msgtexconverted($message);  
       unless ($_ eq 'aaa_title') {  
  if (($_ ne 'bbb_content') || ($allowed)) {  
     if ($target ne 'tex') {  
  $r->print('<h3>'.$syllabusfields{$_}.'</h3>');  
     } else {  
  $r->print('\\\\\textbf{'.$syllabusfields{$_}.'}\\\\');  
     }  
  }  
  if ($target ne 'tex') {  
     $r->print('<blockquote>'.  
                               $message.'</blockquote>');  
  } else {  
     $r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$message).' ');  
  }  
                  if ($allowed) {  
                 $r->print('<br /><textarea cols="80" rows="10" name="'.$_.'">'.  
    $syllabus{$_}.  
            '</textarea><input type="submit" name="storesyl" value="'.&mt('Store').'" />');  
         }  
     } else {  
                 if ($target ne 'tex') {  
     $r->print('<h1>'.$message.'</h1>');  
  } else {  
     $r->print('\\\\\textbf{'.&Apache::lonxml::xmlparse($r,'tex',$message).'}\\\\');  
  }  
                 if ($allowed) {                  if ($allowed) {
                  $r->print(                      $message=&Apache::lonspeller::markeduptext($message);
                 '<br />'.&mt('Topic').'<br /><textarea cols="80" rows="2" name="'.$_.'">'.                  }
    $syllabus{$_}.                  $message=&Apache::lontexconvert::msgtexconverted($message);
            '</textarea><input type="submit" name="storesyl" value="'.&mt('Store').'" />');                  unless ($field eq 'aaa_title') {
                       if (($field ne 'bbb_content') || ($allowed)) {
                           if ($target ne 'tex') {
                               $r->print('<h3>'.$syllabusfields{$field}.'</h3>');
                           } else {
                               $r->print('\\\\\textbf{'.$syllabusfields{$field}.'}\\\\');
                           }
                       }
                       if ($target ne 'tex') {
                           $r->print('<blockquote>'.
                                     $message.'</blockquote>');
                       } else {
                           $r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$message).' ');
                       }
                       if ($allowed) {
                           $r->print('<br /><textarea cols="80" rows="10" name="'.$field.'">'.
                                     &HTML::Entities::encode($syllabus{$field},'&"<>').
                                     '</textarea><input type="submit" name="storesyl" value="'.&mt('Save').'" />');
                       }
                   } else {
                       if ($target ne 'tex') {
                           $r->print('<h1>'.$message.'</h1>');
                       } else {
                           $r->print('\\\\\textbf{'.&Apache::lonxml::xmlparse($r,'tex',$message).'}\\\\');
                       }
                       if ($allowed) {
                           $r->print(
                               '<br />'.&mt('Topic').'<br /><textarea cols="80" rows="2" name="'.$field.'">'.
                               &HTML::Entities::encode($syllabus{$field},'&"<>').
                               '</textarea><input type="submit" name="storesyl" value="'.&mt('Save').'" />');
                       }
                 }                  }
             }              }
   }          }
        }          if ($allowed) {
        if ($allowed) {              $r->print('</form>');
    $r->print('</form>');          }
        }          if ($target ne 'tex') {$r->print('</p>');} else {$r->print('\\\\');}
        if ($target ne 'tex') {$r->print('</p>');} else {$r->print('\\\\');}  
     } else {      } else {
        $r->print('<p>'.&mt('No page information provided.').'</p>');          $r->print('<p>'.&mt('No page information provided.').'</p>');
     }      }
     if ($target ne 'tex') { $r->print('</td></tr></table>'); }      if ($target ne 'tex') { $r->print('</td></tr></table>'); }
     if ($target ne 'tex') {      if ($target ne 'tex') {
  $r->print(&Apache::lonfeedback::list_discussion          $r->print(&Apache::lonfeedback::list_discussion
            ('board','OPEN','bulletin___'.$marker.'___'.                        ('board','OPEN','bulletin___'.$marker.'___'.
             $r->uri,undef,$group));                         $r->uri,undef,$group));
     } else {      } else {
  $r->print('\\\\'.&Apache::lonxml::xmlparse($r,'tex',&Apache::lonfeedback::list_discussion          $r->print('\\\\'.&Apache::lonxml::xmlparse($r,'tex',&Apache::lonfeedback::list_discussion
            ('board','OPEN','bulletin___'.$marker.'___'.                       ('board','OPEN','bulletin___'.$marker.'___'.
             $r->uri,undef,$group)));                        $r->uri,undef,$group)));
     }      }
     &print_end_page($r,$target);      &print_end_page($r,$target);
     return OK;      return OK;
Removed from v.1.38  
changed lines
  Added in v.1.51

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
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.