version 1.18, 2003/05/10 23:01:56
|
version 1.19, 2003/05/21 20:10:53
|
Line 34 use Apache::loncommon;
|
Line 34 use Apache::loncommon;
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lontexconvert; |
use Apache::lontexconvert; |
use Apache::lonfeedback; |
use Apache::lonfeedback; |
|
use Apache::lonannounce; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 92 ENDDOCUMENT
|
Line 93 ENDDOCUMENT
|
("Syllabus",$forcestudent,$addentries,'',$cdom,$ENV{'form.register'})); |
("Syllabus",$forcestudent,$addentries,'',$cdom,$ENV{'form.register'})); |
$r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'. |
$r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'. |
$Apache::lonnet::domaindescription{$cdom}.'</h3>'); |
$Apache::lonnet::domaindescription{$cdom}.'</h3>'); |
|
# -------------------------------------------------------------- Announcements? |
|
$r->print(&Apache::lonannounce::showday(time,2, |
|
&Apache::lonannounce::readcalendar($cdom.'_'.$cnum))); |
# -------------------------------------------------------- Get course personnel |
# -------------------------------------------------------- Get course personnel |
my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum); |
my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum); |
$r->print('<table border="2">'); |
$r->print('<table border="2">'); |