version 1.9, 2009/09/11 02:27:50
|
version 1.11, 2009/11/04 17:42:17
|
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; |
} |
} |
Line 954 sub build_batchcreatehash {
|
Line 954 sub build_batchcreatehash {
|
} |
} |
|
|
sub can_clone_course { |
sub can_clone_course { |
my ($uname,$udom,$clonecrs,$clonedom) = @_; |
my ($uname,$udom,$clonecrs,$clonedom,$crstype) = @_; |
my $canclone; |
my $canclone; |
|
my $ccrole = 'cc'; |
|
if ($crstype eq 'Community') { |
|
$ccrole = 'co'; |
|
} |
my %roleshash = &Apache::lonnet::get_my_roles($uname,$udom,'userroles',['active'], |
my %roleshash = &Apache::lonnet::get_my_roles($uname,$udom,'userroles',['active'], |
['cc'],[$clonedom]); |
[$ccrole],[$clonedom]); |
if (exists($roleshash{$clonecrs.':'.$clonedom.':cc'})) { |
if (exists($roleshash{$clonecrs.':'.$clonedom.':'.$ccrole})) { |
$canclone = 1; |
$canclone = 1; |
} else { |
} else { |
my %courseenv = &Apache::lonnet::userenvironment($clonedom,$clonecrs,('cloners')); |
my %courseenv = &Apache::lonnet::userenvironment($clonedom,$clonecrs,('cloners')); |