version 1.3, 2009/08/16 23:04:42
|
version 1.7, 2009/08/27 00:06:18
|
Line 220 sub display_queued_requests {
|
Line 220 sub display_queued_requests {
|
} else { |
} else { |
$formaction = '/adm/createcourse'; |
$formaction = '/adm/createcourse'; |
$namespace = 'courserequestqueue'; |
$namespace = 'courserequestqueue'; |
%requesthash = &Apache::lonnet::dump_dom($namespace,$dom,undef,'_approval'); |
%requesthash = &Apache::lonnet::dump_dom($namespace,$dom,'_approval'); |
$nextelement = '<input type="hidden" name="phase" value="requestchange" />'; |
$nextelement = '<input type="hidden" name="phase" value="requestchange" />'; |
} |
} |
my ($output,%queue_by_date,%crstypes); |
my ($output,%queue_by_date,%crstypes); |
Line 293 sub display_queued_requests {
|
Line 293 sub display_queued_requests {
|
|
|
} else { |
} else { |
my ($cnum,$ownername,$ownerdom,$type,$cdesc)=split(/:/,$request,5); |
my ($cnum,$ownername,$ownerdom,$type,$cdesc)=split(/:/,$request,5); |
$detailslink='<a href="javascript::opencoursereqdisplay('. |
$detailslink='<a href="javascript:opencoursereqdisplay('. |
"'$dom".'_'."$cnum'".');">'.$cdesc.'</a>'; |
"'$dom','$cnum'".');">'.$cdesc.'</a>'; |
$crstype = $type; |
$crstype = $type; |
if (defined($crstypes{$type})) { |
if (defined($crstypes{$type})) { |
$crstype = $crstypes{$type}; |
$crstype = $crstypes{$type}; |
Line 345 sub update_request_queue {
|
Line 345 sub update_request_queue {
|
$domdesc,$now,$sender,$approvedmsg,$rejectedmsg,$beneficiary, |
$domdesc,$now,$sender,$approvedmsg,$rejectedmsg,$beneficiary, |
@existing,@missingreq,@invalidusers,@limitexceeded,@completed, |
@existing,@missingreq,@invalidusers,@limitexceeded,@completed, |
@processing_errors,@warn_approves,@warn_rejects,@approvals, |
@processing_errors,@warn_approves,@warn_rejects,@approvals, |
@rejections,@rejectionerrors,%courseroles,%communityroles,%domdefs); |
@rejections,@rejectionerrors,@nopermissions,%courseroles, |
|
%communityroles,%domdefs); |
@approvals = &Apache::loncommon::get_env_multiple('form.approvereq'); |
@approvals = &Apache::loncommon::get_env_multiple('form.approvereq'); |
@rejections = &Apache::loncommon::get_env_multiple('form.rejectreq'); |
@rejections = &Apache::loncommon::get_env_multiple('form.rejectreq'); |
$now = time; |
$now = time; |
Line 379 sub update_request_queue {
|
Line 380 sub update_request_queue {
|
$domdesc = &Apache::lonnet::domain($cdom); |
$domdesc = &Apache::lonnet::domain($cdom); |
$namespace = 'courserequestqueue'; |
$namespace = 'courserequestqueue'; |
$beneficiary = 'courserequestor'; |
$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'); |
my $chome = &Apache::lonnet::domain($cdom,'primary'); |
$hostname = &Apache::lonnet::hostname($chome); |
$hostname = &Apache::lonnet::hostname($chome); |
$protocol = $Apache::lonnet::protocol{$chome}; |
$protocol = $Apache::lonnet::protocol{$chome}; |
Line 482 sub update_request_queue {
|
Line 483 sub update_request_queue {
|
if ($crstype eq 'community') { |
if ($crstype eq 'community') { |
$longroles = \%communityroles; |
$longroles = \%communityroles; |
} |
} |
if (&Apache::lonnet::usertools_access($ownername,$ownerdom,$crstype, |
my $cancreate; |
undef,'requestcourses')) { |
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 $requestkey = $cdom.'_'.$cnum; |
my %history = |
my %history = |
&Apache::lonnet::restore($requestkey,'courserequests', |
&Apache::lonnet::restore($requestkey,'courserequests', |
Line 531 sub update_request_queue {
|
Line 546 sub update_request_queue {
|
push(@processing_errors,$cnum); |
push(@processing_errors,$cnum); |
} |
} |
} else { |
} else { |
push(@processing_errors,$cnum); |
push(@nopermissions,$cnum); |
} |
} |
} else { |
} else { |
push(@existing,$cnum); |
push(@existing,$cnum); |
Line 749 sub update_request_queue {
|
Line 764 sub update_request_queue {
|
$output .= '</ul></p>'; |
$output .= '</ul></p>'; |
} |
} |
} |
} |
|
if (@nopermissions) { |
|
$output .= '<p>'.&mt('The following course creation requests could not be processed because the course owner does hot have rights to create this type of course:').'<ul>'; |
|
foreach my $cnum (@nopermissions) { |
|
my $showcourse; |
|
if (ref($requesthash{$cnum.'_approval'})) { |
|
$showcourse = $requesthash{$cnum.'_approval'}{'description'}; |
|
} else { |
|
$showcourse = $cnum; |
|
} |
|
$output .= '<li>'.$showcourse.'</li>'; |
|
} |
|
$output .= '</ul></p>'; |
|
} |
if (@processing_errors) { |
if (@processing_errors) { |
if ($context eq 'course') { |
if ($context eq 'course') { |
$output .= '<p>'.&mt('The following enrollment requests could not be processed because an error occurred:').'<ul>'; |
$output .= '<p>'.&mt('The following enrollment requests could not be processed because an error occurred:').'<ul>'; |
Line 895 sub build_batchcreatehash {
|
Line 923 sub build_batchcreatehash {
|
return %batchhash; |
return %batchhash; |
} |
} |
|
|
|
sub can_clone_course { |
|
my ($uname,$udom,$clonecrs,$clonedom) = @_; |
|
my $canclone; |
|
my %roleshash = &Apache::lonnet::get_my_roles($uname,$udom,'userroles',['active'], |
|
['cc'],[$clonedom]); |
|
if (exists($roleshash{$clonedom.':'.$clonecrs.':cc'})) { |
|
$canclone = 1; |
|
} else { |
|
my %courseenv = &Apache::lonnet::userenvironment($clonedom,$clonecrs,('cloners')); |
|
my $cloners = $courseenv{'cloners'}; |
|
if ($cloners ne '') { |
|
my @cloneable = split(',',$cloners); |
|
if (grep(/^\*$/,@cloneable)) { |
|
$canclone = 1; |
|
} |
|
if (grep(/^\*:\Q$udom\E$/,@cloneable)) { |
|
$canclone = 1; |
|
} |
|
if (grep(/^\Q$uname\E:\Q$udom\E$/,@cloneable)) { |
|
$canclone = 1; |
|
} |
|
} |
|
} |
|
return $canclone; |
|
} |
|
|
1; |
1; |