loncom/interface/loncoursequeueadmin.pm - diff

Return to loncoursequeueadmin.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.9, 2009/09/11 02:27:50	version 1.10, 2009/10/05 01:54:44
Line 76 sub send_selfserve_notification {	Line 76 sub send_selfserve_notification {
if ($context eq 'coursemanagers') {	if ($context eq 'coursemanagers') {
$rawsubj = 'Self-enrollment requests processed';	$rawsubj = 'Self-enrollment requests processed';
push(@rawmsg,{	push(@rawmsg,{
mt => 'Enrollment requests in the following course: [_1]have been processed.',	mt => 'Enrollment requests in the following course: [_1] have been processed.',
args => ["\n $contextdesc"],	args => ["\n $contextdesc"],
});	});
} elsif ($context eq 'domainmanagers') {	} elsif ($context eq 'domainmanagers') {
$rawsubj = 'Course requests reviewed';	$rawsubj = 'Course requests reviewed';
push(@rawmsg,{	push(@rawmsg,{
mt => 'Course creation requests in the following domain: [_1]have been reviewed.',	mt => 'Course creation requests in the following domain: [_1] have been reviewed.',
args => ["\n $contextdesc"],	args => ["\n $contextdesc"],
});	});
if (ref($textstr) eq 'ARRAY') {	if (ref($textstr) eq 'ARRAY') {
Line 188 sub send_selfserve_notification {	Line 188 sub send_selfserve_notification {
@{$item->{args}})."\n";	@{$item->{args}})."\n";
}	}
}	}
if ($context eq 'managers') {	if ($context eq 'coursemanagers') {
if ($approvedlist) {	if ($approvedlist) {
$message .= "\n\n".&Apache::lonlocal::mt_user($sender_lh,'Approved enrollments:')."\n".$approvedlist;	$message .= "\n\n".&Apache::lonlocal::mt_user($sender_lh,'Approved enrollments:')."\n".$approvedlist;
}	}