--- 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 {
 </head>
 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('<body>No syllabus available</body>');
+        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('<h1>'.$courseenv{'description'}.'</h1><h3>'.
               $Apache::lonnet::domaindescription{$cdom}.'</h3>');
+    my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum);
+
 # This handler might be called anonymously ...
 # ----------------------------------------------------- Only if not public call
     if ($ENV{'user.environment'}) {
@@ -61,6 +69,18 @@ ENDDOCUMENT
           $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>');
     return OK;
 } 

Uploaded:	'. + &Apache::loncommon::plainname($syllabus{'uploaded.name'}, + $syllabus{'uploaded.domain'}). + '
Last updated	'. + localtime($syllabus{'uploaded.lastmodified'}). + '