version 1.2, 2002/08/27 15:17:45
|
version 1.3, 2002/08/27 15:40:27
|
Line 48 sub handler {
|
Line 48 sub handler {
|
</head> |
</head> |
ENDDOCUMENT |
ENDDOCUMENT |
my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri); |
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); |
my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum); |
$r->print(&Apache::loncommon::bodytag("Syllabus",'','','',$cdom)); |
$r->print(&Apache::loncommon::bodytag("Syllabus",'','','',$cdom)); |
$r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'. |
$r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'. |