version 1.40, 2009/11/18 19:15:44
|
version 1.45, 2010/02/25 08:18:32
|
Line 94 described at http://www.lon-capa.org.
|
Line 94 described at http://www.lon-capa.org.
|
|
|
=item print_request_outcome() |
=item print_request_outcome() |
|
|
=item get_processtype() |
|
|
|
=item check_autolimit() |
=item check_autolimit() |
|
|
=item retrieve_settings() |
=item retrieve_settings() |
Line 178 sub handler {
|
Line 176 sub handler {
|
&get_breadcrumbs($dom,$action,\$state,\%states,\%trail); |
&get_breadcrumbs($dom,$action,\$state,\%states,\%trail); |
if ($action eq 'display') { |
if ($action eq 'display') { |
if (($dom eq $env{'request.role.domain'}) && (&Apache::lonnet::allowed('ccc',$dom))) { |
if (($dom eq $env{'request.role.domain'}) && (&Apache::lonnet::allowed('ccc',$dom))) { |
my $namespace = 'courserequestqueue'; |
|
if ($env{'form.cnum'} ne '') { |
if ($env{'form.cnum'} ne '') { |
my $cnum = $env{'form.cnum'}; |
my $cnum = $env{'form.cnum'}; |
my $reqkey = $cnum.'_approval'; |
my $reqkey = $cnum.'_approval'; |
Line 277 sub handler {
|
Line 274 sub handler {
|
$jscript = &mainmenu_javascript(); |
$jscript = &mainmenu_javascript(); |
} else { |
} else { |
$jscript = &Apache::lonhtmlcommon::set_form_elements($elementsref,\%stored); |
$jscript = &Apache::lonhtmlcommon::set_form_elements($elementsref,\%stored); |
|
if ($state eq 'courseinfo') { |
|
$jscript .= &cloning_javascript(); |
|
} |
} |
} |
} |
} |
|
|
Line 356 function setAction(courseForm) {
|
Line 356 function setAction(courseForm) {
|
END |
END |
} |
} |
|
|
|
sub cloning_javascript { |
|
return <<"END"; |
|
function setCloneDisplay(courseForm) { |
|
if (courseForm.cloning.length > 1) { |
|
for (var i=0; i<courseForm.cloning.length; i++) { |
|
if (courseForm.cloning[i].checked) { |
|
if (courseForm.cloning[i].value == 1) { |
|
document.getElementById('cloneoptions').style.display="block";; |
|
} |
|
} |
|
} |
|
} |
|
} |
|
END |
|
} |
|
|
sub get_breadcrumbs { |
sub get_breadcrumbs { |
my ($dom,$action,$state,$states,$trail) = @_; |
my ($dom,$action,$state,$states,$trail) = @_; |
my ($crumb,$newinstcode,$codechk,$checkedcode,$numtitles,$description); |
my ($crumb,$newinstcode,$codechk,$checkedcode,$numtitles,$description); |
Line 464 sub form_elements {
|
Line 480 sub form_elements {
|
}, |
}, |
courseinfo => { |
courseinfo => { |
cdescr => 'text', |
cdescr => 'text', |
|
cloning => 'radio', |
clonecrs => 'text', |
clonecrs => 'text', |
clonedom => 'selectbox', |
clonedom => 'selectbox', |
datemode => 'radio', |
datemode => 'radio', |
Line 599 sub onload_action {
|
Line 616 sub onload_action {
|
if ($state eq 'crstype') { |
if ($state eq 'crstype') { |
$loaditems{'onload'} = 'javascript:setAction(document.mainmenu_action);javascript:setType(document.mainmenu_coursetype)'; |
$loaditems{'onload'} = 'javascript:setAction(document.mainmenu_action);javascript:setType(document.mainmenu_coursetype)'; |
} else { |
} else { |
$loaditems{'onload'} = 'javascript:setFormElements(document.requestcrs)'; |
$loaditems{'onload'} = 'javascript:setFormElements(document.requestcrs);'; |
|
} |
|
if ($state eq 'courseinfo') { |
|
$loaditems{'onload'} .= 'javascript:setCloneDisplay(document.requestcrs);'; |
} |
} |
} |
} |
return \%loaditems; |
return \%loaditems; |
Line 1696 sub print_personnel_menu {
|
Line 1716 sub print_personnel_menu {
|
} |
} |
my @items = ('uname','dom','lastname','firstname','emailaddr','hidedom'); |
my @items = ('uname','dom','lastname','firstname','emailaddr','hidedom'); |
|
|
my $roleoptions; |
|
my @roles = &Apache::lonuserutils::roles_by_context('course'); |
|
my $type = 'Course'; |
my $type = 'Course'; |
if ($crstype eq 'community') { |
if ($crstype eq 'community') { |
$type = 'Community'; |
$type = 'Community'; |
} |
} |
|
my $roleoptions; |
|
my @roles = &Apache::lonuserutils::roles_by_context('course','',$type); |
foreach my $role (@roles) { |
foreach my $role (@roles) { |
my $plrole = &Apache::lonnet::plaintext($role,$type); |
my $plrole = &Apache::lonnet::plaintext($role,$type); |
$roleoptions .= ' <option value="'.$role.'">'.$plrole.'</option>'."\n"; |
$roleoptions .= ' <option value="'.$role.'">'.$plrole.'</option>'."\n"; |
Line 2171 sub print_review {
|
Line 2191 sub print_review {
|
|
|
my %ctxt = &clone_text(); |
my %ctxt = &clone_text(); |
$inst_headers .= '<th>'.&mt('Clone From').'</th>'; |
$inst_headers .= '<th>'.&mt('Clone From').'</th>'; |
if (($env{'form.clonecrs'} =~ /^$match_name$/) && |
if (($env{'form.cloning'}) && |
|
($env{'form.clonecrs'} =~ /^$match_name$/) && |
($env{'form.clonedom'} =~ /^$match_domain$/)) { |
($env{'form.clonedom'} =~ /^$match_domain$/)) { |
my $canclone = &Apache::loncoursequeueadmin::can_clone_course($env{'user.name'}, |
my $canclone = &Apache::loncoursequeueadmin::can_clone_course($env{'user.name'}, |
$env{'user.domain'},$env{'form.clonecrs'},$env{'form.clonedom'}, |
$env{'user.domain'},$env{'form.clonecrs'},$env{'form.clonedom'}, |
Line 2217 sub print_review {
|
Line 2238 sub print_review {
|
} |
} |
|
|
my $container = 'Course'; |
my $container = 'Course'; |
|
my $ccrole = 'cc'; |
if ($env{'form.crstype'} eq 'community') { |
if ($env{'form.crstype'} eq 'community') { |
$container = 'Community'; |
$container = 'Community'; |
|
$ccrole = 'co'; |
} |
} |
|
|
$personnel_headers = '<th>'.&mt('Name').'</th><th>'.&mt('Username:Domain'). |
$personnel_headers = '<th>'.&mt('Name').'</th><th>'.&mt('Username:Domain'). |
'</th><th>'.&mt('Role').'</th><th>'.&mt('LON-CAPA Sections'). |
'</th><th>'.&mt('Role').'</th><th>'.&mt('LON-CAPA Sections'). |
'</th>'; |
'</th>'; |
|
|
$personnel_values .= '<tr><td>'.$ownername.'</td><td>'.$owner.'</td>'. |
$personnel_values .= '<tr><td>'.$ownername.'</td><td>'.$owner.'</td>'. |
'<td>'.&Apache::lonnet::plaintext('cc',$container).'</td>'. |
'<td>'.&Apache::lonnet::plaintext($ccrole,$container).'</td>'. |
'<td>'.&mt('None').'</td></tr>'; |
'<td>'.&mt('None').'</td></tr>'; |
for (my $i=0; $i<$env{'form.persontotal'}; $i++) { |
for (my $i=0; $i<$env{'form.persontotal'}; $i++) { |
if ($env{'form.person_'.$i.'_uname'} ne '') { |
if ($env{'form.person_'.$i.'_uname'} ne '') { |
Line 2261 sub print_review {
|
Line 2285 sub print_review {
|
if ($showsec eq '') { |
if ($showsec eq '') { |
$showsec = &mt('None'); |
$showsec = &mt('None'); |
} |
} |
if ($env{'form.person_'.$i.'_role'} eq 'cc') { |
if ($env{'form.person_'.$i.'_role'} eq $ccrole) { |
$showsec = &mt('None'); |
$showsec = &mt('None'); |
} |
} |
my $role = $env{'form.person_'.$i.'_role'}; |
my $role = $env{'form.person_'.$i.'_role'}; |
Line 2350 function validateForm() {
|
Line 2374 function validateForm() {
|
} |
} |
nextPage(document.$formname,'$next'); |
nextPage(document.$formname,'$next'); |
} |
} |
|
|
|
function toggleCloning() { |
|
var willclone; |
|
if (document.$formname.cloning.length > 1) { |
|
for (var i=0; i<document.$formname.cloning.length; i++) { |
|
if (document.$formname.cloning[i].checked) { |
|
willclone = document.$formname.cloning[i].value; |
|
} |
|
} |
|
} |
|
if (willclone == 1) { |
|
document.getElementById('cloneoptions').style.display="block"; |
|
} else { |
|
document.getElementById('cloneoptions').style.display="none"; |
|
document.$formname.clonecrs.value = ''; |
|
} |
|
} |
|
|
// ]] |
// ]] |
</script> |
</script> |
|
|
Line 2360 ENDJS
|
Line 2402 ENDJS
|
$title = &mt('Brief Community Description'); |
$title = &mt('Brief Community Description'); |
$clonetitle = &mt('Clone content and settings from an existing community?'); |
$clonetitle = &mt('Clone content and settings from an existing community?'); |
} |
} |
my $output .= $js_validate."\n".'<div>'.&Apache::lonhtmlcommon::start_pick_box(). |
my $output .= $js_validate."\n".&Apache::lonhtmlcommon::start_pick_box(). |
&Apache::lonhtmlcommon::row_headline(). |
&Apache::lonhtmlcommon::row_headline(). |
'<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Description').' '.$title.'</h3>'. |
'<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Description').' '.$title.'</h3>'. |
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_closure(1). |
Line 2376 ENDJS
|
Line 2418 ENDJS
|
$output .= $home_server_pick. |
$output .= $home_server_pick. |
&Apache::lonhtmlcommon::row_closure(). |
&Apache::lonhtmlcommon::row_closure(). |
&Apache::lonhtmlcommon::row_headline(). |
&Apache::lonhtmlcommon::row_headline(). |
'<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Clone').' '.$clonetitle.'</h3>'. |
'<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Clone').' '.$clonetitle. |
|
'<label><input type="radio" name="cloning" value="1" '. |
|
'onclick="javascript:toggleCloning()" />'. |
|
&mt('Yes').(' 'x2).'</label><label>'. |
|
'<input type="radio" name="cloning" value="0" '. |
|
'onclick="javascript:toggleCloning()" />'.&mt('No').'</label>'. |
|
'</h3>'. |
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_closure(1). |
|
&Apache::lonhtmlcommon::row_headline(). |
|
'<div id="cloneoptions" style="display: none" >'. |
|
&Apache::lonhtmlcommon::start_pick_box(). |
&clone_form($dom,$formname,$crstype). |
&clone_form($dom,$formname,$crstype). |
&Apache::lonhtmlcommon::end_pick_box().'</div>'."\n"; |
&Apache::lonhtmlcommon::end_pick_box().'</div>'. |
|
&Apache::lonhtmlcommon::end_pick_box()."\n"; |
return $output; |
return $output; |
} |
} |
|
|
Line 2623 sub print_request_outcome {
|
Line 2675 sub print_request_outcome {
|
} |
} |
$now = time; |
$now = time; |
$crstype = $env{'form.crstype'}; |
$crstype = $env{'form.crstype'}; |
|
my $ccrole = 'cc'; |
|
if ($crstype eq 'community') { |
|
$ccrole = 'co'; |
|
} |
my @instsections; |
my @instsections; |
if ($crstype eq 'official') { |
if ($crstype eq 'official') { |
if (&Apache::lonnet::auto_run('',$dom)) { |
if (&Apache::lonnet::auto_run('',$dom)) { |
Line 2684 sub print_request_outcome {
|
Line 2740 sub print_request_outcome {
|
} else { |
} else { |
@{$personnel{$uname.':'.$udom}{'roles'}} = ($role); |
@{$personnel{$uname.':'.$udom}{'roles'}} = ($role); |
} |
} |
if ($role eq 'cc') { |
if ($role eq $ccrole) { |
@{$personnel{$uname.':'.$udom}{$role}{'usec'}} = (); |
@{$personnel{$uname.':'.$udom}{$role}{'usec'}} = (); |
} else { |
} else { |
my @currsec = &Apache::loncommon::get_env_multiple('form.person_'.$i.'_sec'); |
my @currsec = &Apache::loncommon::get_env_multiple('form.person_'.$i.'_sec'); |
Line 2736 sub print_request_outcome {
|
Line 2792 sub print_request_outcome {
|
} |
} |
my $clonecrs = ''; |
my $clonecrs = ''; |
my $clonedom = ''; |
my $clonedom = ''; |
if (($env{'form.clonecrs'} =~ /^($match_courseid)$/) && |
if (($env{'form.cloning'}) && |
|
($env{'form.clonecrs'} =~ /^($match_courseid)$/) && |
($env{'form.clonedom'} =~ /^($match_domain)$/)) { |
($env{'form.clonedom'} =~ /^($match_domain)$/)) { |
my $clonehome = &Apache::lonnet::homeserver($env{'form.clonecrs'}, |
my $clonehome = &Apache::lonnet::homeserver($env{'form.clonecrs'}, |
$env{'form.clonedom'}); |
$env{'form.clonedom'}); |
Line 2777 sub print_request_outcome {
|
Line 2834 sub print_request_outcome {
|
personnel => \%personnel, |
personnel => \%personnel, |
}; |
}; |
my (@inststatuses,$storeresult,$creationresult); |
my (@inststatuses,$storeresult,$creationresult); |
my $val = &get_processtype($dom,$crstype,\@inststatuses,\%domconfig); |
my $val = |
|
&Apache::loncoursequeueadmin::get_processtype($env{'user.name'},$env{'user.domain'}, |
|
$env{'user.adv'},$dom,$crstype,\@inststatuses,\%domconfig); |
if ($val eq '') { |
if ($val eq '') { |
if ($crstype eq 'official') { |
if ($crstype eq 'official') { |
$output = &mt('You are not permitted to request creation of official courses.'); |
$output = &mt('You are not permitted to request creation of official courses.'); |
Line 2847 sub print_request_outcome {
|
Line 2906 sub print_request_outcome {
|
} elsif ($disposition eq 'process') { |
} elsif ($disposition eq 'process') { |
my %domdefs = &Apache::lonnet::get_domain_defaults($dom); |
my %domdefs = &Apache::lonnet::get_domain_defaults($dom); |
my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg,%longroles); |
my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg,%longroles); |
my @roles = &Apache::lonuserutils::roles_by_context('course'); |
|
my $type = 'Course'; |
my $type = 'Course'; |
if ($crstype eq 'community') { |
if ($crstype eq 'community') { |
$type = 'Community'; |
$type = 'Community'; |
} |
} |
|
my @roles = &Apache::lonuserutils::roles_by_context('course','',$type); |
foreach my $role (@roles) { |
foreach my $role (@roles) { |
$longroles{$role}=&Apache::lonnet::plaintext($role,$type); |
$longroles{$role}=&Apache::lonnet::plaintext($role,$type); |
} |
} |
Line 2927 sub print_request_outcome {
|
Line 2986 sub print_request_outcome {
|
} |
} |
} |
} |
} |
} |
my ($statusresult); |
($storeresult,my $updateresult) = |
if ($requestkey =~ /^($match_domain)_($match_courseid)$/) { |
&Apache::loncoursequeueadmin::update_coursereq_status(\%reqhash,$dom, |
$storeresult = &Apache::lonnet::store_userdata(\%reqhash,$requestkey, |
$cnum,$reqstatus,'request'); |
'courserequests'); |
|
if ($storeresult eq 'ok') { |
|
my %status = ( |
|
'status:'.$dom.':'.$cnum => $reqstatus, |
|
); |
|
$statusresult = &Apache::lonnet::put('courserequests',\%status); |
|
} |
|
} else { |
|
$storeresult = 'error: invalid requestkey format'; |
|
} |
|
if ($storeresult ne 'ok') { |
|
$output .= '<span class="LC_warning">'.&mt('An error occurred saving a record of the details of your request: [_1].',$storeresult).'</span><br />'; |
|
&Apache::lonnet::logthis("Error saving course request - $requestkey for $env{'user.name'}:$env{'user.domain'} - $storeresult"); |
|
} elsif ($statusresult ne 'ok') { |
|
$output .= '<span class="LC_warning">'.&mt('An error occurred saving a record of the status of your request: [_1].',$statusresult).'</span><br />'; |
|
&Apache::lonnet::logthis("Error saving course request status for $requestkey (for $env{'user.name'}:$env{'user.domain'}) - $statusresult"); |
|
} |
|
if ($modified && $queued && $storeresult eq 'ok') { |
if ($modified && $queued && $storeresult eq 'ok') { |
if ($crstype eq 'community') { |
if ($crstype eq 'community') { |
$output .= '<p>'.&mt('Your community request has been updated').'</p>'; |
$output .= '<p>'.&mt('Your community request has been updated').'</p>'; |
Line 2956 sub print_request_outcome {
|
Line 2998 sub print_request_outcome {
|
$output .= ¬ification_information($disposition,$req_notifylist,$cnum,$now); |
$output .= ¬ification_information($disposition,$req_notifylist,$cnum,$now); |
} |
} |
if ($validationerror ne '') { |
if ($validationerror ne '') { |
$output .= '<span class="LC_warning">'.&mt('An error occurred validating your request with institutional data sources: [_1].',$validationerror).'</p>'; |
$output .= '<p class="LC_warning">'.&mt('An error occurred validating your request with institutional data sources: [_1].',$validationerror).'</p>'; |
|
} |
|
if ($updateresult) { |
|
$output .= $updateresult; |
} |
} |
} |
} |
if ($creationresult ne '') { |
if ($creationresult ne '') { |
Line 2973 sub update_requestors_roles {
|
Line 3018 sub update_requestors_roles {
|
my $owner = $env{'user.name'}.':'.$env{'user.domain'}; |
my $owner = $env{'user.name'}.':'.$env{'user.domain'}; |
if (ref($details) eq 'HASH') { |
if (ref($details) eq 'HASH') { |
if (ref($details->{'personnel'}) eq 'HASH') { |
if (ref($details->{'personnel'}) eq 'HASH') { |
|
my $ccrole = 'cc'; |
|
if ($crstype eq 'community') { |
|
$ccrole = 'co'; |
|
} |
unless (ref($details->{'personnel'}{$owner}) eq 'HASH') { |
unless (ref($details->{'personnel'}{$owner}) eq 'HASH') { |
$details->{'personnel'}{$owner} = { |
$details->{'personnel'}{$owner} = { |
'roles' => ['cc'], |
'roles' => [$ccrole], |
'cc' => { 'usec' => [] }, |
$ccrole => { 'usec' => [] }, |
}; |
}; |
} |
} |
my @roles; |
my @roles; |
if (ref($details->{'personnel'}{$owner}{'roles'}) eq 'ARRAY') { |
if (ref($details->{'personnel'}{$owner}{'roles'}) eq 'ARRAY') { |
@roles = sort(@{$details->{'personnel'}{$owner}{'roles'}}); |
@roles = sort(@{$details->{'personnel'}{$owner}{'roles'}}); |
unless (grep(/^cc$/,@roles)) { |
unless (grep(/^\Q$ccrole\E$/,@roles)) { |
push(@roles,'cc'); |
push(@roles,$ccrole); |
} |
} |
} else { |
} else { |
@roles = ('cc'); |
@roles = ($ccrole); |
} |
} |
foreach my $role (@roles) { |
foreach my $role (@roles) { |
my $start = $now; |
my $refresh=$env{'user.refresh.time'}; |
|
if ($refresh eq '') { |
|
$refresh = $env{'user.login.time'}; |
|
} |
|
if ($refresh eq '') { |
|
$refresh = $now; |
|
} |
|
my $start = $refresh-1; |
my $end = '0'; |
my $end = '0'; |
if ($role eq 'st') { |
if ($role eq 'st') { |
if ($details->{'accessstart'} ne '') { |
if ($details->{'accessstart'} ne '') { |
Line 3000 sub update_requestors_roles {
|
Line 3056 sub update_requestors_roles {
|
} |
} |
} |
} |
my @usecs; |
my @usecs; |
if ($role ne 'cc') { |
if ($role ne $ccrole) { |
if (ref($details->{'personnel'}{$owner}{$role}{'usec'}) eq 'ARRAY') { |
if (ref($details->{'personnel'}{$owner}{$role}{'usec'}) eq 'ARRAY') { |
@usecs = @{$details->{'personnel'}{$owner}{$role}{'usec'}}; |
@usecs = @{$details->{'personnel'}{$owner}{$role}{'usec'}}; |
} |
} |
Line 3065 sub update_requestors_roles {
|
Line 3121 sub update_requestors_roles {
|
} |
} |
if ($active) { |
if ($active) { |
if ($numactive == 1) { |
if ($numactive == 1) { |
$output = &mt('Use the following link to enter the course:'); |
if ($crstype eq 'Community') { |
|
$output = &mt('Use the following link to enter the community:'); |
|
} else { |
|
$output = &mt('Use the following link to enter the course:'); |
|
} |
} else { |
} else { |
$output = &mt('Use the following links to your new roles to enter the course:'); |
if ($crstype eq 'Community') { |
|
$output = &mt('Use the following links to your new roles to enter the community:'); |
|
} else { |
|
$output = &mt('Use the following links to your new roles to enter the course:'); |
|
} |
} |
} |
$output .= ' <ul>'.$active.'</ul><br />'; |
$output .= ' <ul>'.$active.'</ul><br />'; |
} |
} |
if ($future) { |
if ($future) { |
$output .= &mt('The following course [quant,_1,role] will become available for selection from your [_2]roles page[_3], once the default student access start date - [_4] - has been reached:',$numfuture,'<a href="/adm/roles">','</a>',&Apache::lonlocal::locallocaltime($details->{'accessstart'})). |
if ($crstype eq 'Community') { |
' <ul>'.$future.'</ul>'; |
$output .= &mt('The following community [quant,_1,role] will become available for selection from your [_2]roles page[_3], once the default student access start date - [_4] - has been reached:',$numfuture,'<a href="/adm/roles">','</a>',&Apache::lonlocal::locallocaltime($details->{'accessstart'})) |
|
} else { |
|
$output .= &mt('The following course [quant,_1,role] will become available for selection from your [_2]roles page[_3], once the default student access start date - [_4] - has been reached:',$numfuture,'<a href="/adm/roles">','</a>',&Apache::lonlocal::locallocaltime($details->{'accessstart'})); |
|
} |
|
$output .= ' <ul>'.$future.'</ul>'; |
} |
} |
return $output; |
return $output; |
} |
} |
Line 3109 sub notification_information {
|
Line 3177 sub notification_information {
|
'</div>'; |
'</div>'; |
} else { |
} else { |
$output .= '<div class="LC_warning">'. |
$output .= '<div class="LC_warning">'. |
&mt('Your request status is: [_1].',$disposition). |
&mt('Your request status is: [_1].',$disposition). |
'</div>' |
'</div>'; |
} |
} |
return $output; |
return $output; |
} |
} |
|
|
sub get_processtype { |
|
my ($dom,$crstype,$inststatuses,$domconfig) = @_; |
|
return unless ((ref($inststatuses) eq 'ARRAY') && (ref($domconfig) eq 'HASH')); |
|
my (%userenv,%settings,$val); |
|
my @options = ('autolimit','validate','approval'); |
|
if ($dom eq $env{'user.domain'}) { |
|
%userenv = |
|
&Apache::lonnet::userenvironment($env{'user.domain'},$env{'user.name'}, |
|
'requestcourses.'.$crstype,'inststatus'); |
|
if ($userenv{'requestcourses.'.$crstype}) { |
|
$val = $userenv{'requestcourses.'.$crstype}; |
|
@{$inststatuses} = ('_custom_'); |
|
} else { |
|
my ($task,%alltasks); |
|
if (ref($domconfig->{'requestcourses'}) eq 'HASH') { |
|
%settings = %{$domconfig->{'requestcourses'}}; |
|
if (ref($settings{$crstype}) eq 'HASH') { |
|
if (($env{'user.adv'}) && ($settings{$crstype}{'_LC_adv'} ne '')) { |
|
$val = $settings{$crstype}{'_LC_adv'}; |
|
@{$inststatuses} = ('_LC_adv_'); |
|
} else { |
|
if ($userenv{'inststatus'} ne '') { |
|
@{$inststatuses} = split(',',$userenv{'inststatus'}); |
|
} else { |
|
@{$inststatuses} = ('default'); |
|
} |
|
foreach my $status (@{$inststatuses}) { |
|
if (exists($settings{$crstype}{$status})) { |
|
my $value = $settings{$crstype}{$status}; |
|
next unless ($value); |
|
unless (exists($alltasks{$value})) { |
|
if (ref($alltasks{$value}) eq 'ARRAY') { |
|
unless(grep(/^\Q$status\E$/,@{$alltasks{$value}})) { |
|
push(@{$alltasks{$value}},$status); |
|
} |
|
} else { |
|
@{$alltasks{$value}} = ($status); |
|
} |
|
} |
|
} |
|
} |
|
my $maxlimit = 0; |
|
|
|
foreach my $key (sort(keys(%alltasks))) { |
|
if ($key =~ /^autolimit=(\d*)$/) { |
|
if ($1 eq '') { |
|
$val ='autolimit='; |
|
last; |
|
} elsif ($1 > $maxlimit) { |
|
$maxlimit = $1; |
|
} |
|
} |
|
} |
|
if ($maxlimit) { |
|
$val = 'autolimit='.$maxlimit; |
|
} else { |
|
foreach my $option (@options) { |
|
if ($alltasks{$option}) { |
|
$val = $option; |
|
last; |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} else { |
|
%userenv = &Apache::lonnet::userenvironment($env{'user.domain'}, |
|
$env{'user.name'},'reqcrsotherdom.'.$env{'form.crstype'}); |
|
if ($userenv{'reqcrsotherdom.'.$crstype}) { |
|
my @doms = split(',',$userenv{'reqcrsotherdom.'.$crstype}); |
|
my $optregex = join('|',@options); |
|
foreach my $item (@doms) { |
|
my ($extdom,$extopt) = split(':',$item); |
|
if ($extdom eq $dom) { |
|
if ($extopt =~ /^($optregex)(=?\d*)$/) { |
|
$val = $1.$2; |
|
} |
|
last; |
|
} |
|
} |
|
@{$inststatuses} = ('_external_'); |
|
} |
|
} |
|
return $val; |
|
} |
|
|
|
sub check_autolimit { |
sub check_autolimit { |
my ($uname,$udom,$dom,$crstype,$limit,$message) = @_; |
my ($uname,$udom,$dom,$crstype,$limit,$message) = @_; |
my %crsroles = &Apache::lonnet::get_my_roles($env{'user.name'},$env{'user.domain'}, |
my %crsroles = &Apache::lonnet::get_my_roles($env{'user.name'},$env{'user.domain'}, |
'userroles',['active','future'],['cc'],[$dom]); |
'userroles',['active','future'],['cc','co'],[$dom]); |
my ($types,$typename) = &Apache::loncommon::course_types(); |
my ($types,$typename) = &Apache::loncommon::course_types(); |
my %requests = &Apache::lonnet::dumpstore('courserequests',$udom,$uname); |
my %requests = &Apache::lonnet::dumpstore('courserequests',$udom,$uname); |
my %count; |
my $count = 0; |
if (ref($types) eq 'ARRAY') { |
|
foreach my $type (@{$types}) { |
|
$count{$type} = 0; |
|
} |
|
} |
|
foreach my $key (keys(%requests)) { |
foreach my $key (keys(%requests)) { |
my ($cdom,$cnum) = split('_',$key); |
my ($cdom,$cnum) = split('_',$key); |
if (exists($crsroles{$cnum.':'.$cdom.':cc'})) { |
if (ref($requests{$key}) eq 'HASH') { |
if (ref($requests{$key}) eq 'HASH') { |
next if ($requests{$key}{'crstype'} ne $crstype); |
my $type = $requests{$key}{'crstype'}; |
if (($crstype eq 'community') && |
if ($type =~ /^official|unofficial|community$/) { |
(exists($crsroles{$cnum.':'.$cdom.':co'}))) { |
$count{$type} ++; |
$count ++; |
} |
} elsif ((($crstype eq 'official') || ($crstype eq 'unofficial')) && |
|
(exists($crsroles{$cnum.':'.$cdom.':cc'}))) { |
|
$count ++; |
} |
} |
} |
} |
} |
} |
if ($count{$crstype} < $limit) { |
if ($count < $limit) { |
return 'process'; |
return 'process'; |
} else { |
} else { |
if (ref($typename) eq 'HASH') { |
if (ref($typename) eq 'HASH') { |
$$message = &mt('Your request has not been processed because you have reached the limit for the number of courses of this type.').'<br />'.&mt("Your $typename->{$crstype} limit is [_1].",$limit); |
if ($crstype eq 'community') { |
|
$$message = &mt('Your request has not been processed because you have reached the limit for the number of communities.'). |
|
'<br />'.&mt("Your limit is [_1].",$limit); |
|
} else { |
|
$$message = &mt('Your request has not been processed because you have reached the limit for the number of courses of this type.'). |
|
'<br />'.&mt("Your $typename->{$crstype} limit is [_1].",$limit); |
|
} |
} |
} |
return 'rejected'; |
return 'rejected'; |
} |
} |