loncom/interface/lonpickstudent.pm - diff

Return to lonpickstudent.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.18, 2006/05/30 20:16:59	version 1.19, 2006/06/02 13:58:31
Line 106 ENDSCRIPT	Line 106 ENDSCRIPT
foreach my $role (sort keys %coursepersonnel) {	foreach my $role (sort keys %coursepersonnel) {
foreach (split(/\,/,$coursepersonnel{$role})) {	foreach (split(/\,/,$coursepersonnel{$role})) {
my ($puname,$pudom)=split(/\:/,$_);	my ($puname,$pudom)=split(/\:/,$_);
if ($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Group') {	$role = &Apache::lonnet::plaintext($role,
$role = &Apache::loncommon::convert_role($role,'Group');	&Apache::loncommon::course_type());
}
$r->print('<tr><td>'.	$r->print('<tr><td>'.
'<input type="button" value="Select" onClick="gochoose('.	'<input type="button" value="Select" onClick="gochoose('.
"'".$puname."','".$pudom."')".'" /></td><td>'.$role.'</td><td>'.	"'".$puname."','".$pudom."')".'" /></td><td>'.$role.'</td><td>'.