[LON-CAPA-cvs] cvs: loncom /interface lonsyllabus.pm

Tue, 27 Aug 2002 15:40:27 -0000

www		Tue Aug 27 11:40:27 2002 EDT

  Modified files:              
    /loncom/interface	lonsyllabus.pm 
  Log:
  Better safe than sorry
  
  
Index: loncom/interface/lonsyllabus.pm
diff -u loncom/interface/lonsyllabus.pm:1.2 loncom/interface/lonsyllabus.pm:1.3

--- loncom/interface/lonsyllabus.pm:1.2	Tue Aug 27 11:17:45 2002
+++ loncom/interface/lonsyllabus.pm	Tue Aug 27 11:40:27 2002
@@ -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.3 2002/08/27 15:40:27 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -48,6 +48,12 @@
 </head>
 ENDDOCUMENT
     my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri);
+# Is this even a course?
+    unless (&Apache::lonnet::homeserver($cnum,$cdom)) {
+	$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>'.



