version 1.60, 2003/08/12 20:12:05
|
version 1.61, 2003/08/13 15:57:51
|
Line 503 sub discourse {
|
Line 503 sub discourse {
|
<input type=button onClick="uncheckall()" value="Check for None"> |
<input type=button onClick="uncheckall()" value="Check for None"> |
<p> |
<p> |
ENDDISHEADER |
ENDDISHEADER |
|
my %coursepersonnel= |
|
&Apache::lonnet::get_course_adv_roles(); |
|
foreach my $role (sort keys %coursepersonnel) { |
|
foreach (split(/\,/,$coursepersonnel{$role})) { |
|
my ($puname,$pudom)=split(/\:/,$_); |
|
$r->print( |
|
'<br /><input type="checkbox" name="send_to_&&&&&&_'. |
|
$puname.':'.$pudom.'" /> '. |
|
&Apache::loncommon::plainname($puname, |
|
$pudom).' ('.$_.'), <i>'.$role.'</i>'); |
|
} |
|
} |
|
|
foreach (sort keys %courselist) { |
foreach (sort keys %courselist) { |
my ($end,$start)=split(/\:/,$courselist{$_}); |
my ($end,$start)=split(/\:/,$courselist{$_}); |
my $active=1; |
my $active=1; |