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

Diff for /loncom/interface/lonbulletin.pm between versions 1.53 and 1.57

version 1.53, 2009/12/07 14:23:43 version 1.57, 2009/12/22 06:32:04
Line 234  sub handler { Line 234  sub handler {
         &Apache::lonnet::put('bulletinpage_'.$marker,\%syllabus,$dom,$crs);          &Apache::lonnet::put('bulletinpage_'.$marker,\%syllabus,$dom,$crs);
     }      }
   
 # ---------------------------------------------------------------- Get syllabus  # ---------------------------------------------------------------- Get discussion board
     if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {      if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {
           #Print Topic as Heading
           my $titletext=&HTML::Entities::encode($syllabus{'aaa_title'},'<>&"');;
           if ($target ne 'tex') {
               $r->print('<h2>'.$titletext.'</h2>');
           } else {
               $r->print('\\\\\textbf{'.&Apache::lonxml::xmlparse($r,'tex',$titletext).'}\\\\');
           }
           #Outputbox and Inputbox for Topic
           if ($allowed) {
               $r->print('<form method="post" action="" enctype="multipart/form-data">');
               &Apache::lontemplate::print_start_template($r,&mt('Title'),'LC_Box');
               $r->print($titletext);
    $r->print("<br /><div>");
    &Apache::lontemplate::print_textarea_template($r, $syllabus{'aaa_title'},
    'aaa_title', Apache::lontemplate->RICH_TEXT_ALWAYS_OFF);
    &Apache::lontemplate::print_saveall_template($r);
    $r->print("</div>");
    &Apache::lontemplate::print_end_template($r);
           }
         if ($syllabus{'uploaded.photourl'}) {          if ($syllabus{'uploaded.photourl'}) {
             &Apache::lonnet::allowuploaded('/adm/syllabus',              &Apache::lonnet::allowuploaded('/adm/syllabus',
                                            $syllabus{'uploaded.photourl'});                                             $syllabus{'uploaded.photourl'});
         }          }
           my @htmlids=();
         #Outputbox and Inputbox for Image upload          #Outputbox and Inputbox for Image upload
         if ($allowed) {          if ($allowed) {
             &Apache::lontemplate::print_template($r, &mt('Upload a Photo'), '<img src="'.$syllabus{'uploaded.photourl'}.'"/>',$allowed,'LC_Box');          my $message = '<img src="'.$syllabus{'uploaded.photourl'}.'" alt="'.&mt('Image').'"/>';
           &Apache::lontemplate::print_start_template($r, &mt('Upload a Photo'),'LC_Box');
               $r->print($message);
               $r->print("<br /><br />");
             $r->print(              $r->print(
                 '<form method="post" enctype="multipart/form-data">'.  
                 '<input type="hidden" name="forceedit" value="edit" />'.                  '<input type="hidden" name="forceedit" value="edit" />'.
                 '<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">'.  
                 '<input type="hidden" name="forceedit" value="edit" />');                  '<input type="hidden" name="forceedit" value="edit" />');
               &Apache::lontemplate::print_end_template($r);
         }          }
         #Image in Student view.          #Image in Student view.
         elsif($syllabus{'uploaded.photourl'} && $target ne 'tex'){          elsif($syllabus{'uploaded.photourl'} && $target ne 'tex'){
             $r->print('<img src="'.$syllabus{'uploaded.photourl'}.'"/>');              $r->print('<img src="'.$syllabus{'uploaded.photourl'}.'" alt="'.&mt('Image').'"/>');
         }          }
         foreach my $field (sort(keys(%syllabusfields))) {          foreach my $field (sort(keys(%syllabusfields))) {
             if (($syllabus{$field}) || ($allowed)) {              if (($syllabus{$field}) || ($allowed)) {
                 my $message=$syllabus{$field};                  my $message=$syllabus{$field};
                 if (!&Apache::lonfeedback::contains_block_html($message)) {                  if (!&Apache::lonfeedback::contains_block_html($message)) {
                 &Apache::lonfeedback::newline_to_br(\$message);                  &Apache::lonfeedback::newline_to_br(\$message);
                 }                  } else {
                       $message = &Apache::lonfeedback::tidy_html($message);
    }
                 $message=&Apache::lonhtmlcommon::raw_href_to_link($message);                  $message=&Apache::lonhtmlcommon::raw_href_to_link($message);
                 if ($allowed) {                  if ($allowed) {
                     $message=&Apache::lonspeller::markeduptext($message);                      $message=&Apache::lonspeller::markeduptext($message);
                 }                  }
                 $message=&Apache::lontexconvert::msgtexconverted($message);                  $message=&Apache::lontexconvert::msgtexconverted($message);
                 unless ($field eq 'aaa_title') {                  unless ($field eq 'aaa_title') {
                     #Outputbox  
                     if ($target ne 'tex') {                      if ($target ne 'tex') {
                         &Apache::lontemplate::print_template($r, $syllabusfields{$field}, $message,$allowed,'LC_Box');   #output of syllabusfields will be generated here. 
    &Apache::lontemplate::print_start_template($r,$syllabusfields{$field},'LC_Box');
                           $r->print($message);
                           if ($allowed) {
                               $r->print("<br /><div>");
                               &Apache::lontemplate::print_textarea_template($r, $syllabus{$field},
                               $field, Apache::lontemplate->RICH_TEXT_DETECT_HTML);
                               &Apache::lontemplate::print_saveall_template($r);
    $r->print("</div>");
    } 
                       &Apache::lontemplate::print_end_template($r);
                       push(@htmlids,$field);
                     } else {                      } else {
                         $r->print('\\\\\textbf{'.$syllabusfields{$field}.'}\\\\'.&Apache::lonxml::xmlparse($r,'tex',$message));                          $r->print('\\\\\textbf{'.$syllabusfields{$field}.'}\\\\'.&Apache::lonxml::xmlparse($r,'tex',$message));
                     }                      }
                     #Inputbox                  }   
                     if ($allowed) {  
                          &Apache::lontemplate::print_editbox_template($r, $syllabus{$field}, $field);  
                     }  
                 } else {  
                     #Print Topic as Heading  
                     if ($target ne 'tex') {  
                         $r->print('<h1>'.$message.'</h1>');  
                     } else {  
                         $r->print('\\\\\textbf{'.&Apache::lonxml::xmlparse($r,'tex',$message).'}\\\\');  
                     }  
                     #Outputbox and Inputbox for Topic  
                     if ($allowed) {  
                              &Apache::lontemplate::print_template($r, $syllabusfields{$field}, $message,$allowed,'LC_Box');  
                              &Apache::lontemplate::print_editbox_template($r, $syllabus{$field}, $field);  
                     }  
                 }  
             }              }
         }          }
         if ($allowed) {          if ($allowed) {
             $r->print('</form>');              $r->print('</form>'.
               &Apache::lonhtmlcommon::htmlareaselectactive(@htmlids));
           }
           if ($target ne 'tex'){
               $r->print('<br/><br/><hr/><br/>');
           }
           else {
               $r->print(&Apache::lonxml::xmlparse($r,'tex','<br/><br/><hr/><br/>'));
         }          }
     } else {      } else {
         $r->print('<p>'.&mt('No page information provided.').'</p>');          $r->print('<p>'.&mt('No page information provided.').'</p>');
Removed from v.1.53  
changed lines
  Added in v.1.57

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>