version 1.7, 2009/08/27 00:06:18
|
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; |
} |
} |
Line 879 sub course_creation {
|
Line 879 sub course_creation {
|
$owneremail = $emails{$email}; |
$owneremail = $emails{$email}; |
last if ($owneremail ne ''); |
last if ($owneremail ne ''); |
} |
} |
my %reqdetails = &build_batchcreatehash($dom,$details,$owneremail,$domdefs); |
my %reqdetails = &build_batchcreatehash($dom,$context,$details,$owneremail,$domdefs); |
my $cid = &LONCAPA::batchcreatecourse::build_course($dom,$cnum,'requestcourses', |
my $cid = &LONCAPA::batchcreatecourse::build_course($dom,$cnum,'requestcourses', |
\%reqdetails,$longroles,\$logmsg,\$newusermsg,\$addresult, |
\%reqdetails,$longroles,\$logmsg,\$newusermsg,\$addresult, |
\$enrollcount,\$output,\$keysmsg,$ownerdom,$ownername,$cnum,$crstype); |
\$enrollcount,\$output,\$keysmsg,$ownerdom,$ownername,$cnum,$crstype); |
Line 892 sub course_creation {
|
Line 892 sub course_creation {
|
} |
} |
|
|
sub build_batchcreatehash { |
sub build_batchcreatehash { |
my ($dom,$details,$owneremail,$domdefs) = @_; |
my ($dom,$context,$details,$owneremail,$domdefs) = @_; |
my %batchhash; |
my %batchhash; |
my @items = qw{owner domain coursehome clonecrs clonedom datemode dateshift enrollstart enrollend accessstart accessend sections crosslists users}; |
my @items = qw{owner domain coursehome clonecrs clonedom datemode dateshift enrollstart enrollend accessstart accessend sections crosslists users}; |
if ((ref($details) eq 'HASH') && (ref($domdefs) eq 'HASH')) { |
if ((ref($details) eq 'HASH') && (ref($domdefs) eq 'HASH')) { |
Line 913 sub build_batchcreatehash {
|
Line 913 sub build_batchcreatehash {
|
} else { |
} else { |
$batchhash{'crstype'} = 'Course'; |
$batchhash{'crstype'} = 'Course'; |
} |
} |
$batchhash{'users'}{$details->{$owner}} = { |
my ($owner_firstname,$owner_lastname); |
firstname => $env{'environment.first'}, |
if ($context eq 'domain') { |
lastname => $env{'environment.last'}, |
my %userenv = &Apache::lonnet::userenvironment($details->{'domain'}, |
emailenc => $emailenc, |
$details->{'owner'}, |
email => $owneremail, |
'firstname','lastname'); |
}; |
$owner_firstname = $userenv{'firstname'}; |
|
$owner_lastname = $userenv{'lastname'}; |
|
} else { |
|
$owner_firstname = $env{'environment.firstname'}; |
|
$owner_lastname = $env{'environment.lastname'}; |
|
} |
|
if (ref($details->{'personnel'}) eq 'HASH') { |
|
%{$batchhash{'users'}} = %{$details->{'personnel'}}; |
|
if (ref($batchhash{'users'}) eq 'HASH') { |
|
foreach my $userkey (keys(%{$batchhash{'users'}})) { |
|
if (ref($batchhash{'users'}{$userkey}) eq 'HASH') { |
|
if (ref($batchhash{'users'}{$userkey}{'roles'}) eq 'ARRAY') { |
|
foreach my $role (@{$batchhash{'users'}{$userkey}{'roles'}}) { |
|
my $start = ''; |
|
my $end = ''; |
|
if ($role eq 'st') { |
|
$start = $details->{'accessstart'}; |
|
$end = $details->{'accessend'}; |
|
} |
|
$batchhash{'users'}{$userkey}{$role}{'start'} = $start; |
|
$batchhash{'users'}{$userkey}{$role}{'end'} = $end; |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
|
$batchhash{'users'}{$owner}{firstname} = $owner_firstname; |
|
$batchhash{'users'}{$owner}{lastname} = $owner_lastname; |
|
$batchhash{'users'}{$owner}{emailenc} = $emailenc; |
|
$batchhash{'users'}{$owner}{owneremail} = $owneremail; |
} |
} |
return %batchhash; |
return %batchhash; |
} |
} |
Line 928 sub can_clone_course {
|
Line 958 sub can_clone_course {
|
my $canclone; |
my $canclone; |
my %roleshash = &Apache::lonnet::get_my_roles($uname,$udom,'userroles',['active'], |
my %roleshash = &Apache::lonnet::get_my_roles($uname,$udom,'userroles',['active'], |
['cc'],[$clonedom]); |
['cc'],[$clonedom]); |
if (exists($roleshash{$clonedom.':'.$clonecrs.':cc'})) { |
if (exists($roleshash{$clonecrs.':'.$clonedom.':cc'})) { |
$canclone = 1; |
$canclone = 1; |
} else { |
} else { |
my %courseenv = &Apache::lonnet::userenvironment($clonedom,$clonecrs,('cloners')); |
my %courseenv = &Apache::lonnet::userenvironment($clonedom,$clonecrs,('cloners')); |