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

Diff for /loncom/interface/lonsyllabus.pm between versions 1.87 and 1.89

version 1.87, 2009/04/21 17:54:27 version 1.89, 2009/05/11 13:34:10
Line 248  if( ($allowed) && ($target ne 'tex') ) { Line 248  if( ($allowed) && ($target ne 'tex') ) {
   
 #-Print Help Text  #-Print Help Text
 if ($target ne 'tex') {  if ($target ne 'tex') {
  if($allowed){   if ($allowed) {
  $r->print(&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')));   $r->print(&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')));
  }   }
 }  }
   #----------Print last update
    my $lastmod=$syllabus{'uploaded.lastmodified'};
          $lastmod=($lastmod?&Apache::lonlocal::locallocaltime($lastmod):&mt('never'));
          my $who = &Apache::loncommon::aboutmewrapper(
                       &Apache::loncommon::plainname($syllabus{'uploaded.name'},
                        $syllabus{'uploaded.domain'}),$syllabus{'uploaded.name'},
                        $syllabus{'uploaded.domain'});
    if ($target ne 'tex') {
      $r->print('<div class="LC_info">'.&mt('Last updated').': '.
        $lastmod . ' '.
        ($who ? &mt('by').' '.$who
                              : '' ) .
                '</div>' );
   
          } else {
      $r->print('\\\\ '.&mt('Last updated').': '.$lastmod.' '.
        ($who? &mt('by').'\\\\ '.
               &Apache::loncommon::plainname($syllabus{'uploaded.name'},$syllabus{'uploaded.domain'})
             :'')
        .'\\\\');
          }
 #--------Functions  #--------Functions
 if ($target ne 'tex') {  if ($target ne 'tex') {
  if($allowed || $privileged){   if( $allowed || $privileged) {
                 $r->print(&Apache::lontemplate::start_functionslist());                  $r->print(&Apache::lontemplate::start_functionslist());
  if($allowed){   if ($allowed) {
                     $r->print(&Apache::lontemplate::item_functionslist(                      $r->print(&Apache::lontemplate::item_functionslist(
                         '<a href="'.$r->uri.'?forcestudent=1">'.&mt('Show Public View').'</a>'                          '<a href="'.$r->uri.'?forcestudent=1">'.&mt('Show Public View').'</a>'
                        .&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView')));                         .&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView')));
  }elsif($privileged){   } elsif ($privileged) {
                     $r->print(&Apache::lontemplate::item_functionslist(                      $r->print(&Apache::lontemplate::item_functionslist(
                         '<a href="'.$r->uri.'?forceedit=1">'.&mt('Edit').'</a>'));                          '<a href="'.$r->uri.'?forceedit=1">'.&mt('Edit').'</a>'));
  }   }
Line 268  if ($target ne 'tex') { Line 289  if ($target ne 'tex') {
  }   }
  }   }
 #----------------------------Print Headtitle  #----------------------------Print Headtitle
 if($target ne 'tex'){  if ($target ne 'tex') {
  $r->print('<h1>'.$courseenv{'description'}.'</h1>');   $r->print('<h1>'.$courseenv{'description'}.'</h1>');
  $r->print('<h3>'.  &Apache::lonnet::domain($cdom,'description').'</h3>');   $r->print('<h3>'.  &Apache::lonnet::domain($cdom,'description').'</h3>');
 }else{  } else {
  $r->print('\noindent{\large\textbf{'.$courseenv{'description'}.'}}\\\\\\\\\textbf{'.   $r->print('\noindent{\large\textbf{'.$courseenv{'description'}.'}}\\\\\\\\\textbf{'.
  &Apache::lonnet::domain($cdom,'description').'}\\\\');   &Apache::lonnet::domain($cdom,'description').'}\\\\');
 }  }
Line 318  if($target ne 'tex'){ Line 339  if($target ne 'tex'){
     } else {      } else {
  $r->print('\end{tabular}\\\\');   $r->print('\end{tabular}\\\\');
     }      }
 #----------Print last update  
  my $lastmod=$syllabus{'uploaded.lastmodified'};  
        $lastmod=($lastmod?&Apache::lonlocal::locallocaltime($lastmod):&mt('never'));  
        my $who = &Apache::loncommon::aboutmewrapper(  
                     &Apache::loncommon::plainname($syllabus{'uploaded.name'},  
                      $syllabus{'uploaded.domain'}),$syllabus{'uploaded.name'},  
                      $syllabus{'uploaded.domain'});  
  if ($target ne 'tex') {  
    $r->print('<table><tr><td>'.&mt('Last updated').':</td><td>'.  
      $lastmod.'</td><td>'.  
      ($who ? &mt('by').' '.$who  
                            : '' ).  
      '</td></tr></table>');  
        } else {  
    $r->print('\\\\ '.&mt('Last updated').': '.$lastmod.' '.  
      ($who? &mt('by').'\\\\ '.  
             &Apache::loncommon::plainname($syllabus{'uploaded.name'},$syllabus{'uploaded.domain'})  
           :'')  
      .'\\\\');  
        }  
 # -------------------------------------------------------------- Announcements?  # -------------------------------------------------------------- Announcements?
     my $day = &Apache::lonannounce::showday(time,2,      my $day = &Apache::lonannounce::showday(time,2,
  &Apache::lonannounce::readcalendar($cdom.'_'.$cnum));   &Apache::lonannounce::readcalendar($cdom.'_'.$cnum));
     if ($target ne 'tex') {      if ($target ne 'tex') {
  if($allowed){   if ($allowed) {
  &Apache::lontemplate::print_start_template($r,'RSS Feeds and Blogs','LC_ContentBoxSpecial');   &Apache::lontemplate::print_start_template($r,'RSS Feeds and Blogs','LC_ContentBoxSpecial');
  $r->print(&Apache::lonrss::advertisefeeds($cnum,$cdom,$forceedit));   $r->print(&Apache::lonrss::advertisefeeds($cnum,$cdom,$forceedit));
  my $editurl= &Apache::lonnet::absolute_url().'/adm/'.$cdom.'/'.$cnum.'/_rss.html';   my $editurl= &Apache::lonnet::absolute_url().'/adm/'.$cdom.'/'.$cnum.'/_rss.html';
         $r->print( '<a href="'.$editurl.'">'.&mt('New RSS Feed or Blog').'</a>');          $r->print( '<a href="'.$editurl.'">'.&mt('New RSS Feed or Blog').'</a>');
  &Apache::lontemplate::print_end_template($r);   &Apache::lontemplate::print_end_template($r);
  }   } elsif (&Apache::lonrss::advertisefeeds($cnum,$cdom) ne '') {
  elsif(&Apache::lonrss::advertisefeeds($cnum,$cdom) ne ''){  
  &Apache::lontemplate::print_start_template($r,'RSS Feeds and Blogs','LC_ContentBoxSpecial');   &Apache::lontemplate::print_start_template($r,'RSS Feeds and Blogs','LC_ContentBoxSpecial');
  $r->print(&Apache::lonrss::advertisefeeds($cnum,$cdom,$forceedit));   $r->print(&Apache::lonrss::advertisefeeds($cnum,$cdom,$forceedit));
  &Apache::lontemplate::print_end_template($r);   &Apache::lontemplate::print_end_template($r);
Line 382  if($target ne 'tex'){ Line 382  if($target ne 'tex'){
        } elsif ($embstyle eq 'img') {# embed as an image         } elsif ($embstyle eq 'img') {# embed as an image
    $output='<img src="'.$filelink.'" />';     $output='<img src="'.$filelink.'" />';
        }         }
        if($output ne ''){         if ($output ne '') {
        if ($target ne 'tex') {         if ($target ne 'tex') {
    $message.='<p>'.$output.'</p>';     $message.='<p>'.$output.'</p>';
        } else {         } else {
Line 404  if($target ne 'tex'){ Line 404  if($target ne 'tex'){
    }     }
    $message=&Apache::lontexconvert::msgtexconverted($message);     $message=&Apache::lontexconvert::msgtexconverted($message);
    if ($target ne 'tex') {     if ($target ne 'tex') {
  if($allowed){   if ($allowed) {
  $r->print('<p>');   $r->print('<p>');
  }   }
  &Apache::lontemplate::print_template($r, $syllabusfields{$field}, $message,$allowed,'LC_ContentBoxSpecial');   &Apache::lontemplate::print_template($r, $syllabusfields{$field}, $message,$allowed,'LC_ContentBoxSpecial');
Line 415  if($target ne 'tex'){ Line 415  if($target ne 'tex'){
    push(@htmlids,$field);     push(@htmlids,$field);
        }         }
        if ($allowed) {         if ($allowed) {
  if($target ne 'tex'){   if ($target ne 'tex') {
  $r->print('</p>');   $r->print('</p>');
  &Apache::lontemplate::print_editbox_template($r, $syllabus{$field}, $field);   &Apache::lontemplate::print_editbox_template($r, $syllabus{$field}, $field);
  }   }
Removed from v.1.87  
changed lines
  Added in v.1.89

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