version 1.4, 2003/03/28 01:53:55
|
version 1.5, 2003/05/10 23:01:56
|
Line 92 ENDSCRIPT
|
Line 92 ENDSCRIPT
|
my %coursepersonnel= |
my %coursepersonnel= |
&Apache::lonnet::get_course_adv_roles(); |
&Apache::lonnet::get_course_adv_roles(); |
$r->print('<table border="2">'); |
$r->print('<table border="2">'); |
foreach my $role (keys %coursepersonnel) { |
foreach my $role (sort keys %coursepersonnel) { |
foreach (split(/\,/,$coursepersonnel{$role})) { |
foreach (split(/\,/,$coursepersonnel{$role})) { |
my ($puname,$pudom)=split(/\:/,$_); |
my ($puname,$pudom)=split(/\:/,$_); |
$r->print('<tr><td>'. |
$r->print('<tr><td>'. |