version 1.4, 2009/08/17 04:39:15
|
version 1.5, 2009/08/20 20:43:08
|
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 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>'; |