--- loncom/interface/lonsyllabus.pm 2003/03/10 14:20:07 1.16 +++ loncom/interface/lonsyllabus.pm 2003/03/25 19:18:40 1.17 @@ -1,7 +1,7 @@ # The LearningOnline Network # Syllabus # -# $Id: lonsyllabus.pm,v 1.16 2003/03/10 14:20:07 www Exp $ +# $Id: lonsyllabus.pm,v 1.17 2003/03/25 19:18:40 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -92,6 +92,22 @@ ENDDOCUMENT ("Syllabus",$forcestudent,$addentries,'',$cdom,$ENV{'form.register'})); $r->print('

'.$courseenv{'description'}.'

'. $Apache::lonnet::domaindescription{$cdom}.'

'); + +# -------------------------------------------------------- Get course personnel + my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum); + $r->print(''); + foreach (keys %coursepersonnel) { + $r->print(''); + } + $r->print('
'.$_.''); + foreach (split(/\,/,$coursepersonnel{$_})) { + my ($puname,$pudom)=split(/\:/,$_); + $r->print(' '.&Apache::loncommon::aboutmewrapper( + &Apache::loncommon::plainname($puname, + $pudom),$puname,$pudom)); + } + $r->print('
'); +# ---------------------------------------------------------- Load syllabus info my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum); my $allowed=0;