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

Diff for /loncom/interface/lonsyllabus.pm between versions 1.3 and 1.4

version 1.3, 2002/08/27 15:40:27 version 1.4, 2002/08/27 16:49:20
Line 49  sub handler { Line 49  sub handler {
 ENDDOCUMENT  ENDDOCUMENT
     my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri);      my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri);
 # Is this even a course?  # Is this even a course?
     unless (&Apache::lonnet::homeserver($cnum,$cdom)) {      if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') {
  $r->print('<body>No syllabus available</body>');   $r->print('<body>No syllabus available</body>');
         return OK;          return OK;
     }      }
Line 58  ENDDOCUMENT Line 58  ENDDOCUMENT
     $r->print(&Apache::loncommon::bodytag("Syllabus",'','','',$cdom));      $r->print(&Apache::loncommon::bodytag("Syllabus",'','','',$cdom));
     $r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'.      $r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'.
               $Apache::lonnet::domaindescription{$cdom}.'</h3>');                $Apache::lonnet::domaindescription{$cdom}.'</h3>');
       my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum);
   
 # This handler might be called anonymously ...  # This handler might be called anonymously ...
 # ----------------------------------------------------- Only if not public call  # ----------------------------------------------------- Only if not public call
     if ($ENV{'user.environment'}) {      if ($ENV{'user.environment'}) {
Line 67  ENDDOCUMENT Line 69  ENDDOCUMENT
           $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'});            $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'});
        }         }
     }      }
   # ---------------------------------------------------------------- Get syllabus
       if ($ENV{'uploaded.lastmodified'}) {
          $r->print('<table><tr><td>Uploaded:</td><td>'.
    &Apache::loncommon::plainname($syllabus{'uploaded.name'},
                        $syllabus{'uploaded.domain'}).
    '</td></tr><tr><td>Last updated</td><td>'.
                        localtime($syllabus{'uploaded.lastmodified'}).
                        '</td></tr></table>');
           $r->print('<blockquote>'.$syllabus{'description'}.'</blockquote>');
       } else {
          $r->print('<p>No syllabus information provided.</p>');
       }
     $r->print('</body></html>');      $r->print('</body></html>');
     return OK;      return OK;
 }   } 
Removed from v.1.3  
changed lines
  Added in v.1.4

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