--- loncom/interface/lonsyllabus.pm 2002/08/27 12:48:46 1.1 +++ loncom/interface/lonsyllabus.pm 2002/08/27 15:17:45 1.2 @@ -1,7 +1,7 @@ # The LearningOnline Network # Syllabus # -# $Id: lonsyllabus.pm,v 1.1 2002/08/27 12:48:46 www Exp $ +# $Id: lonsyllabus.pm,v 1.2 2002/08/27 15:17:45 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -47,13 +47,20 @@ sub handler { <title>The LearningOnline Network with CAPA</title> </head> ENDDOCUMENT - $r->print(&Apache::loncommon::bodytag("Syllabus")); + my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri); + my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum); + $r->print(&Apache::loncommon::bodytag("Syllabus",'','','',$cdom)); + $r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'. + $Apache::lonnet::domaindescription{$cdom}.'</h3>'); +# This handler might be called anonymously ... +# ----------------------------------------------------- Only if not public call + if ($ENV{'user.environment'}) { # does this user have privileges to post, etc? - my $allowed=0; - if ($ENV{'request.course.id'}) { - $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}); + my $allowed=0; + if ($ENV{'request.course.id'}) { + $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}); + } } - $r->print('</body></html>'); return OK; }