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

Diff for /loncom/interface/lonsyllabus.pm between versions 1.50 and 1.54

version 1.50, 2006/03/21 21:50:49 version 1.54, 2006/08/16 19:40:46
Line 38  use Apache::lonannounce; Line 38  use Apache::lonannounce;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonhtmlcommon;  use Apache::lonhtmlcommon;
 use Apache::lonspeller();  use Apache::lonspeller();
   use HTML::Entities();
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
Line 71  sub handler { Line 72  sub handler {
     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'}));
     }       } 
 # ----------------------------------------------------- Force menu registration  
     my $addentries='';  
     if ($env{'form.register'}) {  
        $addentries=' onLoad="'.&Apache::lonmenu::loadevents().  
            '" onUnload="'.&Apache::lonmenu::unloadevents().'"';  
     }  
 # -------------------------------------------------- Let's see who handles this  # -------------------------------------------------- Let's see who handles this
     my $externalsyllabus=$courseenv{'externalsyllabus'};      my $externalsyllabus=$courseenv{'externalsyllabus'};
   
Line 120  sub handler { Line 115  sub handler {
  my $start_page =    my $start_page = 
     &Apache::loncommon::start_page("Syllabus", $rss_link,      &Apache::loncommon::start_page("Syllabus", $rss_link,
    {'function'       => $forcestudent,     {'function'       => $forcestudent,
     'add_entries'    => $addentries,  
     'domain'         => $cdom,      'domain'         => $cdom,
     'force_register' =>      'force_register' =>
  $env{'form.register'},});   $env{'form.register'},});
Line 135  sub handler { Line 129  sub handler {
     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') {
  $r->print($day. &Apache::lonrss::advertisefeeds($cnum,$cdom));   $r->print($day. &Apache::lonrss::advertisefeeds($cnum,$cdom,$forceedit));
     } else {      } else {
  $r->print(&Apache::lonxml::xmlparse($r,'tex',$day));   $r->print(&Apache::lonxml::xmlparse($r,'tex',$day));
     }      }
Line 184  sub handler { Line 178  sub handler {
 # ----------------------------------------------------- Only if not public call  # ----------------------------------------------------- Only if not public call
     if ($env{'user.environment'}) {      if ($env{'user.environment'}) {
 # does this user have privileges to post, etc?  # does this user have privileges to post, etc?
        if ($env{'request.course.id'}) {         if ($env{'request.course.id'}
      && $cdom eq $env{'course.'.$env{'request.course.id'}.'.domain'}
      && $cnum eq $env{'course.'.$env{'request.course.id'}.'.num'}) {
           $allowed=&Apache::lonnet::allowed('mdc',$env{'request.course.id'});            $allowed=&Apache::lonnet::allowed('mdc',$env{'request.course.id'});
   $privileged=$allowed;    $privileged=$allowed;
   if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) {    if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) {
Line 326  sub handler { Line 322  sub handler {
               if ($allowed) {                if ($allowed) {
                  $r->print(                   $r->print(
    '<br /><textarea cols="80" rows="12" name="'.$_.'" id="'.$_.'">'.     '<br /><textarea cols="80" rows="12" name="'.$_.'" id="'.$_.'">'.
    $syllabus{$_}.     &HTML::Entities::encode($syllabus{$_},'"&<>').
            '</textarea> <input type="submit" name="storesyl" value="Store" />');             '</textarea> <input type="submit" name="storesyl" value="Store" />');
       }        }
   }    }
Removed from v.1.50  
changed lines
  Added in v.1.54

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