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