--- loncom/interface/loncoursequeueadmin.pm 2009/08/17 04:39:15 1.4 +++ loncom/interface/loncoursequeueadmin.pm 2009/11/19 18:16:21 1.9.2.3 @@ -1,7 +1,7 @@ # The LearningOnline Network # Utilities to administer domain course requests and course self-enroll requests # -# $Id: loncoursequeueadmin.pm,v 1.4 2009/08/17 04:39:15 raeburn Exp $ +# $Id: loncoursequeueadmin.pm,v 1.9.2.3 2009/11/19 18:16:21 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -76,13 +76,13 @@ sub send_selfserve_notification { 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 @@ sub send_selfserve_notification { @{$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; } @@ -220,7 +220,7 @@ sub display_queued_requests { } else { $formaction = '/adm/createcourse'; $namespace = 'courserequestqueue'; - %requesthash = &Apache::lonnet::dump_dom($namespace,$dom,undef,'_approval'); + %requesthash = &Apache::lonnet::dump_dom($namespace,$dom,'_approval'); $nextelement = ''; } my ($output,%queue_by_date,%crstypes); @@ -293,8 +293,8 @@ sub display_queued_requests { } else { my ($cnum,$ownername,$ownerdom,$type,$cdesc)=split(/:/,$request,5); - $detailslink=''.$cdesc.''; + $detailslink=''.$cdesc.''; $crstype = $type; if (defined($crstypes{$type})) { $crstype = $crstypes{$type}; @@ -345,7 +345,8 @@ sub update_request_queue { $domdesc,$now,$sender,$approvedmsg,$rejectedmsg,$beneficiary, @existing,@missingreq,@invalidusers,@limitexceeded,@completed, @processing_errors,@warn_approves,@warn_rejects,@approvals, - @rejections,@rejectionerrors,%courseroles,%communityroles,%domdefs); + @rejections,@rejectionerrors,@nopermissions,%courseroles, + %communityroles,%domdefs,@warn_coursereqs); @approvals = &Apache::loncommon::get_env_multiple('form.approvereq'); @rejections = &Apache::loncommon::get_env_multiple('form.rejectreq'); $now = time; @@ -379,7 +380,7 @@ sub update_request_queue { $domdesc = &Apache::lonnet::domain($cdom); $namespace = 'courserequestqueue'; $beneficiary = 'courserequestor'; - %requesthash = &Apache::lonnet::dump_dom($namespace,$cdom,undef,'_approval'); + %requesthash = &Apache::lonnet::dump_dom($namespace,$cdom,'_approval'); my $chome = &Apache::lonnet::domain($cdom,'primary'); $hostname = &Apache::lonnet::hostname($chome); $protocol = $Apache::lonnet::protocol{$chome}; @@ -462,6 +463,15 @@ sub update_request_queue { &Apache::lonnet::put($namespace,\%userrequest,$udom,$uname); if ($userresult ne 'ok') { push(@warn_approves,$uname.':'.$udom); + } elsif ($udom eq 'gci') { + my %changehash = ( + 'reqcrsotherdom.unofficial' => 'gcitest:autolimit=', + ); + my $reqresult = &Apache::lonnet::put('environment',\%changehash, + $udom,$uname); + if ($reqresult ne 'ok') { + push(@warn_coursereqs,$uname.':'.$udom); + } } } else { push(@processing_errors,$uname.':'.$udom); @@ -482,8 +492,22 @@ sub update_request_queue { if ($crstype eq 'community') { $longroles = \%communityroles; } - if (&Apache::lonnet::usertools_access($ownername,$ownerdom,$crstype, - undef,'requestcourses')) { + my $cancreate; + if ($cdom eq $ownerdom) { + if (&Apache::lonnet::usertools_access($ownername,$ownerdom,$crstype, + undef,'requestcourses')) { + $cancreate = 1; + } + } else { + my %userenv = &Apache::lonnet::userenvironment($ownerdom,$ownername,'reqcrsotherdom.'.$crstype); + if ($userenv{'reqcrsotherdom.'.$crstype}) { + my @doms = split(',',$userenv{'reqcrsotherdom.'.$crstype}); + if (grep(/^\Q$cdom\E:/,@doms)) { + $cancreate = 1; + } + } + } + if ($cancreate) { my $requestkey = $cdom.'_'.$cnum; my %history = &Apache::lonnet::restore($requestkey,'courserequests', @@ -531,7 +555,7 @@ sub update_request_queue { push(@processing_errors,$cnum); } } else { - push(@processing_errors,$cnum); + push(@nopermissions,$cnum); } } else { push(@existing,$cnum); @@ -749,6 +773,19 @@ sub update_request_queue { $output .= '

'; } } + if (@nopermissions) { + $output .= '

'.&mt('The following course creation requests could not be processed because the course owner does hot have rights to create this type of course:').'

'; + } if (@processing_errors) { if ($context eq 'course') { $output .= '

'.&mt('The following enrollment requests could not be processed because an error occurred:').'

'; } } + if (@warn_coursereqs) { + $output .= '

'..&mt("For the following users, an error occurred when setting rights to request creation of Concept Test courses:").'

'; + } return $output; } @@ -851,7 +895,7 @@ sub course_creation { $owneremail = $emails{$email}; 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', \%reqdetails,$longroles,\$logmsg,\$newusermsg,\$addresult, \$enrollcount,\$output,\$keysmsg,$ownerdom,$ownername,$cnum,$crstype); @@ -864,7 +908,7 @@ sub course_creation { } sub build_batchcreatehash { - my ($dom,$details,$owneremail,$domdefs) = @_; + my ($dom,$context,$details,$owneremail,$domdefs) = @_; my %batchhash; 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')) { @@ -885,22 +929,56 @@ sub build_batchcreatehash { } else { $batchhash{'crstype'} = 'Course'; } - $batchhash{'users'}{$details->{$owner}} = { - firstname => $env{'environment.first'}, - lastname => $env{'environment.last'}, - emailenc => $emailenc, - email => $owneremail, - }; + my ($owner_firstname,$owner_lastname); + if ($context eq 'domain') { + my %userenv = &Apache::lonnet::userenvironment($details->{'domain'}, + $details->{'owner'}, + '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; } sub can_clone_course { - my ($uname,$udom,$clonecrs,$clonedom) = @_; + my ($uname,$udom,$clonecrs,$clonedom,$crstype) = @_; my $canclone; + my $ccrole = 'cc'; + if ($crstype eq 'Community') { + $ccrole = 'co'; + } my %roleshash = &Apache::lonnet::get_my_roles($uname,$udom,'userroles',['active'], - ['cc'],[$clonedom]); - if (exists($roleshash{$clonedom.':'.$clonecrs.':cc'})) { + [$ccrole],[$clonedom]); + if (exists($roleshash{$clonecrs.':'.$clonedom.':'.$ccrole})) { $canclone = 1; } else { my %courseenv = &Apache::lonnet::userenvironment($clonedom,$clonecrs,('cloners'));