--- loncom/interface/lonsyllabus.pm 2002/08/27 12:48:46 1.1
+++ 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.1 2002/08/27 12:48:46 www Exp $
+# $Id: lonsyllabus.pm,v 1.4 2002/08/27 16:49:20 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -47,13 +47,40 @@ sub handler {
The LearningOnline Network with CAPA
ENDDOCUMENT
- $r->print(&Apache::loncommon::bodytag("Syllabus"));
+ 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(''.$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'}) {
# 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'});
+ }
+ }
+# ---------------------------------------------------------------- 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('