loncom/interface/lonsyllabus.pm - diff

Return to lonsyllabus.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.16, 2003/03/10 14:20:07
+version 1.18, 2003/05/10 23:01:56
  Line 92  ENDDOCUMENT
         ("Syllabus",$forcestudent,$addentries,'',$cdom,$ENV{'form.register'}));
      $r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'.
                $Apache::lonnet::domaindescription{$cdom}.'</h3>');
+ # -------------------------------------------------------- Get course personnel
+     my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum);
+     $r->print('<table border="2">');
+     foreach (sort keys %coursepersonnel) {
+ 	$r->print('<tr><td>'.$_.'</td><td>');
+         foreach (split(/\,/,$coursepersonnel{$_})) {
+ 	    my ($puname,$pudom)=split(/\:/,$_);
+ 	    $r->print(' '.&Apache::loncommon::aboutmewrapper(
+                           &Apache::loncommon::plainname($puname,
+                           $pudom),$puname,$pudom));
+ 	}
+         $r->print('</td></tr>');
+     }
+     $r->print('</table>');
+ # ---------------------------------------------------------- Load syllabus info
      my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum);
      my $allowed=0;