--- loncom/interface/lonsyllabus.pm 2002/08/27 15:17:45 1.2 +++ loncom/interface/lonsyllabus.pm 2002/08/27 16:49:20 1.4 @@ -1,7 +1,7 @@ # The LearningOnline Network # Syllabus # -# $Id: lonsyllabus.pm,v 1.2 2002/08/27 15:17:45 www Exp $ +# $Id: lonsyllabus.pm,v 1.4 2002/08/27 16:49:20 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -48,10 +48,18 @@ sub handler { ENDDOCUMENT my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri); +# Is this even a course? + if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') { + $r->print('
No syllabus available'); + return OK; + } +# ------------------------------------- There is such a course, get environment my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum); $r->print(&Apache::loncommon::bodytag("Syllabus",'','','',$cdom)); $r->print('Uploaded: | '. + &Apache::loncommon::plainname($syllabus{'uploaded.name'}, + $syllabus{'uploaded.domain'}). + ' |
Last updated | '. + localtime($syllabus{'uploaded.lastmodified'}). + ' |
'.$syllabus{'description'}.''); + } else { + $r->print('
No syllabus information provided.
'); + } $r->print('