version 1.36, 2009/09/13 03:13:55
|
version 1.62, 2011/01/24 00:59:50
|
Line 52 described at http://www.lon-capa.org.
|
Line 52 described at http://www.lon-capa.org.
|
|
|
=item onload_action() |
=item onload_action() |
|
|
=item check_can_request() |
|
|
|
=item course_types() |
|
|
|
=item print_main_menu() |
=item print_main_menu() |
|
|
=item request_administration() |
=item request_administration() |
Line 98 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 134 sub handler {
|
Line 128 sub handler {
|
} |
} |
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['action','showdom','cnum','state']); |
['action','showdom','cnum','state','crstype','queue']); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
my $dom = &get_course_dom(); |
my $dom = &get_course_dom(); |
my $action = $env{'form.action'}; |
my $action = $env{'form.action'}; |
Line 144 sub handler {
|
Line 138 sub handler {
|
|
|
$states{'display'} = ['details']; |
$states{'display'} = ['details']; |
$states{'view'} = ['pick_request','details','cancel','removal']; |
$states{'view'} = ['pick_request','details','cancel','removal']; |
$states{'log'} = ['filter','display']; |
$states{'log'} = ['display']; |
$states{'new'} = ['courseinfo','enrollment','personnel','review','process']; |
$states{'new'} = ['courseinfo','enrollment','personnel','review','process']; |
|
|
if (($action eq 'new') && ($env{'form.crstype'} eq 'official')) { |
if (($action eq 'new') && ($env{'form.crstype'} eq 'official')) { |
Line 161 sub handler {
|
Line 155 sub handler {
|
|
|
my @invalidcrosslist; |
my @invalidcrosslist; |
my %trail = ( |
my %trail = ( |
crstype => 'Course Request Action', |
crstype => 'Request Action', |
codepick => 'Category', |
codepick => 'Category', |
courseinfo => 'Description', |
courseinfo => 'Description', |
enrollment => 'Access Dates', |
enrollment => 'Access Dates', |
Line 172 sub handler {
|
Line 166 sub handler {
|
details => 'Request Details', |
details => 'Request Details', |
cancel => 'Cancel Request', |
cancel => 'Cancel Request', |
removal => 'Outcome', |
removal => 'Outcome', |
|
display => 'Request Logs', |
); |
); |
|
|
if (($env{'form.crstype'} eq 'official') && (&Apache::lonnet::auto_run('',$dom))) { |
if (($env{'form.crstype'} eq 'official') && (&Apache::lonnet::auto_run('',$dom))) { |
Line 182 sub handler {
|
Line 177 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 $queue = $env{'form.queue'}; |
|
my $reqkey = $cnum.'_'.$queue; |
my $namespace = 'courserequestqueue'; |
my $namespace = 'courserequestqueue'; |
my $domconfig = &Apache::lonnet::get_domainconfiguser($dom); |
my $domconfig = &Apache::lonnet::get_domainconfiguser($dom); |
my %queued = |
my %queued = |
Line 196 sub handler {
|
Line 191 sub handler {
|
if (($udom =~ /^$match_domain$/) && ($uname =~ /^$match_username$/)) { |
if (($udom =~ /^$match_domain$/) && ($uname =~ /^$match_username$/)) { |
$result = &retrieve_settings($dom,$cnum,$udom,$uname); |
$result = &retrieve_settings($dom,$cnum,$udom,$uname); |
} else { |
} else { |
$warning = &mt('Invalid username or domain for course requestor'); |
if ($env{'form.crstype'} eq 'community') { |
|
$warning = &mt('Invalid username or domain for community requestor'); |
|
} else { |
|
$warning = &mt('Invalid username or domain for course requestor'); |
|
} |
} |
} |
} else { |
} else { |
$warning = &mt('No information was found for this course request.'); |
if ($env{'form.crstype'} eq 'community') { |
|
$warning = &mt('No information was found for this community request.'); |
|
} else { |
|
$warning = &mt('No information was found for this course request.'); |
|
} |
} |
} |
} else { |
} else { |
$warning = &mt('No course request ID provided.'); |
$warning = &mt('No course request ID provided.'); |
} |
} |
} else { |
} else { |
$warning = &mt('You do not have rights to view course request information.'); |
if ($env{'form.crstype'} eq 'any') { |
|
$warning = &mt('You do not have rights to view course or community request information.'); |
|
} elsif ($env{'form.crstype'} eq 'community') { |
|
$warning = &mt('You do not have rights to view community request information.'); |
|
} else { |
|
$warning = &mt('You do not have rights to view course request information.'); |
|
} |
} |
} |
} elsif ((defined($state)) && (defined($action))) { |
} elsif ((defined($state)) && (defined($action))) { |
if (($action eq 'view') && ($state eq 'details')) { |
if (($action eq 'view') && ($state eq 'details')) { |
Line 267 sub handler {
|
Line 276 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 276 sub handler {
|
Line 288 sub handler {
|
|
|
my $loaditems = &onload_action($action,$state); |
my $loaditems = &onload_action($action,$state); |
|
|
my %can_request; |
my (%can_request,%request_domains); |
my $canreq = &check_can_request($dom,\%can_request); |
my $canreq = |
|
&Apache::lonnet::check_can_request($dom,\%can_request,\%request_domains); |
if ($action eq 'new') { |
if ($action eq 'new') { |
if ($canreq) { |
if ($canreq) { |
if ($state eq 'crstype') { |
if ($state eq 'crstype') { |
&print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems, |
&print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems, |
$crumb); |
$crumb,\%request_domains); |
} else { |
} else { |
&request_administration($r,$action,$state,$page,\%states,$dom, |
&request_administration($r,$action,$state,$page,\%states,$dom, |
$jscript,$loaditems,$crumb,$newinstcode, |
$jscript,$loaditems,$crumb,$newinstcode, |
Line 290 sub handler {
|
Line 303 sub handler {
|
\@invalidcrosslist); |
\@invalidcrosslist); |
} |
} |
} else { |
} else { |
$r->print(&header('Course Requests').$crumb. |
$r->print(&header('Course/Community Requests').$crumb. |
'<div class="LC_warning">'. |
'<div class="LC_warning">'. |
&mt('You do not have privileges to request creation of courses.'). |
&mt('You do not have privileges to request creation of courses or communities.'). |
'</div>'.&Apache::loncommon::end_page()); |
'</div>'.&Apache::loncommon::end_page()); |
} |
} |
} elsif ($action eq 'view') { |
} elsif ($action eq 'view') { |
if ($state eq 'crstype') { |
if ($state eq 'crstype') { |
&print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems,$crumb); |
&print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems,$crumb,\%request_domains); |
} else { |
} else { |
&request_administration($r,$action,$state,$page,\%states,$dom,$jscript, |
&request_administration($r,$action,$state,$page,\%states,$dom,$jscript, |
$loaditems,$crumb); |
$loaditems,$crumb); |
Line 305 sub handler {
|
Line 318 sub handler {
|
} elsif ($action eq 'display') { |
} elsif ($action eq 'display') { |
if ($warning ne '') { |
if ($warning ne '') { |
my $args = { only_body => 1 }; |
my $args = { only_body => 1 }; |
$r->print(&header('Course Requests','','',$args).$crumb. |
$r->print(&header('Course/Community Requests','','' ,'',$args).$crumb. |
'<h3>'.&mt('Course Request Details').'</h3>'. |
'<h3>'.&mt('Course/Community Request Details').'</h3>'. |
'<div class="LC_warning">'.$warning.'</div>'. |
'<div class="LC_warning">'.$warning.'</div>'. |
&close_popup_form()); |
&close_popup_form()); |
} else { |
} else { |
Line 314 sub handler {
|
Line 327 sub handler {
|
$loaditems,$crumb,'','','','','',$uname,$udom); |
$loaditems,$crumb,'','','','','',$uname,$udom); |
} |
} |
} elsif ($action eq 'log') { |
} elsif ($action eq 'log') { |
&print_request_logs($jscript,$loaditems,$crumb); |
if ($state eq 'crstype') { |
|
&print_main_menu($r,\%can_request,\%states,$dom,$jscript,'',$crumb,\%request_domains); |
|
} else { |
|
$jscript .= <<ENDJS; |
|
|
|
function backPage(formname,prevstate) { |
|
formname.state.value = prevstate; |
|
formname.submit(); |
|
} |
|
|
|
function setPage(formname) { |
|
formname.page.value = '1'; |
|
return; |
|
} |
|
|
|
ENDJS |
|
&print_request_logs($r,$dom,$jscript,$loaditems,$crumb); |
|
} |
} else { |
} else { |
&print_main_menu($r,\%can_request,\%states,$dom,$jscript,'',$crumb); |
&print_main_menu($r,\%can_request,\%states,$dom,$jscript,'',$crumb,\%request_domains); |
} |
} |
return OK; |
return OK; |
} |
} |
Line 345 function setAction(courseForm) {
|
Line 375 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 390 sub get_breadcrumbs {
|
Line 436 sub get_breadcrumbs {
|
if ($$state eq $states->{$action}[$i]) { |
if ($$state eq $states->{$action}[$i]) { |
&Apache::lonhtmlcommon::add_breadcrumb( |
&Apache::lonhtmlcommon::add_breadcrumb( |
{text=>"$trail->{$$state}"}); |
{text=>"$trail->{$$state}"}); |
$crumb = &Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests'); |
$crumb = &Apache::lonhtmlcommon::breadcrumbs('Course/Community Requests','Course_Requests'); |
last; |
last; |
} else { |
} else { |
if (($$state eq 'process') || ($$state eq 'removal')) { |
if (($$state eq 'process') || ($$state eq 'removal')) { |
Line 410 sub get_breadcrumbs {
|
Line 456 sub get_breadcrumbs {
|
} else { |
} else { |
&Apache::lonhtmlcommon::add_breadcrumb( |
&Apache::lonhtmlcommon::add_breadcrumb( |
{text=>'Pick Action'}); |
{text=>'Pick Action'}); |
$crumb = &Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests'); |
$crumb = &Apache::lonhtmlcommon::breadcrumbs('Course/Community Requests','Course_Requests'); |
} |
} |
} else { |
} else { |
&Apache::lonhtmlcommon::add_breadcrumb( |
&Apache::lonhtmlcommon::add_breadcrumb( |
{text=>'Pick Action'}); |
{text=>'Pick Action'}); |
$crumb = &Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests'); |
$crumb = &Apache::lonhtmlcommon::breadcrumbs('Course/Community Requests','Course_Requests'); |
} |
} |
return ($page,$crumb,$newinstcode,$codechk,$checkedcode,$description); |
return ($page,$crumb,$newinstcode,$codechk,$checkedcode,$description); |
} |
} |
Line 453 sub form_elements {
|
Line 499 sub form_elements {
|
}, |
}, |
courseinfo => { |
courseinfo => { |
cdescr => 'text', |
cdescr => 'text', |
|
cloning => 'radio', |
clonecrs => 'text', |
clonecrs => 'text', |
clonedom => 'selectbox', |
clonedom => 'selectbox', |
datemode => 'radio', |
datemode => 'radio', |
Line 509 sub form_elements {
|
Line 556 sub form_elements {
|
} |
} |
if (&Apache::lonnet::auto_run('',$dom)) { |
if (&Apache::lonnet::auto_run('',$dom)) { |
my %extras = ( |
my %extras = ( |
sectotal => 'hidden', |
|
enrollstart_month => 'selectbox', |
enrollstart_month => 'selectbox', |
enrollstart_hour => 'selectbox', |
enrollstart_hour => 'selectbox', |
enrollend_month => 'selectbox', |
enrollend_month => 'selectbox', |
Line 525 sub form_elements {
|
Line 571 sub form_elements {
|
addcrosslist => 'checkbox', |
addcrosslist => 'checkbox', |
autoadds => 'radio', |
autoadds => 'radio', |
autodrops => 'radio', |
autodrops => 'radio', |
); |
); |
if ($env{'form.sectotal'} > 0) { |
my ($instcode,$titlescount) = &get_instcode($dom); |
for (my $i=0; $i<$env{'form.sectotal'}; $i++) { |
if ($instcode) { |
$extras{'sec_'.$i} = 'radio'; |
my @sections = &Apache::lonnet::auto_get_sections(undef,$dom,$instcode); |
$extras{'secnum_'.$i} = 'text'; |
if (@sections) { |
$extras{'loncapasec_'.$i} = 'text'; |
$extras{'sectotal'} = 'hidden'; |
|
if ($env{'form.sectotal'} > 0) { |
|
for (my $i=0; $i<$env{'form.sectotal'}; $i++) { |
|
$extras{'sec_'.$i} = 'radio'; |
|
$extras{'secnum_'.$i} = 'text'; |
|
$extras{'loncapasec_'.$i} = 'text'; |
|
} |
|
} |
|
} else { |
|
$extras{'addsection'} = 'checkbox'; |
|
my $sectotal = $env{'form.sectotal'}; |
|
if ($env{'form.addsection'}) { |
|
$sectotal ++; |
|
} |
|
for (my $i=0; $i<$sectotal; $i++) { |
|
$extras{'sec_'.$i} = 'checkbox'; |
|
$extras{'secnum_'.$i} = 'text', |
|
$extras{'loncapasec_'.$i} = 'text', |
|
} |
} |
} |
} |
} |
my $crosslisttotal = $env{'form.crosslisttotal'}; |
my $crosslisttotal = $env{'form.crosslisttotal'}; |
Line 540 sub form_elements {
|
Line 604 sub form_elements {
|
if (!$crosslisttotal) { |
if (!$crosslisttotal) { |
$crosslisttotal = 1; |
$crosslisttotal = 1; |
} |
} |
|
|
for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) { |
for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) { |
if ($numtitles) { |
if ($numtitles) { |
$extras{'crosslist_'.$i.'_'.$lastitem} = 'text'; |
$extras{'crosslist_'.$i.'_'.$lastitem} = 'text'; |
Line 588 sub onload_action {
|
Line 651 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') { |
return \%loaditems; |
$loaditems{'onload'} .= 'javascript:setCloneDisplay(document.requestcrs);'; |
} |
|
|
|
sub check_can_request { |
|
my ($dom,$can_request) = @_; |
|
my $canreq = 0; |
|
my ($types,$typename) = &course_types(); |
|
my @options = ('approval','validate','autolimit'); |
|
my $optregex = join('|',@options); |
|
if ((ref($can_request) eq 'HASH') && (ref($types) eq 'ARRAY')) { |
|
foreach my $type (@{$types}) { |
|
if (&Apache::lonnet::usertools_access($env{'user.name'}, |
|
$env{'user.domain'}, |
|
$type,undef,'requestcourses')) { |
|
$canreq ++; |
|
if ($dom eq $env{'user.domain'}) { |
|
$can_request->{$type} = 1; |
|
} |
|
} |
|
if ($env{'environment.reqcrsotherdom.'.$type} ne '') { |
|
my @curr = split(',',$env{'environment.reqcrsotherdom.'.$type}); |
|
if (@curr > 0) { |
|
$canreq ++; |
|
unless ($dom eq $env{'user.domain'}) { |
|
if (grep(/^\Q$dom\E:($optregex)(=?\d*)$/,@curr)) { |
|
$can_request->{$type} = 1; |
|
} |
|
} |
|
} |
|
} |
|
} |
} |
} |
} |
return $canreq; |
return \%loaditems; |
} |
|
|
|
sub course_types { |
|
my @types = ('official','unofficial','community'); |
|
my %typename = ( |
|
official => 'Official course', |
|
unofficial => 'Unofficial course', |
|
community => 'Community', |
|
); |
|
return (\@types,\%typename); |
|
} |
} |
|
|
|
|
sub print_main_menu { |
sub print_main_menu { |
my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb) = @_; |
my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb,$request_domains) = @_; |
my ($types,$typename) = &course_types(); |
my ($types,$typename) = &Apache::loncommon::course_types(); |
my $onchange; |
my $onchange = 'this.form.submit()'; |
unless ($env{'form.interface'} eq 'textual') { |
|
$onchange = 1; |
|
} |
|
|
|
my $nextstate_setter = "\n"; |
my $nextstate_setter = "\n"; |
if (ref($states) eq 'HASH') { |
if (ref($states) eq 'HASH') { |
foreach my $key (keys(%{$states})) { |
foreach my $key (keys(%{$states})) { |
Line 682 function check_can_request(crschoice,act
|
Line 701 function check_can_request(crschoice,act
|
var unofficial = ''; |
var unofficial = ''; |
var community = ''; |
var community = ''; |
END |
END |
|
if (ref($can_request) eq 'HASH') { |
foreach my $item (keys(%{$can_request})) { |
foreach my $item (keys(%{$can_request})) { |
$js .= " |
$js .= " |
$item = 1; |
$item = 1; |
"; |
"; |
|
} |
} |
} |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
official => 'You are not permitted to request creation of an official course in this domain.', |
official => 'You are not permitted to request creation of an official course in this domain.', |
unofficial => 'You are not permitted to request creation of an unofficial course in this domain.', |
unofficial => 'You are not permitted to request creation of an unofficial course in this domain.', |
community => 'You are not permitted to request creation of a community this domain.', |
community => 'You are not permitted to request creation of a community this domain.', |
all => 'You must choose a specific course type when making a new course request.\\nAll types is not allowed.', |
all => 'You must choose a specific course type when making a new course request.\\n\"All types\" is not allowed.', |
); |
); |
$js .= <<END; |
$js .= <<END; |
if (crschoice == 'official') { |
if (crschoice == 'official') { |
Line 722 END
|
Line 742 END
|
} |
} |
return true; |
return true; |
} |
} |
|
|
END |
END |
|
my ($pagetitle,$pageinfo,$domaintitle); |
$r->print(&header('Course Requests',$js.$jscript,$loaditems).$crumb. |
if (ref($can_request) eq 'HASH') { |
'<p>'.&mt('Request creation of a new course, or review your pending course requests.').'</p>'. |
if (($can_request->{'official'}) || ($can_request->{'unofficial'})) { |
|
if ($can_request->{'community'}) { |
|
$pagetitle = 'Course/Community Requests'; |
|
$pageinfo = &mt('Request creation of a new course or community, or review your pending requests.'); |
|
$domaintitle = &mt('Course/Community Domain'); |
|
} else { |
|
$pagetitle = 'Course Requests'; |
|
$pageinfo = &mt('Request creation of a new course, or review your pending course requests.'); |
|
$domaintitle = &mt('Course Domain'); |
|
} |
|
} elsif ($can_request->{'community'}) { |
|
$pagetitle = 'Community Requests'; |
|
$pageinfo = &mt('Request creation of a new course, or review your pending requests.'); |
|
$domaintitle = &mt('Community Domain'); |
|
} else { |
|
$pagetitle = 'Course/Community Requests'; |
|
$pageinfo = &mt('You do not have rights to request creation of courses in this domain; please choose a different domain.'); |
|
$domaintitle = &mt('Course/Community Domain'); |
|
} |
|
} |
|
my @incdoms; |
|
if (ref($request_domains) eq 'HASH') { |
|
foreach my $item (keys(%{$request_domains})) { |
|
if (ref($request_domains->{$item}) eq 'ARRAY') { |
|
foreach my $possdom (@{$request_domains->{$item}}) { |
|
unless(grep(/^\Q$possdom\E$/,@incdoms)) { |
|
push(@incdoms,$possdom); |
|
} |
|
} |
|
} |
|
} |
|
} |
|
$r->print(&header($pagetitle,$js.$jscript,$loaditems).$crumb. |
|
'<p>'.$pageinfo.'</p>'. |
'<div>'. |
'<div>'. |
&Apache::lonhtmlcommon::start_pick_box(). |
&Apache::lonhtmlcommon::start_pick_box(). |
&Apache::lonhtmlcommon::row_title(&mt('Course Domain')). |
&Apache::lonhtmlcommon::row_title($domaintitle). |
'<form name="domforcourse" method="post" action="/adm/requestcourse">'. |
'<form name="domforcourse" method="post" action="/adm/requestcourse">'. |
&Apache::loncommon::select_dom_form($dom,'showdom','',1,$onchange)); |
&Apache::loncommon::select_dom_form($dom,'showdom','',1,$onchange,\@incdoms)); |
if (!$onchange) { |
if (!$onchange) { |
$r->print(' <input type="submit" name="godom" value="'. |
$r->print(' <input type="submit" name="godom" value="'. |
&mt('Change').'" />'); |
&mt('Change').'" />'); |
} |
} |
|
unless ((ref($can_request) eq 'HASH') && (keys(%{$can_request}) > 0)) { |
|
$r->print(&Apache::lonhtmlcommon::row_closure(1)."\n". |
|
&Apache::lonhtmlcommon::end_pick_box().'</div>'."\n". |
|
&Apache::loncommon::end_page()); |
|
return; |
|
} |
$r->print('</form>'.&Apache::lonhtmlcommon::row_closure()); |
$r->print('</form>'.&Apache::lonhtmlcommon::row_closure()); |
|
|
my $formname = 'requestcrs'; |
my $formname = 'requestcrs'; |
my $nexttext = &mt('Next'); |
my $nexttext = &mt('Next'); |
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Action')).' |
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Action')).' |
Line 747 END
|
Line 804 END
|
<option value="view">'.&mt('View/Modify/Cancel pending requests').'</option> |
<option value="view">'.&mt('View/Modify/Cancel pending requests').'</option> |
<option value="log">'.&mt('View request history').'</option> |
<option value="log">'.&mt('View request history').'</option> |
</select></form>'. |
</select></form>'. |
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_closure(). |
&Apache::lonhtmlcommon::row_title(&mt('Course Type')).' |
&Apache::lonhtmlcommon::row_title(&mt('Type')).' |
<form name="mainmenu_coursetype" method="post" action=""> |
<form name="mainmenu_coursetype" method="post" action=""> |
<select size="1" name="crstype"> |
<select size="1" name="crstype">'); |
<option value="any">'.&mt('All types').'</option>'); |
if (ref($can_request) eq 'HASH') { |
if ((ref($types) eq 'ARRAY') && (ref($typename) eq 'HASH')) { |
if (keys(%{$can_request}) > 1) { |
foreach my $type (@{$types}) { |
$r->print(' <option value="any">'.&mt('All types').'</option>'); |
my $selected = ''; |
} |
if ($type eq 'official') { |
if ((ref($types) eq 'ARRAY') && (ref($typename) eq 'HASH')) { |
$selected = ' selected="selected"'; |
foreach my $type (@{$types}) { |
|
next unless($can_request->{$type}); |
|
my $selected = ''; |
|
if ($env{'form.crstype'} eq '') { |
|
if ($type eq 'official') { |
|
$selected = ' selected="selected"'; |
|
} |
|
} else { |
|
if ($type eq $env{'form.crstype'}) { |
|
$selected = ' selected="selected"'; |
|
} |
|
} |
|
$r->print('<option value="'.$type.'"'.$selected.'>'.&mt($typename->{$type}). |
|
'</option>'."\n"); |
} |
} |
$r->print('<option value="'.$type.'"'.$selected.'>'.&mt($typename->{$type}). |
|
'</option>'."\n"); |
|
} |
} |
} |
} |
$r->print('</select></form>'."\n". |
$r->print('</select></form>'."\n". |
&Apache::lonhtmlcommon::row_closure(1)."\n". |
&Apache::lonhtmlcommon::row_closure(1)."\n". |
&Apache::lonhtmlcommon::end_pick_box().'</div>'."\n". |
&Apache::lonhtmlcommon::end_pick_box().'</div>'."\n". |
'<div><form name="'.$formname.'" method="post" action="">'."\n". |
'<div><form name="'.$formname.'" method="post" action="/adm/requestcourse">'."\n". |
'<input type="hidden" name="state" value="crstype" />'."\n". |
'<input type="hidden" name="state" value="crstype" />'."\n". |
'<input type="hidden" name="showdom" value="'.$dom.'" />'."\n". |
'<input type="hidden" name="showdom" value="'.$dom.'" />'."\n". |
'<input type="hidden" name="crstype" value="" />'."\n". |
'<input type="hidden" name="crstype" value="" />'."\n". |
Line 804 END
|
Line 872 END
|
} |
} |
if ($action eq 'new') { |
if ($action eq 'new') { |
my $jsextra; |
my $jsextra; |
if ($state eq 'courseinfo') { |
if (($state eq 'courseinfo') || ($state eq 'codepick')) { |
$jsextra = "\n".&Apache::loncommon::coursebrowser_javascript($dom); |
$jsextra = "\n".&Apache::loncommon::coursebrowser_javascript($dom); |
} elsif ($state eq 'enrollment') { |
} elsif ($state eq 'enrollment') { |
if (($env{'form.crstype'} eq 'official') && |
if (($env{'form.crstype'} eq 'official') && |
Line 814 END
|
Line 882 END
|
} elsif ($state eq 'personnel') { |
} elsif ($state eq 'personnel') { |
$js .= "\n".§ion_check_javascript()."\n".&personnel_lcsec_js(); |
$js .= "\n".§ion_check_javascript()."\n".&personnel_lcsec_js(); |
} |
} |
$r->print(&header('Request a course',$js.$jscript,$loaditems,$jsextra).$crumb); |
my $title; |
|
if ($env{'form.crstype'} eq 'community') { |
|
$title = 'Request a community'; |
|
} else { |
|
$title = 'Request a course'; |
|
} |
|
$r->print(&header($title,$js.$jscript,$loaditems,$jsextra).$crumb); |
&print_request_form($r,$action,$state,$page,$states,$dom,$newinstcode, |
&print_request_form($r,$action,$state,$page,$states,$dom,$newinstcode, |
$codechk,$checkedcode,$description,$invalidcrosslist); |
$codechk,$checkedcode,$description,$invalidcrosslist); |
} elsif ($action eq 'view') { |
} elsif ($action eq 'view') { |
Line 831 END
|
Line 905 END
|
} elsif ($state eq 'cancel') { |
} elsif ($state eq 'cancel') { |
$jsextra = &viewcancel_javascript($formname); |
$jsextra = &viewcancel_javascript($formname); |
} |
} |
$r->print(&header('Manage course requests',$js.$jscript.$jsextra,$loaditems). |
my $title; |
$crumb); |
if ($env{'form.crstype'} eq 'community') { |
|
$title = 'Manage community requests'; |
|
} else { |
|
$title = 'Manage course requests'; |
|
} |
|
$r->print(&header($title,$js.$jscript.$jsextra,$loaditems).$crumb); |
my $form = '<form method="post" name="'.$formname.'" action="/adm/requestcourse" />'; |
my $form = '<form method="post" name="'.$formname.'" action="/adm/requestcourse" />'; |
if ($state eq 'pick_request') { |
if ($state eq 'pick_request') { |
$r->print('<h3>'.&mt('Pending course requests').'</h3><div>'."\n".$form."\n". |
my $title; |
&print_request_status($dom).'</form></div>'); |
if ($env{'form.crstype'} eq 'community') { |
|
$title = &mt('Pending community requests'); |
|
} elsif ($env{'form.crstype'} eq 'official') { |
|
$title = &mt('Pending requests for official courses'); |
|
} elsif ($env{'form.crstype'} eq 'unofficial') { |
|
$title = &mt('Pending requests for unofficial courses'); |
|
} else { |
|
$title = &mt('Pending course/community requests'); |
|
} |
|
$r->print('<h3>'.$title.'</h3><div>'."\n".$form."\n". |
|
&print_request_status($dom,$action).'</form></div>'); |
} elsif ($state eq 'details') { |
} elsif ($state eq 'details') { |
my (@codetitles,%cat_titles,%cat_order,@code_order,$instcode,$code_chk); |
my (@codetitles,%cat_titles,%cat_order,@code_order,$instcode,$code_chk); |
my $origcnum = $env{'form.cnum'}; |
my $origcnum = $env{'form.cnum'}; |
Line 847 END
|
Line 936 END
|
&Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, |
&Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, |
\%cat_order,\@code_order); |
\%cat_order,\@code_order); |
} |
} |
$r->print('<h3>'.&mt('Course Request Details').'</h3><div>'."\n".$form."\n". |
my $title; |
|
if ($env{'form.crstype'} eq 'community') { |
|
$title = &mt('Community Request Details'); |
|
} else { |
|
$title = &mt('Course Request Details'); |
|
} |
|
$r->print('<h3>'.$title.'</h3><div>'."\n".$form."\n". |
&print_review($dom,\@codetitles,\%cat_titles,\%cat_order, |
&print_review($dom,\@codetitles,\%cat_titles,\%cat_order, |
\@code_order)."\n". |
\@code_order)."\n". |
'<input name="origcnum" value="'.$origcnum.'" type="hidden" />'."\n"); |
'<input name="origcnum" value="'.$origcnum.'" type="hidden" />'."\n"); |
Line 864 END
|
Line 959 END
|
$navtxt{'next'},$state,$other,$navtxt{'other'}); |
$navtxt{'next'},$state,$other,$navtxt{'other'}); |
$r->print('</form>'); |
$r->print('</form>'); |
} elsif ($state eq 'cancel') { |
} elsif ($state eq 'cancel') { |
|
my $title; |
|
if ($env{'form.crstype'} eq 'community') { |
|
$title = &mt('Cancel community request'); |
|
} else { |
|
$title = &mt('Cancel course request'); |
|
} |
my ($result,$output) = &print_cancel_request($dom,$env{'form.origcnum'}); |
my ($result,$output) = &print_cancel_request($dom,$env{'form.origcnum'}); |
$r->print('<h3>'.&mt('Cancel course request').'</h3><div>'."\n".$form."\n". |
$r->print('<h3>'.$title.'</h3><div>'."\n".$form."\n". |
$output); |
$output); |
my @excluded = &get_excluded_elements($dom,$states,'view','cancel'); |
my @excluded = &get_excluded_elements($dom,$states,'view','cancel'); |
$r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'</div>'); |
$r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'</div>'); |
Line 914 END
|
Line 1015 END
|
'<input type="hidden" name="showdom" value="'.$dom.'" />'."\n". |
'<input type="hidden" name="showdom" value="'.$dom.'" />'."\n". |
'<input type="hidden" name="orignum" value="'.$cnum.'" />'."\n"); |
'<input type="hidden" name="orignum" value="'.$cnum.'" />'."\n"); |
if ($result eq 'ok') { |
if ($result eq 'ok') { |
$r->print(&mt('Your course request has been cancelled.')); |
if ($env{'form.crstype'} eq 'community') { |
|
$r->print(&mt('Your community request has been cancelled.')); |
|
} else { |
|
$r->print(&mt('Your course request has been cancelled.')); |
|
} |
} else { |
} else { |
$r->print('<div class="LC_error">'. |
$r->print('<div class="LC_error">'. |
&mt('The request cancellation process was not complete.'). |
&mt('The request cancellation process was not complete.'). |
Line 929 END
|
Line 1034 END
|
&Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, |
&Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, |
\%cat_order,\@code_order); |
\%cat_order,\@code_order); |
} |
} |
$r->print(&header('Course Request','','','',{ 'only_body' => 1}). |
my ($title,$header); |
$crumb."\n".'<h3>'.&mt('Course Request Details').'</h3>'. |
if ($env{'form.crstype'} eq 'community') { |
|
$title = 'Community Request'; |
|
$header = &mt('Community Request'); |
|
} else { |
|
$title = 'Course Request'; |
|
$header = &mt('Course Request'); |
|
} |
|
$r->print(&header($title,'','','',{ 'only_body' => 1}). |
|
$crumb."\n".'<h3>'.$header.'</h3>'. |
&print_review($dom,\@codetitles,\%cat_titles,\%cat_order, |
&print_review($dom,\@codetitles,\%cat_titles,\%cat_order, |
\@code_order,$uname,$udom)."\n".'</div>'. |
\@code_order,$uname,$udom)."\n".'</div>'. |
&close_popup_form()); |
&close_popup_form()); |
} elsif ($action eq 'log') { |
|
$r->print(&coursereq_log('View request log',$jscript,$loaditems).$crumb); |
|
} |
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return; |
return; |
Line 1227 sub print_request_form {
|
Line 1338 sub print_request_form {
|
} |
} |
if ($skipuser) { |
if ($skipuser) { |
push(@disallowed,$i); |
push(@disallowed,$i); |
$disallowmsg{$i} = &mt('[_1] was excluded because new users need be from the course domain','<tt>'.$personname.':'.$persondom.'</tt>'); |
$disallowmsg{$i} = &mt('[_1] was excluded because new users need to be from the course domain','<tt>'.$personname.':'.$persondom.'</tt>'); |
next; |
next; |
} |
} |
} |
} |
if (&get_cancreate_status($persondom,$personname,$dom)) { |
my $usertype = &get_usertype($persondom,$personname,\%curr_rules,\%got_rules); |
my ($allowed,$msg) = |
if (&Apache::lonuserutils::can_create_user($dom,'requestcrs',$usertype)) { |
|
my ($allowed,$msg,$authtype,$authparam) = |
&check_newuser_rules($persondom,$personname, |
&check_newuser_rules($persondom,$personname, |
\%alerts,\%rulematch,\%inst_results, |
\%alerts,\%rulematch,\%inst_results, |
\%curr_rules,\%got_rules); |
\%curr_rules,\%got_rules); |
if ($allowed) { |
if ($allowed) { |
|
my %domdefaults = &Apache::lonnet::get_domain_defaults($persondom); |
|
if ($usertype eq 'official') { |
|
if ($authtype eq '') { |
|
$authtype = $domdefaults{'auth_def'}; |
|
$authparam = $domdefaults{'auth_arg_def'}; |
|
} |
|
} elsif ($usertype eq 'unofficial') { |
|
if ($authtype eq '') { |
|
$authtype = 'internal'; |
|
$authparam = ''; |
|
} |
|
} else { |
|
$authtype = $domdefaults{'auth_def'}; |
|
$authparam = $domdefaults{'auth_arg_def'}; |
|
} |
|
if (($authtype eq '') || |
|
(($authtype =~/^krb/) && ($authparam eq ''))) { |
|
push(@disallowed,$i); |
|
$disallowmsg{$i} = &mt('[_1] was excluded because institutional information is incomplete for this new user.','<tt>'.$personname.':'.$persondom.'</tt>'); |
|
next; |
|
} |
if (ref($inst_results{$personname.':'.$persondom}) eq 'HASH') { |
if (ref($inst_results{$personname.':'.$persondom}) eq 'HASH') { |
if ($inst_results{$personname.':'.$persondom}{'lastname'} ne '') { |
if ($inst_results{$personname.':'.$persondom}{'lastname'} ne '') { |
$env{'form.person_'.$i.'_lastname'} = $inst_results{$personname.':'.$persondom}{'lastname'}; |
$env{'form.person_'.$i.'_lastname'} = $inst_results{$personname.':'.$persondom}{'lastname'}; |
Line 1282 sub print_request_form {
|
Line 1415 sub print_request_form {
|
if ($env{'form.origcnum'} =~ /^($match_courseid)$/) { |
if ($env{'form.origcnum'} =~ /^($match_courseid)$/) { |
$cnum = $env{'form.origcnum'}; |
$cnum = $env{'form.origcnum'}; |
} else { |
} else { |
$cnum = &Apache::lonnet::generate_coursenum($dom); |
my $gentype = 'Course'; |
|
if ($crstype eq 'community') { |
|
$gentype = 'Community'; |
|
} |
|
$cnum = &Apache::lonnet::generate_coursenum($dom,$gentype); |
} |
} |
&Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, |
&Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, |
\%cat_order,\@code_order); |
\%cat_order,\@code_order); |
$r->print('<h3>'.&mt('Review course request details before submission').'</h3>'. |
if ($crstype eq 'community') { |
&print_review($dom,\@codetitles,\%cat_titles,\%cat_order,\@code_order,'','',\@disallowed,\%disallowmsg). |
$r->print('<h3>'.&mt('Review community request details before submission').'</h3>'); |
|
} else { |
|
$r->print('<h3>'.&mt('Review course request details before submission').'</h3>'); |
|
} |
|
$r->print(&print_review($dom,\@codetitles,\%cat_titles,\%cat_order,\@code_order,'','',\@disallowed,\%disallowmsg). |
'<input type="hidden" name="cnum" value="'.$cnum.'" />'); |
'<input type="hidden" name="cnum" value="'.$cnum.'" />'); |
$navtxt{'next'} = &mt('Submit course request'); |
if ($crstype eq 'community') { |
|
$navtxt{'next'} = &mt('Submit community request'); |
|
} else { |
|
$navtxt{'next'} = &mt('Submit course request'); |
|
} |
} elsif ($state eq 'process') { |
} elsif ($state eq 'process') { |
if ($crstype eq 'official') { |
if ($crstype eq 'official') { |
&Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, |
&Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, |
Line 1339 sub print_request_form {
|
Line 1484 sub print_request_form {
|
} |
} |
} |
} |
if ($state eq 'enrollment') { |
if ($state eq 'enrollment') { |
push(@excluded,'crosslisttotal'); |
push(@excluded,('sectotal','crosslisttotal')); |
} |
} |
$r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'</form>'); |
$r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'</form>'); |
&display_navbuttons($r,$dom,$formname,$prev,$navtxt{'prev'},$next, |
&display_navbuttons($r,$dom,$formname,$prev,$navtxt{'prev'},$next, |
Line 1347 sub print_request_form {
|
Line 1492 sub print_request_form {
|
return; |
return; |
} |
} |
|
|
sub get_cancreate_status { |
sub get_usertype { |
my ($persondom,$personname,$dom) = @_; |
my ($persondom,$personname,$curr_rules,$got_rules) = @_; |
my ($rules,$ruleorder) = |
my ($rules,$ruleorder) = |
&Apache::lonnet::inst_userrules($persondom,'username'); |
&Apache::lonnet::inst_userrules($persondom,'username'); |
my $usertype = &Apache::lonuserutils::check_usertype($persondom,$personname, |
my $usertype = &Apache::lonuserutils::check_usertype($persondom,$personname, |
$rules); |
$rules,$curr_rules,$got_rules); |
return &Apache::lonuserutils::can_create_user($dom,'requestcrs',$usertype); |
return $usertype; |
} |
} |
|
|
sub check_newuser_rules { |
sub check_newuser_rules { |
Line 1361 sub check_newuser_rules {
|
Line 1506 sub check_newuser_rules {
|
$got_rules) = @_; |
$got_rules) = @_; |
my $allowed = 1; |
my $allowed = 1; |
my $newuser = 1; |
my $newuser = 1; |
my ($checkhash,$userchkmsg); |
my ($checkhash,$userchkmsg,$authtype,$authparam); |
my $checks = { 'username' => 1 }; |
my $checks = { 'username' => 1 }; |
$checkhash->{$personname.':'.$persondom} = { 'newuser' => $newuser }; |
$checkhash->{$personname.':'.$persondom} = { 'newuser' => $newuser }; |
&Apache::loncommon::user_rule_check($checkhash,$checks,$alerts,$rulematch, |
&Apache::loncommon::user_rule_check($checkhash,$checks,$alerts,$rulematch, |
Line 1383 sub check_newuser_rules {
|
Line 1528 sub check_newuser_rules {
|
} |
} |
} |
} |
} |
} |
return ($allowed,$userchkmsg); |
if ($allowed) { |
|
if (ref($rulematch) eq 'HASH') { |
|
if (ref($rulematch->{$personname.':'.$persondom}) eq 'HASH') { |
|
my $matchedrule = $rulematch->{$personname.':'.$persondom}{'username'}; |
|
my ($rules,$ruleorder) = |
|
&Apache::lonnet::inst_userrules($persondom,'username'); |
|
if (ref($rules) eq 'HASH') { |
|
if (ref($rules->{$matchedrule}) eq 'HASH') { |
|
$authtype = $rules->{$matchedrule}{'authtype'}; |
|
$authparam = $rules->{$matchedrule}{'authparm'}; |
|
} |
|
} |
|
} |
|
} |
|
} |
|
return ($allowed,$userchkmsg,$authtype,$authparam); |
} |
} |
|
|
sub get_excluded_elements { |
sub get_excluded_elements { |
Line 1433 sub print_enrollment_menu {
|
Line 1593 sub print_enrollment_menu {
|
if (&Apache::lonnet::auto_run('',$dom)) { |
if (&Apache::lonnet::auto_run('',$dom)) { |
$output = &show_invalid_crosslists($invalidcrosslist); |
$output = &show_invalid_crosslists($invalidcrosslist); |
my ($section_form,$crosslist_form); |
my ($section_form,$crosslist_form); |
$section_form = &inst_section_selector($dom,$instcode); |
if ($instcode ne '') { |
|
$section_form = &inst_section_selector($dom,$instcode); |
|
if ($section_form eq '') { |
|
my $sectotal = $env{'form.sectotal'}; |
|
if (!$sectotal) { |
|
$sectotal = 1; |
|
} |
|
if ($env{'form.addsection'}) { |
|
$sectotal ++; |
|
} |
|
for (my $i=0; $i<$sectotal; $i++) { |
|
$section_form .= §ions_form($dom,$instcode,$i); |
|
} |
|
if ($section_form) { |
|
$section_form .= |
|
&Apache::lonhtmlcommon::row_title(&mt('Add another')). |
|
'<input name="sectotal" type="hidden" value="'.$sectotal.'" />'. |
|
'<input name="addsection" type="checkbox" value="'.$sectotal.'"'. |
|
' onclick="javascript:nextPage(document.'.$formname.",'".$env{'form.state'}. |
|
"'".');" />'.&mt('Add?').&Apache::lonhtmlcommon::row_closure(); |
|
} |
|
} |
|
} |
if ($section_form) { |
if ($section_form) { |
$sections = &Apache::lonhtmlcommon::row_headline(). |
$sections = &Apache::lonhtmlcommon::row_headline(). |
'<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Sections'). |
'<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Sections'). |
Line 1454 sub print_enrollment_menu {
|
Line 1636 sub print_enrollment_menu {
|
} |
} |
if ($crosslist_form) { |
if ($crosslist_form) { |
$crosslist_form .= |
$crosslist_form .= |
&Apache::lonhtmlcommon::row_title(&mt('Add another?')). |
&Apache::lonhtmlcommon::row_title(&mt('Add another')). |
'<input name="crosslisttotal" type="hidden" value="'.$crosslisttotal.'" />'. |
'<input name="crosslisttotal" type="hidden" value="'.$crosslisttotal.'" />'. |
'<input name="addcrosslist" type="checkbox" value="'.$crosslisttotal.'"'. |
'<input name="addcrosslist" type="checkbox" value="'.$crosslisttotal.'"'. |
' onclick="javascript:nextPage(document.'.$formname.",'".$env{'form.state'}. |
' onclick="javascript:nextPage(document.'.$formname.",'".$env{'form.state'}. |
"'".');" />'.&mt('Add?').&Apache::lonhtmlcommon::row_closure(); |
"'".');" />'.&mt('Add?').&Apache::lonhtmlcommon::row_closure(); |
$sections .= &Apache::lonhtmlcommon::row_headline. |
$sections .= &Apache::lonhtmlcommon::row_headline. |
'<h3>'.&mt('Crosslisted courses for auto-enrollment').'</h3>'. |
'<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Crosslist').' '.&mt('Crosslisted courses for auto-enrollment').'</h3>'. |
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_closure(1). |
$crosslist_form; |
$crosslist_form; |
} |
} |
Line 1600 sub date_setting_table {
|
Line 1782 sub date_setting_table {
|
} |
} |
|
|
$table = &Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic($help_item{$prefix}{'start'}). |
$table = &Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic($help_item{$prefix}{'start'}). |
' '.$datetitles{'start'}).$startform. |
' '.&mt($datetitles{'start'})).$startform. |
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic($help_item{$prefix}{'end'}). |
&Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic($help_item{$prefix}{'end'}). |
' '.$datetitles{'end'}).$endform.$perpetual. |
' '.&mt($datetitles{'end'})).$endform.$perpetual. |
&Apache::lonhtmlcommon::row_closure($closure); |
&Apache::lonhtmlcommon::row_closure($closure); |
return $table; |
return $table; |
} |
} |
Line 1626 sub print_personnel_menu {
|
Line 1808 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 1719 sub print_personnel_menu {
|
Line 1901 sub print_personnel_menu {
|
&Apache::loncommon::help_open_topic('Course_Request_Rolesection').' '.&mt('LON-CAPA Section(s)').'<br />'.$sectionselector.'</td>'."\n". |
&Apache::loncommon::help_open_topic('Course_Request_Rolesection').' '.&mt('LON-CAPA Section(s)').'<br />'.$sectionselector.'</td>'."\n". |
'</tr></table>'.&Apache::lonhtmlcommon::row_closure(); |
'</tr></table>'.&Apache::lonhtmlcommon::row_closure(); |
} |
} |
$output .= &Apache::lonhtmlcommon::row_title(&mt('Add another?')). |
$output .= &Apache::lonhtmlcommon::row_title(&mt('Add another')). |
'<input name="persontotal" type="hidden" value="'.$persontotal.'" />'. |
'<input name="persontotal" type="hidden" value="'.$persontotal.'" />'. |
'<input name="addperson" type="checkbox" value="'.$persontotal.'"'. |
'<input name="addperson" type="checkbox" value="'.$persontotal.'"'. |
' onclick="javascript:nextPage(document.'.$formname.",'".$env{'form.state'}. |
' onclick="javascript:nextPage(document.'.$formname.",'".$env{'form.state'}. |
"'".');" />'.&mt('Add?').&Apache::lonhtmlcommon::row_closure(1). |
"'".');" />'.&mt('Add?').&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::end_pick_box().'</div>'. |
&Apache::lonhtmlcommon::end_pick_box().'</div>'; |
'<p>'.&mt('You may also add users later, once the course has been created, by using the "Manage course users" link, accessible from the "Main Menu".').'</p>'; |
if ($crstype eq 'community') { |
|
$output .= '<p>'.&mt('You may also add users later, once the community has been created, by using the "Manage community users" link, accessible from the "Main Menu".').'</p>'; |
|
} else { |
|
$output .= '<p>'.&mt('You may also add users later, once the course has been created, by using the "Manage course users" link, accessible from the "Main Menu".').'</p>'; |
|
} |
return $output; |
return $output; |
} |
} |
|
|
Line 1746 sub current_lc_sections {
|
Line 1932 sub current_lc_sections {
|
return @currsecs; |
return @currsecs; |
} |
} |
|
|
sub print_request_status { |
sub sorted_request_history { |
my ($dom) = @_; |
my ($dom,$action,$curr_req) = @_; |
|
my ($after,$before,$statusfilter,$crstypefilter); |
|
if ($env{'form.status'} ne '') { |
|
$statusfilter = $env{'form.status'}; |
|
} |
|
if ($env{'form.crstype'} ne '') { |
|
$crstypefilter = $env{'form.crstype'}; |
|
} |
|
if (ref($curr_req) eq 'HASH') { |
|
$after = $curr_req->{'requested_after_date'}, |
|
$before = $curr_req->{'requested_before_date'}; |
|
$statusfilter = $curr_req->{'status'}; |
|
$crstypefilter = $curr_req->{'crstype'}; |
|
} |
my %statusinfo = &Apache::lonnet::dump('courserequests',$env{'user.domain'}, |
my %statusinfo = &Apache::lonnet::dump('courserequests',$env{'user.domain'}, |
$env{'user.name'},'^status:'.$dom); |
$env{'user.name'},'^status:'.$dom); |
my ($output,$formname,%queue_by_date); |
my %queue_by_date; |
my ($types,$typenames) = &course_types(); |
my ($types,$typenames) = &Apache::loncommon::course_types(); |
foreach my $key (keys(%statusinfo)) { |
foreach my $key (keys(%statusinfo)) { |
if (($statusinfo{$key} eq 'approval') || ($statusinfo{$key} eq 'pending')) { |
if ($action eq 'view') { |
(undef,my($cdom,$cnum)) = split(':',$key); |
next unless (($statusinfo{$key} eq 'approval') || ($statusinfo{$key} eq 'pending')); |
next if ($cdom ne $dom); |
} else { |
my $requestkey = $cdom.'_'.$cnum; |
next unless (($statusfilter eq 'any') || |
if ($requestkey =~ /^($match_domain)_($match_courseid)$/) { |
($statusfilter eq $statusinfo{$key})); |
my %history = &Apache::lonnet::restore($requestkey,'courserequests', |
} |
$env{'user.domain'},$env{'user.name'}); |
(undef,my($cdom,$cnum)) = split(':',$key); |
my $entry; |
next if ($cdom ne $dom); |
my $timestamp = $history{'reqtime'}; |
my $requestkey = $cdom.'_'.$cnum; |
my $crstype = $history{'crstype'}; |
if ($requestkey =~ /^($match_domain)_($match_courseid)$/) { |
my $disposition = $history{'disposition'}; |
my %history = &Apache::lonnet::restore($requestkey,'courserequests', |
|
$env{'user.domain'},$env{'user.name'}); |
|
my $entry; |
|
my $reqtime = $history{'reqtime'}; |
|
my $lastupdate = $history{'timestamp'}; |
|
my $crstype = $history{'crstype'}; |
|
my $disposition = $history{'disposition'}; |
|
my $status = $history{'status'}; |
|
if ($action eq 'view') { |
next if ((exists($history{'status'})) && ($history{'status'} eq 'created')); |
next if ((exists($history{'status'})) && ($history{'status'} eq 'created')); |
next unless (($env{'form.crstype'} eq 'any') || |
} else { |
($env{'form.crstype'} eq $crstype)); |
next if (($reqtime < $after) || ($reqtime > $before)); |
|
} |
|
next unless (($crstypefilter eq 'any') || |
|
($crstypefilter eq $crstype)); |
|
if ($action eq 'view') { |
next unless (($disposition eq 'approval') || |
next unless (($disposition eq 'approval') || |
($disposition eq 'pending')); |
($disposition eq 'pending')); |
if (ref($history{'details'}) eq 'HASH') { |
} |
$entry = $requestkey.':'.$crstype.':'. |
if (ref($history{'details'}) eq 'HASH') { |
&escape($history{'details'}{'cdescr'}); |
$entry = $requestkey.':'.$crstype.':'. |
if ($crstype eq 'official') { |
&escape($history{'details'}{'cdescr'}); |
$entry .= ':'.&escape($history{'details'}{'instcode'}); |
if ($action eq 'log') { |
|
$entry .= ':'.$lastupdate.':'; |
|
if ($statusinfo{$key} ne '') { |
|
$entry .= $statusinfo{$key}; |
|
} elsif ($status ne '') { |
|
$entry .= $status; |
|
} else { |
|
$entry .= $disposition; |
} |
} |
} |
} |
if ($entry ne '') { |
if ($crstype eq 'official') { |
if (exists($queue_by_date{$timestamp})) { |
$entry .= ':'.&escape($history{'details'}{'instcode'}); |
if (ref($queue_by_date{$timestamp}) eq 'ARRAY') { |
} |
push(@{$queue_by_date{$timestamp}},$entry); |
} |
} |
if ($entry ne '') { |
} else { |
if (exists($queue_by_date{$reqtime})) { |
@{$queue_by_date{$timestamp}} = ($entry); |
if (ref($queue_by_date{$reqtime}) eq 'ARRAY') { |
|
push(@{$queue_by_date{$reqtime}},$entry); |
} |
} |
|
} else { |
|
@{$queue_by_date{$reqtime}} = ($entry); |
} |
} |
} |
} |
} |
} |
} |
} |
$formname = 'requestcrs'; |
return %queue_by_date; |
|
} |
|
|
|
sub print_request_status { |
|
my ($dom,$action) = @_; |
|
my %queue_by_date = &sorted_request_history($dom,$action); |
my @sortedtimes = sort {$a <=> $b} (keys(%queue_by_date)); |
my @sortedtimes = sort {$a <=> $b} (keys(%queue_by_date)); |
$output = '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'."\n". |
my $formname = 'requestcrs'; |
|
my ($types,$typenames) = &Apache::loncommon::course_types(); |
|
my $output = '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'."\n". |
|
|
'<input type="hidden" name="state" value="'.$env{'form.state'}.'" />'."\n". |
'<input type="hidden" name="state" value="'.$env{'form.state'}.'" />'."\n". |
'<input type="hidden" name="crstype" value="'.$env{'form.crstype'}.'" />'."\n". |
'<input type="hidden" name="crstype" value="'.$env{'form.crstype'}.'" />'."\n". |
'<input type="hidden" name="showdom" value="" />'."\n". |
'<input type="hidden" name="showdom" value="" />'."\n". |
'<input type="hidden" name="cnum" value="" />'."\n"; |
'<input type="hidden" name="cnum" value="" />'."\n"; |
if (@sortedtimes > 0) { |
if (@sortedtimes > 0) { |
|
my $desctitle; |
|
if ($env{'form.crstype'} eq 'any') { |
|
$desctitle = &mt('Course/Community Description') |
|
} elsif ($env{'form.crstype'} eq 'community') { |
|
$desctitle = &mt('Community Description') |
|
} else { |
|
$desctitle = &mt('Course Description'); |
|
} |
$output .= &Apache::loncommon::start_data_table(). |
$output .= &Apache::loncommon::start_data_table(). |
&Apache::loncommon::start_data_table_header_row(). |
&Apache::loncommon::start_data_table_header_row(). |
'<th>'.&mt('Action').'</th>'. |
'<th>'.&mt('Action').'</th>'. |
'<th>'.&mt('Course Description').'</th>'. |
'<th>'.$desctitle.'</th>'. |
'<th>'.&mt('Domain').'</th>'; |
'<th>'.&mt('Domain').'</th>'; |
if ($env{'form.crstype'} eq 'any') { |
if ($env{'form.crstype'} eq 'any') { |
$output .= '<th>'.&mt('Type').'</th>'; |
$output .= '<th>'.&mt('Type').'</th>'; |
Line 1848 sub print_request_status {
|
Line 2084 sub print_request_status {
|
} |
} |
$output .= &Apache::loncommon::end_data_table(); |
$output .= &Apache::loncommon::end_data_table(); |
} else { |
} else { |
$output .= '<div>'.&mt('You have no matching course requests awaiting approval by a Domain Coordinator or held in a queue pending administrative action at your institution.').'</div>'; |
if ($env{'form.crstype'} eq 'any') { |
|
$output .= '<div>'.&mt('You have no matching course or community requests awaiting approval by a Domain Coordinator or held in a queue pending administrative action at your institution.').'</div>'; |
|
} elsif ($env{'form.crstype'} eq 'community') { |
|
$output .= '<div>'.&mt('You have no matching community requests awaiting approval by a Domain Coordinator or held in a queue pending administrative action at your institution.').'</div>'; |
|
} else { |
|
$output .= '<div>'.&mt('You have no matching course requests awaiting approval by a Domain Coordinator or held in a queue pending administrative action at your institution.').'</div>'; |
|
} |
} |
} |
$output .= ' |
$output .= ' |
<br /><input type="button" name="prev" value="'.&mt('Back').'" onclick="javascript:backPage(document.'.$formname.",'crstype'".')" />'; |
<br /><input type="button" name="prev" value="'.&mt('Back').'" onclick="javascript:backPage(document.'.$formname.",'crstype'".')" />'; |
Line 1873 sub print_cancel_request {
|
Line 2115 sub print_cancel_request {
|
} |
} |
$output = &mt('No further action will be taken'); |
$output = &mt('No further action will be taken'); |
} elsif (ref($history{'details'}) eq 'HASH') { |
} elsif (ref($history{'details'}) eq 'HASH') { |
my ($types,$typename) = &course_types(); |
my ($types,$typename) = &Apache::loncommon::course_types(); |
my $showtype = $crstype; |
my $showtype = $crstype; |
if (defined($typename->{$crstype})) { |
if (defined($typename->{$crstype})) { |
$showtype = $typename->{$crstype}; |
$showtype = $typename->{$crstype}; |
Line 1889 sub print_cancel_request {
|
Line 2131 sub print_cancel_request {
|
'<td>'.$showtype.'</td>'. |
'<td>'.$showtype.'</td>'. |
&Apache::loncommon::end_data_table_row(). |
&Apache::loncommon::end_data_table_row(). |
&Apache::loncommon::end_data_table(). |
&Apache::loncommon::end_data_table(). |
'<br /><div class="LC_warning">'. |
'<br /><div class="LC_warning">'; |
&mt('Cancelling the request will remove it from the queue of pending course requests').'</div>'; |
if ($crstype eq 'community') { |
|
$output .= &mt('Cancelling the request will remove it from the queue of pending community requests').'</div>'; |
|
} else { |
|
$output .= &mt('Cancelling the request will remove it from the queue of pending course requests').'</div>'; |
|
} |
$result = 'ok'; |
$result = 'ok'; |
} else { |
} else { |
$output = '<div class="LC_error">'.&mt('No record exists for the course ID').'</div>'; |
$output = '<div class="LC_error">'.&mt('No record exists for the course ID').'</div>'; |
Line 1952 ENDJS
|
Line 2198 ENDJS
|
} |
} |
|
|
sub print_request_logs { |
sub print_request_logs { |
my ($jscript,$loaditems,$crumb) = @_; |
my ($r,$dom,$jscript,$loaditems,$crumb) = @_; |
|
my $title; |
|
if ($env{'form.crstype'} eq 'community') { |
|
$title = 'Community Request Logs'; |
|
} elsif ($env{'form.crstype'} eq 'any') { |
|
$title = 'Course/Community Request Logs'; |
|
} else { |
|
$title = 'Course Request Logs'; |
|
} |
|
$r->print(&header($title,$jscript,$loaditems).$crumb); |
|
my $formname = 'requestcrs'; |
|
$r->print('<form action="/adm/requestcourse" method="post" name="'.$formname.'" onsubmit="javascript:setPage(this);">'."\n". |
|
'<input type="hidden" name="action" value="log" />'."\n". |
|
'<input type="hidden" name="state" value="display" />'."\n"); |
|
# set defaults |
|
my $now = time(); |
|
my $defstart = $now - (7*24*3600); #7 days ago |
|
my %defaults = ( |
|
page => '1', |
|
show => '10', |
|
crstype => 'any', |
|
status => 'any', |
|
requested_before_date => $now, |
|
requested_after_date => $defstart, |
|
); |
|
my ($types,$typenames) = &Apache::loncommon::course_types(); |
|
my $more_records = 0; |
|
my %curr; |
|
foreach my $item ('show','page','crstype','status') { |
|
$curr{$item} = $env{'form.'.$item}; |
|
} |
|
$curr{'requested_after_date'} = &Apache::lonhtmlcommon::get_date_from_form('requested_after_date'); |
|
$curr{'requested_before_date'} = &Apache::lonhtmlcommon::get_date_from_form('requested_before_date'); |
|
foreach my $key (keys(%defaults)) { |
|
if ($curr{$key} eq '') { |
|
$curr{$key} = $defaults{$key}; |
|
} |
|
} |
|
my ($statuses,$statusnames) = &reqstatus_names($curr{'crstype'}); |
|
$r->print('<input type="hidden" name="page" value="'.$curr{'page'}.'" />'. |
|
&requestlog_display_filter($formname,\%curr)); |
|
my %queue_by_date = &sorted_request_history($dom,$env{'form.action'},\%curr); |
|
my @sortedtimes = sort {$a <=> $b} (keys(%queue_by_date)); |
|
my $showntablehdr = 0; |
|
my $tablehdr = &Apache::loncommon::start_data_table(). |
|
&Apache::loncommon::start_data_table_header_row(). |
|
'<th> </th><th>'.&mt('Request Date').'</th>'. |
|
'<th>'.&mt('Description').'</th>'; |
|
if ($curr{'crstype'} eq 'any') { |
|
$tablehdr .= '<th>'.&mt('Course Type').'</th>'; |
|
} |
|
if (($curr{'crstype'} eq 'official') || ($curr{'crstype'} eq 'any')) { |
|
$tablehdr .= '<th>'.&mt('Institutional Code').'</th>'; |
|
} |
|
if ($curr{'status'} eq 'any') { |
|
$tablehdr .= '<th>'.&mt('Status').'</th>'; |
|
} elsif ($curr{'status'} eq 'created') { |
|
$tablehdr .= '<th>'.&mt('Creation Date').'</th>'; |
|
} elsif ($curr{'status'} eq 'cancelled') { |
|
$tablehdr .= '<th>'.&mt('Cancellation Date').'</th>'; |
|
} elsif ($curr{'status'} eq 'rejected') { |
|
$tablehdr .= '<th>'.&mt('Rejection Date').'</th>'; |
|
} |
|
$tablehdr .= &Apache::loncommon::end_data_table_header_row(); |
|
my ($minshown,$maxshown); |
|
$minshown = 1; |
|
my $count = 0; |
|
if ($curr{'show'} ne &mt('all')) { |
|
$maxshown = $curr{'page'} * $curr{'show'}; |
|
if ($curr{'page'} > 1) { |
|
$minshown = 1 + ($curr{'page'} - 1) * $curr{'show'}; |
|
} |
|
} |
|
my $norecords; |
|
if (@sortedtimes > 0) { |
|
foreach my $item (@sortedtimes) { |
|
if ($curr{'show'} ne &mt('all')) { |
|
if ($count >= $curr{'page'} * $curr{'show'}) { |
|
$more_records = 1; |
|
last; |
|
} |
|
} |
|
$count ++; |
|
next if ($count < $minshown); |
|
if (!$showntablehdr) { |
|
$r->print($tablehdr); |
|
$showntablehdr = 1; |
|
} |
|
my $showtime = &Apache::lonlocal::locallocaltime($item); |
|
if (ref($queue_by_date{$item}) eq 'ARRAY') { |
|
foreach my $request (sort(@{$queue_by_date{$item}})) { |
|
my ($key,$crstype,$desc,$timestamp,$status,$instcode) = split(':',$request); |
|
my ($cdom,$cnum) = split('_',$key); |
|
my $output = &Apache::loncommon::start_data_table_row(). |
|
'<td>'.$count.'</td>'. |
|
'<td>'.$showtime.'</td>'. |
|
'<td>'.&unescape($desc).'</td>'; |
|
if ($curr{'crstype'} eq 'any') { |
|
my $typename; |
|
if (ref($typenames) eq 'HASH') { |
|
$typename = &mt($typenames->{$crstype}); |
|
} |
|
if ($typename eq '') { |
|
$typename = &mt('Unknown type'); |
|
} |
|
$output .= '<td>'.$typename.'</td>'; |
|
} |
|
if (($curr{'crstype'} eq 'any') || |
|
($curr{'crstype'} eq 'official')) { |
|
my $showinstcode; |
|
if ($crstype eq 'official') { |
|
$showinstcode = &unescape($instcode); |
|
} else { |
|
$showinstcode = &mt('Not applicable'); |
|
} |
|
$output .= '<td>'.$showinstcode.'</td>'; |
|
} |
|
if ($curr{'status'} eq 'any') { |
|
my $statusname = &mt('Unknown status'); |
|
if (ref($statusnames) eq 'HASH') { |
|
if ($statusnames->{$status} ne '') { |
|
$statusname = $statusnames->{$status}; |
|
} |
|
} |
|
if (($status eq 'created') || ($status eq 'cancelled') || |
|
($status eq 'rejected')) { |
|
$statusname .= ' '.&Apache::lonlocal::locallocaltime($timestamp); |
|
} |
|
$output .= '<td>'.$statusname.'</td>'; |
|
} elsif (($status eq 'created') || ($status eq 'cancelled') || |
|
($status eq 'rejected')) { |
|
$output .= '<td>'.&Apache::lonlocal::locallocaltime($timestamp).'</td>'; |
|
} |
|
$output .= &Apache::loncommon::end_data_table_row(); |
|
$r->print($output); |
|
} |
|
} |
|
} |
|
if ($showntablehdr) { |
|
$r->print(&Apache::loncommon::end_data_table()); |
|
if (($curr{'page'} > 1) || ($more_records)) { |
|
$r->print('<table><tr>'); |
|
if ($curr{'page'} > 1) { |
|
$r->print('<td><a href="javascript:chgPage('."'previous'".');">'.&mt('Previous [_1] changes',$curr{'show'}).'</a></td>'); |
|
} |
|
if ($more_records) { |
|
$r->print('<td><a href="javascript:chgPage('."'next'".');">'.&mt('Next [_1] changes',$curr{'show'}).'</a></td>'); |
|
} |
|
$r->print('</tr></table>'); |
|
$r->print(<<"ENDSCRIPT"); |
|
<script type="text/javascript"> |
|
// <![CDATA[ |
|
function chgPage(caller) { |
|
if (caller == 'previous') { |
|
document.$formname.page.value --; |
|
} |
|
if (caller == 'next') { |
|
document.$formname.page.value ++; |
|
} |
|
document.$formname.submit(); |
|
return; |
|
} |
|
// ]]> |
|
</script> |
|
ENDSCRIPT |
|
} |
|
} else { |
|
$norecords = 1; |
|
} |
|
} else { |
|
$norecords = 1; |
|
} |
|
if ($norecords) { |
|
$r->print('<p class="LC_info">'. |
|
&mt('There are no records to display'). |
|
'</p>'); |
|
} |
|
$r->print('</form>'. |
|
&Apache::loncommon::end_page()); |
return; |
return; |
} |
} |
|
|
|
sub reqstatus_names { |
|
my ($crstype) = @_; |
|
my @statuses = qw(created approval pending rejected cancelled); |
|
my %statusnames = |
|
&Apache::lonlocal::texthash ( |
|
created => 'Created', |
|
approval => 'Queued pending approval', |
|
pending => 'Queued pending validation', |
|
rejected => 'Request rejected', |
|
cancelled => 'Request cancelled', |
|
); |
|
if (($crstype eq 'official') || ($crstype eq 'unofficial')) { |
|
$statusnames{'created'} = &mt('Course created'); |
|
} elsif ($crstype eq 'community') { |
|
$statusnames{'created'} = &mt('Community created'); |
|
} |
|
return (\@statuses,\%statusnames); |
|
} |
|
|
|
sub requestlog_display_filter { |
|
my ($formname,$curr) = @_; |
|
my $nolink = 1; |
|
my $output = '<table><tr><td valign="top">'. |
|
'<span class="LC_nobreak"><b>'.&mt('Records/page:').'</b></span><br />'. |
|
&Apache::lonmeta::selectbox('show',$curr->{'show'},undef, |
|
(&mt('all'),5,10,20,50,100,1000,10000)). |
|
'</td><td> </td>'; |
|
my $startform = |
|
&Apache::lonhtmlcommon::date_setter($formname,'requested_after_date', |
|
$curr->{'requested_after_date'},undef, |
|
undef,undef,undef,undef,undef,undef,$nolink); |
|
my $endform = |
|
&Apache::lonhtmlcommon::date_setter($formname,'requested_before_date', |
|
$curr->{'requested_before_date'},undef, |
|
undef,undef,undef,undef,undef,undef,$nolink); |
|
$output .= '<td valign="top"><b>'.&mt('Window during which course/community was requested:').'</b><br />'. |
|
'<table><tr><td>'.&mt('After:'). |
|
'</td><td>'.$startform.'</td></tr>'. |
|
'<tr><td>'.&mt('Before:').'</td>'. |
|
'<td>'.$endform.'</td></tr></table>'. |
|
'</td>'. |
|
'<td> </td>'; |
|
my ($types,$typenames) = &Apache::loncommon::course_types(); |
|
if (ref($types) eq 'ARRAY') { |
|
if (@{$types} > 1) { |
|
$output .= '<td valign="top"><b>'. |
|
&mt('Course Type:').'</b><br /><select name="crstype">'; |
|
my $selstr = ''; |
|
if ($curr->{'crstype'} eq 'any') { |
|
$selstr = ' selected="selected"'; |
|
} |
|
$output .= '<option value="any"'.$selstr.'>'.&mt('All types').'</option>'."\n"; |
|
foreach my $crstype (@{$types}) { |
|
my $selstr = ''; |
|
if ($curr->{'crstype'} eq $crstype) { |
|
$selstr = ' selected="selected"'; |
|
} |
|
my $typename = $crstype; |
|
if (ref($typenames) eq 'HASH') { |
|
if ($typenames->{$crstype} ne '') { |
|
$typename = $typenames->{$crstype}; |
|
} |
|
} |
|
$output .= '<option value="'.$crstype.'"'.$selstr.'>'.$typename.'</option>'."\n"; |
|
} |
|
$output .= '</select></td>'; |
|
} |
|
} |
|
my ($statuses,$statusnames) = &reqstatus_names($curr->{'crstype'}); |
|
if (ref($statuses) eq 'ARRAY') { |
|
if (@{$statuses} > 1) { |
|
$output .= '<td valign="top"><b>'. |
|
&mt('Request Status:').'</b><br /><select name="status">'; |
|
my $selstr = ''; |
|
if ($curr->{'status'} eq 'any') { |
|
$selstr = ' selected="selected"'; |
|
} |
|
$output .= '<option value="any"'.$selstr.'>'.&mt('Any status').'</option>'."\n"; |
|
foreach my $status (@{$statuses}) { |
|
my $selstr = ''; |
|
if ($curr->{'status'} eq $status) { |
|
$selstr = ' selected="selected"'; |
|
} |
|
my $statusname = $status; |
|
if (ref($statusnames) eq 'HASH') { |
|
if ($statusnames->{$status} ne '') { |
|
$statusname = $statusnames->{$status}; |
|
} |
|
} |
|
$output .= '<option value="'.$status.'"'.$selstr.'>'.$statusname.'</option>'."\n"; |
|
} |
|
$output .= '</select></td>'; |
|
} |
|
} |
|
$output .= '</tr></table>'; |
|
|
|
# Update Display button |
|
$output .= '<p>'. |
|
'<input type="submit" value="'.&mt('Update Display').'" />'. |
|
'</p><hr />'; |
|
return $output; |
|
} |
|
|
sub print_review { |
sub print_review { |
my ($dom,$codetitles,$cat_titles,$cat_order,$code_order,$uname,$udom, |
my ($dom,$codetitles,$cat_titles,$cat_order,$code_order,$uname,$udom, |
$disallowed,$disallowmsg) = @_; |
$disallowed,$disallowmsg) = @_; |
my ($types,$typename) = &course_types(); |
my ($types,$typename) = &Apache::loncommon::course_types(); |
my ($owner,$ownername,$owneremail); |
my ($owner,$ownername,$owneremail); |
if ($uname eq '' || $udom eq '') { |
if ($uname eq '' || $udom eq '') { |
$uname = $env{'user.name'}; |
$uname = $env{'user.name'}; |
Line 2079 sub print_review {
|
Line 2606 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($uname, |
$env{'user.domain'},$env{'form.clonecrs'}, $env{'form.clonedom'}); |
$udom,$env{'form.clonecrs'},$env{'form.clonedom'}, |
|
$env{'form.crstype'}); |
if ($canclone) { |
if ($canclone) { |
my %courseenv = &Apache::lonnet::userenvironment($env{'form.clonedom'}, |
my %courseenv = &Apache::lonnet::userenvironment($env{'form.clonedom'}, |
$env{'form.clonecrs'},('description','internal.coursecode')); |
$env{'form.clonecrs'},('description','internal.coursecode')); |
Line 2124 sub print_review {
|
Line 2653 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 2168 sub print_review {
|
Line 2700 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 2257 function validateForm() {
|
Line 2789 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> |
|
|
ENDJS |
ENDJS |
my $title = &mt('Brief Course Description'); |
my $title = &mt('Brief Course Description'); |
|
my $clonetitle = &mt('Clone content and settings from an existing course?'); |
if ($crstype eq 'community') { |
if ($crstype eq 'community') { |
$title = &mt('Brief Community Description'); |
$title = &mt('Brief Community Description'); |
|
$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 2281 ENDJS
|
Line 2833 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').' '.&mt('Clone content and settings from an existing course?').'</h3>'. |
'<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Clone').' '.$clonetitle. |
|
&Apache::lonhtmlcommon::row_closure(1). |
|
&Apache::lonhtmlcommon::row_title(&mt('Clone?')). |
|
'<label><input type="radio" name="cloning" value="1" '. |
|
'onclick="javascript:toggleCloning()" />'. |
|
&mt('Yes').(' 'x2).'</label><label>'. |
|
'<input type="radio" name="cloning" value="0" checked="checked" '. |
|
'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 2294 sub clone_form {
|
Line 2858 sub clone_form {
|
if ($crstype eq 'community') { |
if ($crstype eq 'community') { |
$type = 'Community'; |
$type = 'Community'; |
} |
} |
my $cloneform = &Apache::loncommon::select_dom_form($dom,'clonedom').' '. |
|
&Apache::loncommon::selectcourse_link($formname,'clonecrs','clonedom','','','',$type); |
|
my %lt = &clone_text(); |
my %lt = &clone_text(); |
my $output .= |
my $output .= |
&Apache::lonhtmlcommon::row_title($lt{'cid'}).'<label>'. |
|
'<input type="text" size="25" name="clonecrs" value="" />'. |
|
'</label>'.&Apache::lonhtmlcommon::row_closure(1). |
|
&Apache::lonhtmlcommon::row_title($lt{'dmn'}).'<label>'. |
&Apache::lonhtmlcommon::row_title($lt{'dmn'}).'<label>'. |
$cloneform.'</label>'.&Apache::lonhtmlcommon::row_closure(1). |
&Apache::loncommon::select_dom_form($dom,'clonedom').'</label>'. |
|
&Apache::lonhtmlcommon::row_closure(1). |
|
&Apache::lonhtmlcommon::row_title($lt{'cid'}).'<label>'. |
|
'<input type="text" size="25" name="clonecrs" value="" onfocus="this.blur();opencrsbrowser('."'$formname','clonecrs','clonedom','','','','','$type'".')" />'. |
|
'</label> '. |
|
&Apache::loncommon::selectcourse_link($formname,'clonecrs','clonedom','','','',$type). |
|
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_title($lt{'dsh'}).'<label>'. |
&Apache::lonhtmlcommon::row_title($lt{'dsh'}).'<label>'. |
'<input type="radio" name="datemode" value="delete" /> '.$lt{'ncd'}. |
'<input type="radio" name="datemode" value="delete" /> '.$lt{'ncd'}. |
'</label><br /><label>'. |
'</label><br /><label>'. |
Line 2329 sub clone_text {
|
Line 2894 sub clone_text {
|
sub coursecode_form { |
sub coursecode_form { |
my ($dom,$context,$codetitles,$cat_titles,$cat_order,$num) = @_; |
my ($dom,$context,$codetitles,$cat_titles,$cat_order,$num) = @_; |
my $output; |
my $output; |
my %rowtitle = ( |
my %rowtitle = &Apache::lonlocal::texthash ( |
instcode => 'Course Category', |
instcode => 'Course Category', |
crosslist => 'Cross Listed Course', |
crosslist => 'Cross Listed Course', |
); |
); |
my %helpitem = ( |
my %helpitem = ( |
instcode => 'Course_Request_Category', |
instcode => 'Course_Request_Category', |
crosslist => 'Course_Request_Crosslist', |
|
); |
); |
if ((ref($codetitles) eq 'ARRAY') && (ref($cat_titles) eq 'HASH') && |
if ((ref($codetitles) eq 'ARRAY') && (ref($cat_titles) eq 'HASH') && |
(ref($cat_order))) { |
(ref($cat_order))) { |
Line 2352 sub coursecode_form {
|
Line 2916 sub coursecode_form {
|
my $lastitem = pop(@{$codetitles}); |
my $lastitem = pop(@{$codetitles}); |
my $lastinput = '<input type="text" size="5" name="'.$sel.'_'. $lastitem.'" />'; |
my $lastinput = '<input type="text" size="5" name="'.$sel.'_'. $lastitem.'" />'; |
if (@{$codetitles} > 0) { |
if (@{$codetitles} > 0) { |
$output = &Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic($helpitem{$context}).' '.$rowtitle{$context}). |
my $helplink; |
|
if (defined($helpitem{$context})) { |
|
$helplink = &Apache::loncommon::help_open_topic($helpitem{$context}).' '; |
|
} |
|
$output = &Apache::lonhtmlcommon::row_title($helplink.$rowtitle{$context}). |
'<table><tr>'; |
'<table><tr>'; |
if ($context eq 'crosslist') { |
if ($context eq 'crosslist') { |
$output .= '<td>'.&mt('Include?').'<br />'. |
$output .= '<td>'.&mt('Include?').'<br />'. |
Line 2417 sub coursecode_form {
|
Line 2985 sub coursecode_form {
|
return $output; |
return $output; |
} |
} |
|
|
|
sub sections_form { |
|
my ($dom,$instcode,$num) = @_; |
|
my $rowtitle; |
|
if ($instcode eq '') { |
|
$rowtitle = &mt('Sections'); |
|
} else { |
|
$rowtitle = &mt('Sections of [_1]',$instcode); |
|
} |
|
return &Apache::lonhtmlcommon::row_title($rowtitle). |
|
'<table><tr><td align="center">'. |
|
'<span class="LC_nobreak">'.&mt('Include?'). |
|
'<input type="checkbox" name="sec_'.$num.'" value="1" /></span>'. |
|
'</td><td align="center">'.&mt('Institutional section').'<br />'. |
|
'<input type="text" size="10" name="secnum_'.$num.'" />'. |
|
'</td><td align="center">'.&mt('LON-CAPA section').'<br />'. |
|
'<input type="text" size="10" name="loncapasec_'.$num.'" />'. |
|
'</td></tr></table>'. |
|
&Apache::lonhtmlcommon::row_closure(1); |
|
} |
|
|
sub get_course_dom { |
sub get_course_dom { |
my $codedom = &Apache::lonnet::default_login_domain(); |
my $codedom = &Apache::lonnet::default_login_domain(); |
if ($env{'form.showdom'} ne '') { |
if ($env{'form.showdom'} ne '') { |
Line 2425 sub get_course_dom {
|
Line 3013 sub get_course_dom {
|
} |
} |
} |
} |
if (($env{'user.domain'} ne '') && ($env{'user.domain'} ne 'public')) { |
if (($env{'user.domain'} ne '') && ($env{'user.domain'} ne 'public')) { |
my ($types,$typename) = &course_types(); |
my ($types,$typename) = &Apache::loncommon::course_types(); |
if (ref($types) eq 'ARRAY') { |
if (ref($types) eq 'ARRAY') { |
foreach my $type (@{$types}) { |
foreach my $type (@{$types}) { |
if (&Apache::lonnet::usertools_access($env{'user.name'}, |
if (&Apache::lonnet::usertools_access($env{'user.name'}, |
Line 2528 sub print_request_outcome {
|
Line 3116 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 2542 sub print_request_outcome {
|
Line 3134 sub print_request_outcome {
|
push(@instsections,$sec); |
push(@instsections,$sec); |
} |
} |
$sections{$i}{'loncapa'} = $env{'form.loncapasec_'.$i}; |
$sections{$i}{'loncapa'} = $env{'form.loncapasec_'.$i}; |
|
$sections{$i}{'loncapa'} =~ s/\W//g; |
|
if ($sections{$i}{'loncapa'} eq 'none') { |
|
$sections{$i}{'loncapa'} = ''; |
|
} |
} |
} |
} |
} |
} |
} |
Line 2567 sub print_request_outcome {
|
Line 3163 sub print_request_outcome {
|
$enrollstart = ''; |
$enrollstart = ''; |
$enrollend = ''; |
$enrollend = ''; |
} |
} |
|
my (%alerts,%rulematch,%inst_results,%curr_rules,%got_rules,%disallowmsg,%skipped); |
for (my $i=0; $i<$env{'form.persontotal'}; $i++) { |
for (my $i=0; $i<$env{'form.persontotal'}; $i++) { |
my $uname = $env{'form.person_'.$i.'_uname'}; |
my $uname = $env{'form.person_'.$i.'_uname'}; |
my $udom = $env{'form.person_'.$i.'_dom'}; |
my $udom = $env{'form.person_'.$i.'_dom'}; |
Line 2578 sub print_request_outcome {
|
Line 3175 sub print_request_outcome {
|
lastname => $env{'form.person_'.$i.'_lastname'}, |
lastname => $env{'form.person_'.$i.'_lastname'}, |
emailaddr => $env{'form.person_'.$i.'_emailaddr'}, |
emailaddr => $env{'form.person_'.$i.'_emailaddr'}, |
}; |
}; |
|
if (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') { |
|
my $usertype = &get_usertype($udom,$uname,\%curr_rules,\%got_rules); |
|
if (&Apache::lonuserutils::can_create_user($udom,'requestcrs',$usertype)) { |
|
my ($allowed,$msg,$authtype,$authparam) = |
|
&check_newuser_rules($udom,$uname,\%alerts,\%rulematch, |
|
\%inst_results,\%curr_rules,\%got_rules); |
|
if ($allowed) { |
|
my %domdefaults = &Apache::lonnet::get_domain_defaults($udom); |
|
if ($usertype eq 'official') { |
|
if ($authtype eq '') { |
|
$authtype = $domdefaults{'auth_def'}; |
|
$authparam = $domdefaults{'auth_arg_def'}; |
|
} else { |
|
if ($authtype eq 'loc') { |
|
$authtype = 'localauth'; |
|
} elsif ($authtype eq 'int') { |
|
$authtype = 'internal'; |
|
} |
|
if ($authtype !~ /^(krb4|krb5|internal|localauth)$/) { |
|
$authtype = $domdefaults{'auth_def'}; |
|
$authparam = $domdefaults{'auth_arg_def'}; |
|
} |
|
} |
|
} elsif ($usertype eq 'unofficial') { |
|
if ($authtype eq '') { |
|
$authtype = 'internal'; |
|
$authparam = ''; |
|
} |
|
} else { |
|
$authtype = $domdefaults{'auth_def'}; |
|
$authparam = $domdefaults{'auth_arg_def'}; |
|
} |
|
if (($authtype eq '') || |
|
(($authtype =~/^krb(4|5)$/) && ($authparam eq '')) || |
|
($authtype !~ /^(krb4|krb5|internal|localauth)$/)) { |
|
$skipped{$uname.':'.$udom} = 1; |
|
next; |
|
} else { |
|
$personnel{$uname.':'.$udom}{'authtype'} = $authtype; |
|
$personnel{$uname.':'.$udom}{'autharg'} = $authparam; |
|
} |
|
} else { |
|
$skipped{$uname.':'.$udom} = 1; |
|
next; |
|
} |
|
} else { |
|
$skipped{$uname.':'.$udom} = 1; |
|
next; |
|
} |
|
} |
} |
} |
my $role = $env{'form.person_'.$i.'_role'}; |
my $role = $env{'form.person_'.$i.'_role'}; |
unless ($role eq '') { |
unless ($role eq '') { |
Line 2589 sub print_request_outcome {
|
Line 3236 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 2623 sub print_request_outcome {
|
Line 3270 sub print_request_outcome {
|
push(@baduname,$uname.':'.$udom); |
push(@baduname,$uname.':'.$udom); |
} |
} |
} |
} |
|
if (keys(%skipped)) { |
|
foreach my $key (keys(%skipped)) { |
|
delete($personnel{$key}); |
|
} |
|
} |
my ($accessstart,$accessend) = &dates_from_form('accessstart','accessend'); |
my ($accessstart,$accessend) = &dates_from_form('accessstart','accessend'); |
my $autodrops = 0; |
my $autodrops = 0; |
if ($env{'form.autodrops'}) { |
if ($env{'form.autodrops'}) { |
Line 2630 sub print_request_outcome {
|
Line 3282 sub print_request_outcome {
|
} |
} |
my $autoadds = 0; |
my $autoadds = 0; |
if ($env{'form.autoadds'}) { |
if ($env{'form.autoadds'}) { |
$autodrops = $env{'form.autoadds'}; |
$autoadds = $env{'form.autoadds'}; |
} |
|
if ($env{'form.autoadds'}) { |
|
$autodrops = $env{'form.autoadds'}; |
|
} |
} |
my $instcode = ''; |
my $instcode = ''; |
if (exists($env{'form.instcode'})) { |
if (exists($env{'form.instcode'})) { |
Line 2641 sub print_request_outcome {
|
Line 3290 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'}); |
if ($clonehome ne 'no_host') { |
if ($clonehome ne 'no_host') { |
my $canclone = |
my $canclone = |
&Apache::loncoursequeueadmin::can_clone_course($env{'user.name'}, |
&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'}, |
|
$crstype); |
if ($canclone) { |
if ($canclone) { |
$clonecrs = $env{'form.clonecrs'}; |
$clonecrs = $env{'form.clonecrs'}; |
$clonedom = $env{'form.clonedom'}; |
$clonedom = $env{'form.clonedom'}; |
Line 2681 sub print_request_outcome {
|
Line 3332 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 2739 sub print_request_outcome {
|
Line 3392 sub print_request_outcome {
|
$reqstatus = $disposition; |
$reqstatus = $disposition; |
my ($modified,$queued); |
my ($modified,$queued); |
if ($disposition eq 'rejected') { |
if ($disposition eq 'rejected') { |
$output = &mt('Your course request was rejected.'); |
if ($crstype eq 'community') { |
|
$output = &mt('Your community request was rejected.'); |
|
} else { |
|
$output = &mt('Your course request was rejected.'); |
|
} |
if ($message) { |
if ($message) { |
$output .= '<div class="LC_warning">'.$message.'</div>'; |
$output .= '<div class="LC_warning">'.$message.'</div>'; |
} |
} |
Line 2747 sub print_request_outcome {
|
Line 3404 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 2763 sub print_request_outcome {
|
Line 3420 sub print_request_outcome {
|
$reqstatus = 'created'; |
$reqstatus = 'created'; |
my $role_result = &update_requestors_roles($dom,$cnum,$crstype,$details, |
my $role_result = &update_requestors_roles($dom,$cnum,$crstype,$details, |
\%longroles); |
\%longroles); |
$output = '<p>'.&mt('Your course request has been processed and the course has been created.'). |
if ($crstype eq 'community') { |
'<br />'.$role_result.'</p>'; |
$output = '<p>'.&mt('Your community request has been processed and the community has been created.'); |
|
} else { |
|
$output = '<p>'.&mt('Your course request has been processed and the course has been created.'); |
|
} |
|
$output .= '<br />'.$role_result.'</p>'; |
$creationresult = 'created'; |
$creationresult = 'created'; |
} else { |
} else { |
$output = '<span class="LC_error">'. |
$output = '<span class="LC_error">'; |
&mt('An error occurred when processing your course request.'). |
if ($crstype eq 'community') { |
'<br />'. |
$output .= &mt('An error occurred when processing your community request.'); |
&mt('You may want to review the request details and submit the request again.'). |
} else { |
|
$output .= &mt('An error occurred when processing your course request.'); |
|
} |
|
$output .= '<br />'. |
|
&mt('You may want to review the request details and submit the request again.'). |
'</span>'; |
'</span>'; |
$creationresult = 'error'; |
$creationresult = 'error'; |
} |
} |
Line 2785 sub print_request_outcome {
|
Line 3450 sub print_request_outcome {
|
description => $env{'form.cdescr'}, |
description => $env{'form.cdescr'}, |
}, |
}, |
}; |
}; |
|
if ($crstype eq 'official') { |
|
$request->{$requestid}->{'instcode'} = $instcode; |
|
} |
my $statuskey = 'status:'.$dom.':'.$cnum; |
my $statuskey = 'status:'.$dom.':'.$cnum; |
my %userreqhash = &Apache::lonnet::get('courserequests',[$statuskey], |
my %userreqhash = &Apache::lonnet::get('courserequests',[$statuskey], |
$env{'user.domain'},$env{'user.name'}); |
$env{'user.domain'},$env{'user.name'}); |
Line 2803 sub print_request_outcome {
|
Line 3471 sub print_request_outcome {
|
my $putresult = &Apache::lonnet::newput_dom('courserequestqueue',$request, |
my $putresult = &Apache::lonnet::newput_dom('courserequestqueue',$request, |
$dom); |
$dom); |
if ($putresult eq 'ok') { |
if ($putresult eq 'ok') { |
$output = &mt('Your course request has been recorded.').'<br />'. |
if ($crstype eq 'community') { |
|
$output .= &mt('Your community request has been recorded.'); |
|
} else { |
|
$output .= &mt('Your course request has been recorded.') |
|
} |
|
$output .= '<br />'. |
¬ification_information($disposition,$req_notifylist, |
¬ification_information($disposition,$req_notifylist, |
$cnum,$now); |
$cnum,$now); |
} else { |
} else { |
Line 2814 sub print_request_outcome {
|
Line 3487 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') { |
$output .= '<p>'.&mt('Your course request has been updated').'</p>'. |
if ($crstype eq 'community') { |
¬ification_information($disposition,$req_notifylist,$cnum,$now); |
$output .= '<p>'.&mt('Your community request has been updated').'</p>'; |
|
} else { |
|
$output .= '<p>'.&mt('Your course request has been updated').'</p>'; |
|
} |
|
$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 2856 sub update_requestors_roles {
|
Line 3519 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 2883 sub update_requestors_roles {
|
Line 3557 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 2948 sub update_requestors_roles {
|
Line 3622 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 2992 sub notification_information {
|
Line 3678 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) = &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'; |
} |
} |
Line 3143 sub retrieve_settings {
|
Line 3744 sub retrieve_settings {
|
} |
} |
$env{'form.clonecrs'} = $reqinfo{'clonecrs'}; |
$env{'form.clonecrs'} = $reqinfo{'clonecrs'}; |
$env{'form.clonedom'} = $reqinfo{'clonedom'}; |
$env{'form.clonedom'} = $reqinfo{'clonedom'}; |
|
if (($reqinfo{'clonecrs'} ne '') && ($reqinfo{'clonedom'} ne '')) { |
|
$env{'form.cloning'} = 1; |
|
} |
$env{'form.datemode'} = $reqinfo{'datemode'}; |
$env{'form.datemode'} = $reqinfo{'datemode'}; |
$env{'form.dateshift'} = $reqinfo{'dateshift'}; |
$env{'form.dateshift'} = $reqinfo{'dateshift'}; |
if (($reqinfo{'crstype'} eq 'official') && ($reqinfo{'instcode'} ne '')) { |
if ($reqinfo{'crstype'} eq 'official') { |
$env{'form.sectotal'} = $reqinfo{'sectotal'}; |
$env{'form.autoadds'} = $reqinfo{'autoadds'}; |
$env{'form.crosslisttotal'} = $reqinfo{'crosslisttotal'}; |
$env{'form.autodrops'} = $reqinfo{'autodrops'}; |
$env{'form.autoadds'} = $reqinfo{'autoadds'}; |
if ($reqinfo{'instcode'} ne '') { |
$env{'form.autdrops'} = $reqinfo{'autodrops'}; |
$env{'form.sectotal'} = $reqinfo{'sectotal'}; |
$env{'form.instcode'} = $reqinfo{'instcode'}; |
$env{'form.crosslisttotal'} = $reqinfo{'crosslisttotal'}; |
my $crscode = { |
$env{'form.instcode'} = $reqinfo{'instcode'}; |
$cnum => $reqinfo{'instcode'}, |
my $crscode = { |
}; |
$cnum => $reqinfo{'instcode'}, |
&extract_instcode($dom,'instcode',$crscode,$cnum); |
}; |
|
&extract_instcode($dom,'instcode',$crscode,$cnum); |
|
} |
} |
} |
my @currsec; |
my @currsec; |
if (ref($reqinfo{'sections'}) eq 'HASH') { |
if (ref($reqinfo{'sections'}) eq 'HASH') { |