--- loncom/interface/lonsyllabus.pm 2002/08/27 15:40:27 1.3 +++ 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.3 2002/08/27 15:40:27 www Exp $ +# $Id: lonsyllabus.pm,v 1.4 2002/08/27 16:49:20 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -49,7 +49,7 @@ sub handler { ENDDOCUMENT my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri); # Is this even a course? - unless (&Apache::lonnet::homeserver($cnum,$cdom)) { + if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') { $r->print('No syllabus available'); return OK; } @@ -58,6 +58,8 @@ ENDDOCUMENT $r->print(&Apache::loncommon::bodytag("Syllabus",'','','',$cdom)); $r->print('

'.$courseenv{'description'}.'

'. $Apache::lonnet::domaindescription{$cdom}.'

'); + my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum); + # This handler might be called anonymously ... # ----------------------------------------------------- Only if not public call if ($ENV{'user.environment'}) { @@ -67,6 +69,18 @@ ENDDOCUMENT $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}); } } +# ---------------------------------------------------------------- Get syllabus + if ($ENV{'uploaded.lastmodified'}) { + $r->print('
Uploaded:'. + &Apache::loncommon::plainname($syllabus{'uploaded.name'}, + $syllabus{'uploaded.domain'}). + '
Last updated'. + localtime($syllabus{'uploaded.lastmodified'}). + '
'); + $r->print('
'.$syllabus{'description'}.'
'); + } else { + $r->print('

No syllabus information provided.

'); + } $r->print(''); return OK; }