version 1.17, 2003/03/25 19:18:40
|
version 1.18, 2003/05/10 23:01:56
|
Line 96 ENDDOCUMENT
|
Line 96 ENDDOCUMENT
|
# -------------------------------------------------------- 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">'); |
foreach (keys %coursepersonnel) { |
foreach (sort keys %coursepersonnel) { |
$r->print('<tr><td>'.$_.'</td><td>'); |
$r->print('<tr><td>'.$_.'</td><td>'); |
foreach (split(/\,/,$coursepersonnel{$_})) { |
foreach (split(/\,/,$coursepersonnel{$_})) { |
my ($puname,$pudom)=split(/\:/,$_); |
my ($puname,$pudom)=split(/\:/,$_); |