loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.59, 2003/07/25 13:13:43	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;
Line 553 $content{'sendername'}.'@'.	Line 566 $content{'sendername'}.'@'.
}	}
# Check to see if there were any messages.	# Check to see if there were any messages.
if ($result eq '') {	if ($result eq '') {
$result = "<h2>You have no critical messages.</h2>";	$result = "<h2>You have no critical messages.</h2>".
	'<a href="/adm/roles">Select a course</a>';
} else {	} else {
$r->print($header);	$r->print($header);
}	}