version 1.17, 2006/05/18 01:08:50
|
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(/\:/,$_); |
|
$role = &Apache::lonnet::plaintext($role, |
|
&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>'. |