loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.60, 2003/08/12 20:12:05
+version 1.61, 2003/08/13 15:57:51
  Line 503  sub discourse {
  <input type=button onClick="uncheckall()" value="Check for None">
  <p>
  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) {
          my ($end,$start)=split(/\:/,$courselist{$_});
          my $active=1;