loncom/interface/lonsyllabus.pm - diff

Return to lonsyllabus.pm CVS log

Up to [LON-CAPA] / loncom / interface

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">');