[LON-CAPA-cvs] cvs: loncom /interface loncoursequeueadmin.pm
raeburn
raeburn@source.lon-capa.org
Mon, 05 Oct 2009 01:54:44 -0000
raeburn Mon Oct 5 01:54:44 2009 EDT
Modified files:
/loncom/interface loncoursequeueadmin.pm
Log:
- add spaces needed in mail message.
- correct context name for message sent to CCs when action is taken on pending self-enrollment requests.
Index: loncom/interface/loncoursequeueadmin.pm
diff -u loncom/interface/loncoursequeueadmin.pm:1.9 loncom/interface/loncoursequeueadmin.pm:1.10
--- loncom/interface/loncoursequeueadmin.pm:1.9 Fri Sep 11 02:27:50 2009
+++ loncom/interface/loncoursequeueadmin.pm Mon Oct 5 01:54:44 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Utilities to administer domain course requests and course self-enroll requests
#
-# $Id: loncoursequeueadmin.pm,v 1.9 2009/09/11 02:27:50 raeburn Exp $
+# $Id: loncoursequeueadmin.pm,v 1.10 2009/10/05 01:54:44 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -76,13 +76,13 @@
if ($context eq 'coursemanagers') {
$rawsubj = 'Self-enrollment requests processed';
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"],
});
} elsif ($context eq 'domainmanagers') {
$rawsubj = 'Course requests reviewed';
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"],
});
if (ref($textstr) eq 'ARRAY') {
@@ -188,7 +188,7 @@
@{$item->{args}})."\n";
}
}
- if ($context eq 'managers') {
+ if ($context eq 'coursemanagers') {
if ($approvedlist) {
$message .= "\n\n".&Apache::lonlocal::mt_user($sender_lh,'Approved enrollments:')."\n".$approvedlist;
}