loncom/interface/lonpickstudent.pm - diff

Return to lonpickstudent.pm CVS log

Up to [LON-CAPA] / loncom / interface

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>'.