--- loncom/interface/lonrequestcourse.pm 2009/07/27 22:58:24 1.1 +++ loncom/interface/lonrequestcourse.pm 2009/08/27 00:06:18 1.26 @@ -1,7 +1,7 @@ # The LearningOnline Network # Request a course # -# $Id: lonrequestcourse.pm,v 1.1 2009/07/27 22:58:24 raeburn Exp $ +# $Id: lonrequestcourse.pm,v 1.26 2009/08/27 00:06:18 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -44,6 +44,62 @@ described at http://www.lon-capa.org. =item handler() +=item header() + +=item form_elements() + +=item onload_action() + +=item check_can_request() + +=item course_types() + +=item print_main_menu() + +=item request_administration() + +=item print_request_form() + +=item print_enrollment_menu() + +=item inst_section_selector() + +=item date_setting_table() + +=item print_personnel_menu() + +=item print_request_status() + +=item print_request_logs() + +=item print_review() + +=item dates_from_form() + +=item courseinfo_form() + +=item clone_form() + +=item clone_text() + +=item coursecode_form() + +=item get_course_dom() + +=item display_navbuttons() + +=item print_request_outcome() + +=item get_processtype() + +=item check_autolimit() + +=item build_batchcreatehash() + +=item retrieve_settings() + +=item get_request_settings() + =back =cut @@ -55,52 +111,372 @@ use Apache::Constants qw(:common :http); use Apache::lonnet; use Apache::loncommon; use Apache::lonlocal; -use LONCAPA; +use Apache::loncoursequeueadmin; +use LONCAPA qw(:DEFAULT :match); sub handler { my ($r) = @_; + &Apache::loncommon::content_type($r,'text/html'); + $r->send_http_header; if ($r->header_only) { - &Apache::loncommon::content_type($r,'text/html'); - $r->send_http_header; return OK; } - &Apache::loncommon::content_type($r,'text/html'); - $r->send_http_header; + &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['action','showdom','cnum']); + &Apache::lonhtmlcommon::clear_breadcrumbs(); + my $dom = &get_course_dom(); my $action = $env{'form.action'}; my $state = $env{'form.state'}; - my $dom = &get_course_dom(); + my %stored; + my $jscript; + my ($uname,$udom,$result,$warning); + if ($action eq 'display') { + if (($dom eq $env{'request.role.domain'}) && (&Apache::lonnet::allowed('ccc',$dom))) { + my $namespace = 'courserequestqueue'; + if ($env{'form.cnum'} ne '') { + my $cnum = $env{'form.cnum'}; + my $reqkey = $cnum.'_approval'; + my $namespace = 'courserequestqueue'; + my $domconfig = &Apache::lonnet::get_domainconfiguser($dom); + my %queued = + &Apache::lonnet::get($namespace,[$reqkey],$dom,$domconfig); + if (ref($queued{$reqkey}) eq 'HASH') { + $uname = $queued{$reqkey}{'ownername'}; + $udom = $queued{$reqkey}{'ownerdom'}; + if (($udom =~ /^$match_domain$/) && ($uname =~ /^$match_username$/)) { + $result = &retrieve_settings($dom,$cnum,$udom,$uname); + } else { + $warning = &mt('Invalid username or domain for course requestor'); + } + } else { + $warning = &mt('No information was found for this course request.'); + } + } else { + $warning = &mt('No course request ID provided.'); + } + } else { + $warning = &mt('You do not have rights to view course request information.'); + } + } elsif ((defined($state)) && (defined($action))) { + if (($action eq 'view') && ($state eq 'details')) { + if ((defined($env{'form.showdom'})) && (defined($env{'form.cnum'}))) { + my $result = &retrieve_settings($env{'form.showdom'},$env{'form.cnum'}); + } + } + my %elements = &form_elements($dom); + my $elementsref = {}; + if (ref($elements{$action}) eq 'HASH') { + if (ref($elements{$action}{$state}) eq 'HASH') { + $elementsref = $elements{$action}{$state}; + } + } + if (($state eq 'courseinfo') && ($env{'form.clonedom'} eq '')) { + $env{'form.clonedom'} = $dom; + } + $jscript = &Apache::lonhtmlcommon::set_form_elements($elementsref,\%stored); + } + + if ($state eq 'personnel') { + $jscript .= "\n".&Apache::loncommon::userbrowser_javascript(); + } + + my $loaditems = &onload_action($action,$state); + + my %states; + $states{'display'} = ['details']; + $states{'view'} = ['pick_request','details','cancel','removal']; + $states{'log'} = ['filter','display']; + $states{'new'} = ['courseinfo','enrollment','personnel','review','process']; + + if (($action eq 'new') && ($env{'form.crstype'} eq 'official')) { + unless ($env{'form.state'} eq 'crstype') { + unshift(@{$states{'new'}},'codepick'); + } + } + + foreach my $key (keys(%states)) { + if (ref($states{$key}) eq 'ARRAY') { + unshift (@{$states{$key}},'crstype'); + } + } + + my %trail = ( + crstype => 'Course Request Action', + codepick => 'Category', + courseinfo => 'Description', + enrollment => 'Access Dates', + personnel => 'Personnel', + review => 'Review', + process => 'Result', + pick_request => 'Display Summary', + details => 'Request Details', + cancel => 'Cancel Request', + removal => 'Outcome', + ); + + if (($env{'form.crstype'} eq 'official') && (&Apache::lonnet::auto_run('',$dom))) { + $trail{'enrollment'} = 'Enrollment'; + } + + my $page = 0; + my $crumb; + if (defined($action)) { + my $done = 0; + my $i=0; + if (ref($states{$action}) eq 'ARRAY') { + while ($i<@{$states{$action}} && !$done) { + if ($states{$action}[$i] eq $state) { + $page = $i; + $done = 1; + } + $i++; + } + } + for (my $i=0; $i<@{$states{$action}}; $i++) { + if ($state eq $states{$action}[$i]) { + &Apache::lonhtmlcommon::add_breadcrumb( + {text=>"$trail{$state}"}); + $crumb = &Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests'); + last; + } else { + if (($state eq 'process') && ($i > 0)) { + &Apache::lonhtmlcommon::add_breadcrumb( + {href=>"javascript:backPage(document.requestcrs,'$states{$action}[0]')", + text=>"$trail{$states{$action}[$i]}"}); + } else { + &Apache::lonhtmlcommon::add_breadcrumb( + {href=>"javascript:backPage(document.requestcrs,'$states{$action}[$i]')", + text=>"$trail{$states{$action}[$i]}"}); + } + } + } + } else { + &Apache::lonhtmlcommon::add_breadcrumb( + {text=>'Pick Action'}); + $crumb = &Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests'); + } + my %can_request; my $canreq = &check_can_request($dom,\%can_request); if ($action eq 'new') { if ($canreq) { if ($state eq 'crstype') { - &print_main_menu($r,\%can_request,$dom); + &print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems, + $crumb); } else { - &request_administration($r,$action,$state,$dom); + &request_administration($r,$action,$state,$page,\%states,$dom,$jscript, + $loaditems,$crumb); } } else { - $r->print(&Apache::loncommon::start_page('Course Requests'). + $r->print(&header('Course Requests').$crumb. '
'. &mt('You do not have privileges to request creation of courses.'). - '
'. - &Apache::loncommon::end_page()); + ''.&Apache::loncommon::end_page()); } } elsif ($action eq 'view') { - &print_request_status(); + if ($state eq 'crstype') { + &print_main_menu($r,\%can_request,\%states,$dom,$jscript,'',$crumb); + } else { + &request_administration($r,$action,$state,$page,\%states,$dom,$jscript, + $loaditems,$crumb); + } + } elsif ($action eq 'display') { + if ($warning ne '') { + my $args = { only_body => 1 }; + $r->print(&header('Course Requests','','',$args).$crumb. + '

'.&mt('Course Request Details').'

'. + '
'.$warning.'
'. + &close_popup_form()); + } else { + &request_administration($r,$action,$state,$page,\%states,$dom,$jscript, + $loaditems,$crumb,$uname,$udom); + } } elsif ($action eq 'log') { - &print_request_logs(); + &print_request_logs($jscript,$loaditems,$crumb); } else { - &print_main_menu($r,\%can_request,$dom); + &print_main_menu($r,\%can_request,\%states,$dom,$jscript,'',$crumb); } return OK; } +sub header { + my ($bodytitle,$jscript,$loaditems,$jsextra,$args) = @_; + if ($jscript) { + $jscript = ''."\n"; + } + if ($loaditems) { + if (ref($args) eq 'HASH') { + my %loadhash = ( + 'add_entries' => $loaditems, + ); + my %arghash = (%loadhash,%{$args}); + $args = \%arghash; + } else { + $args = {'add_entries' => $loaditems,}; + } + } + return &Apache::loncommon::start_page($bodytitle,$jscript.$jsextra,$args); +} + +sub form_elements { + my ($dom) = @_; + my %elements = + ( + new => { + crstype => { + crstype => 'selectbox', + action => 'selectbox', + origcnum => 'hidden', + }, + courseinfo => { + cdescr => 'text', + clonecrs => 'text', + clonedom => 'selectbox', + datemode => 'radio', + dateshift => 'text', + }, + enrollment => { + accessstart_month => 'selectbox', + accessstart_hour => 'selectbox', + accessend_month => 'selectbox', + accessend_hour => 'selectbox', + accessstart_day => 'text', + accessstart_year => 'text', + accessstart_minute => 'text', + accessstart_second => 'text', + accessend_day => 'text', + accessend_year => 'text', + accessend_minute => 'text', + accessend_second => 'text', + no_end_date => 'checkbox', + }, + personnel => { + addperson => 'checkbox', + }, + review => { + cnum => 'hidden', + }, + }, + view => { + crstype => { + crstype => 'selectbox', + action => 'selectbox', + }, + }, + ); + my %servers = &Apache::lonnet::get_servers($dom,'library'); + my $numlib = keys(%servers); + if ($numlib > 1) { + $elements{'new'}{'courseinfo'}{'chome'} = 'selectbox'; + } else { + $elements{'new'}{'courseinfo'}{'chome'} = 'hidden'; + } + my (@codetitles,%cat_titles,%cat_order,@code_order,$lastitem); + &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, + \%cat_order,\@code_order); + my $numtitles = scalar(@codetitles); + if ($numtitles) { + my %extras; + $lastitem = pop(@codetitles); + $extras{'instcode_'.$lastitem} = 'text'; + foreach my $item (@codetitles) { + $extras{'instcode_'.$item} = 'selectbox'; + } + $elements{'new'}{'codepick'} = \%extras; + } + if (&Apache::lonnet::auto_run('',$dom)) { + my %extras = ( + sectotal => 'hidden', + enrollstart_month => 'selectbox', + enrollstart_hour => 'selectbox', + enrollend_month => 'selectbox', + enrollend_hour => 'selectbox', + enrollstart_day => 'text', + enrollstart_year => 'text', + enrollstart_minute => 'text', + enrollstart_second => 'text', + enrollend_day => 'text', + enrollend_year => 'text', + enrollend_minute => 'text', + enrollend_second => 'text', + crosslisttotal => 'hidden', + addcrosslist => 'checkbox', + autoadds => 'radio', + autodrops => 'radio', + ); + if ($env{'form.sectotal'} > 0) { + for (my $i=0; $i<$env{'form.sectotal'}; $i++) { + $extras{'sec_'.$i} = 'checkbox', + $extras{'secnum_'.$i} = 'text', + $extras{'loncapasec_'.$i} = 'text', + } + } + my $crosslisttotal = $env{'form.crosslisttotal'}; + if ($env{'form.addcrosslist'}) { + $crosslisttotal ++; + } + if (!$crosslisttotal) { + $crosslisttotal = 1; + } + for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) { + if ($numtitles) { + $extras{'crosslist_'.$i.'_'.$lastitem} = 'text'; + } + if (@codetitles > 0) { + foreach my $item (@codetitles) { + $extras{'crosslist_'.$i.'_'.$item} = 'selectbox'; + } + } + $extras{'crosslist_'.$i} = 'checkbox'; + $extras{'crosslist_'.$i.'_instsec'} = 'text', + $extras{'crosslist_'.$i.'_lcsec'} = 'text', + } + my %mergedhash = (%{$elements{'new'}{'enrollment'}},%extras); + %{$elements{'new'}{'enrollment'}} = %mergedhash; + } + my %people; + my $persontotal = $env{'form.persontotal'}; + if ($env{'form.addperson'}) { + $persontotal ++; + } + if ((!defined($persontotal)) || (!$persontotal)) { + $persontotal = 1; + } + for (my $i=0; $i<$persontotal; $i++) { + $people{'person_'.$i.'_uname'} = 'text', + $people{'person_'.$i.'_dom'} = 'selectbox', + $people{'person_'.$i.'_hidedom'} = 'hidden', + $people{'person_'.$i.'_firstname'} = 'text', + $people{'person_'.$i.'_lastname'} = 'text', + $people{'person_'.$i.'_emailaddr'} = 'text', + $people{'person_'.$i.'_role'} = 'selectbox', + $people{'person_'.$i.'_sec'} = 'selectbox', + $people{'person_'.$i.'_newsec'} = 'text', + } + my %personnelhash = (%{$elements{'new'}{'personnel'}},%people); + %{$elements{'new'}{'personnel'}} = %personnelhash; + return %elements; +} + +sub onload_action { + my ($action,$state) = @_; + my %loaditems; + if (($action eq 'new') || ($action eq 'view')) { + $loaditems{'onload'} = 'javascript:setFormElements(document.requestcrs)'; + } + return \%loaditems; +} + sub check_can_request { my ($dom,$can_request) = @_; my $canreq = 0; - if (ref($can_request) eq 'HASH') { - foreach my $type ('official','unofficial','community') { + 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')) { @@ -114,7 +490,7 @@ sub check_can_request { if (@curr > 0) { $canreq ++; unless ($dom eq $env{'user.domain'}) { - if (grep(/^\Q$dom\E$/,@curr)) { + if (grep(/^\Q$dom\E:($optregex)(=?\d*)$/,@curr)) { $can_request->{$type} = 1; } } @@ -125,32 +501,56 @@ sub check_can_request { return $canreq; } +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 { - my ($r,$can_request,$dom) = @_; + my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb) = @_; + my ($types,$typename) = &course_types(); my $onchange; unless ($env{'form.interface'} eq 'textual') { $onchange = 1; } - &Apache::lonhtmlcommon::clear_breadcrumbs(); + my $nextstate_setter = "\n"; + if (ref($states) eq 'HASH') { + foreach my $key (keys(%{$states})) { + if (ref($states->{$key}) eq 'ARRAY') { + $nextstate_setter .= +" if (actionchoice == '$key') { + nextstate = '".$states->{$key}[1]."'; + } +"; + } + } + } - my $js = < + my $js = <<"END"; -function nextPage(formname,nextstate) { - if (check_can_request() == true) { +function nextPage(formname) { + var crschoice = document.requestcrs.crstype.value; + var actionchoice = document.requestcrs.action.value; + if (check_can_request(crschoice,actionchoice) == true) { + if ((actionchoice == 'new') && (crschoice == 'official')) { + nextstate = 'codepick'; + } else { +$nextstate_setter + } formname.state.value= nextstate; formname.submit(); } return; } -function backPage(formname,prevstate) { - formname.state.value = prevstate; - formname.submit(); -} - -function check_can_request() { +function check_can_request(crschoice,actionchoice) { var official = ''; var unofficial = ''; var community = ''; @@ -168,7 +568,6 @@ END all => 'You must choose a specific course type when making a new course request.\\nAll types is not allowed.', ); $js .= < END - my $formname = 'requestform'; - $r->print(&Apache::loncommon::start_page('Course Requests',$js). - '

'. + $r->print(&header('Course Requests',$js.$jscript,$loaditems).$crumb. + '
'. '
'. &Apache::lonhtmlcommon::start_pick_box(). - &Apache::lonhtmlcommon::row_title('Domain'). + &Apache::lonhtmlcommon::row_title('Course Domain'). &Apache::loncommon::select_dom_form($dom,'showdom','',1,$onchange)); if (!$onchange) { $r->print(' '. + $r->print( + '
'. &Apache::lonhtmlcommon::start_pick_box(). &Apache::lonhtmlcommon::row_title('Action').' '. &Apache::lonhtmlcommon::row_closure(). &Apache::lonhtmlcommon::row_title('Course Type').' + '); + if ((ref($types) eq 'ARRAY') && (ref($typename) eq 'HASH')) { + foreach my $type (@{$types}) { + my $selected = ''; + if ($type eq 'official') { + $selected = ' selected="selected"'; + } + $r->print(''."\n"); + } + } + $r->print(' '. &Apache::lonhtmlcommon::row_closure(1). &Apache::lonhtmlcommon::end_pick_box().'
- +
'); $r->print(&Apache::loncommon::end_page()); return; } sub request_administration { - my ($r,$action,$state,$dom) = @_; - if ($action eq 'new') { - my $js = < + my ($r,$action,$state,$page,$states,$dom,$jscript,$loaditems,$crumb,$uname,$udom) = @_; + my $js; + if (($action eq 'new') || (($action eq 'view') && ($state eq 'pick_request'))) { + $js = < - END - + } + if ($action eq 'new') { + my $jsextra; unless (($state eq 'review') || ($state eq 'process')) { - $js .= "\n".&Apache::loncommon::coursebrowser_javascript($dom); + $jsextra = "\n".&Apache::loncommon::coursebrowser_javascript($dom); } - my $start_page = - &Apache::loncommon::start_page('Request a course',$js); - $r->print($start_page); - if ($state eq 'review') { - &print_review($r,$state,$dom); - } elsif ($state eq 'process') { - &print_request_outcome($r,$state,$dom); - } else { - &print_request_form($r,$state,$dom); + $r->print(&header('Request a course',$js.$jscript,$loaditems,$jsextra).$crumb); + &print_request_form($r,$action,$state,$page,$states,$dom); + } elsif ($action eq 'view') { + my $jsextra; + my $formname = 'requestcrs'; + my $prev = $states->{$action}[$page-1]; + my $next = $states->{$action}[$page+1]; + if ($state eq 'pick_request') { + $next = $states->{$action}[$page+1]; + $jsextra = &viewrequest_javascript($formname,$next); + } elsif ($state eq 'details') { + $jsextra = &viewdetails_javascript($formname); + + } elsif ($state eq 'cancel') { + $jsextra = &viewcancel_javascript($formname); } - $r->print(&Apache::loncommon::end_page()); + $r->print(&header('Manage course requests',$js.$jscript.$jsextra,$loaditems). + $crumb); + my $form = '
'; + if ($state eq 'pick_request') { + $r->print('

'.&mt('Pending course requests').'

'."\n".$form."\n". + &print_request_status($dom).''); + } elsif ($state eq 'details') { + my (@codetitles,%cat_titles,%cat_order,@code_order,$instcode,$code_chk); + my $origcnum = $env{'form.cnum'}; + if ($origcnum eq '') { + $origcnum = $env{'form.origcnum'}; + } + if ($env{'form.crstype'} eq 'official') { + &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, + \%cat_order,\@code_order); + } + $r->print('

'.&mt('Course Request Details').'

'."\n".$form."\n". + &print_review($dom,\@codetitles,\%cat_titles,\%cat_order, + \@code_order)."\n". + ''."\n"); + my @excluded = &get_excluded_elements($dom,$states,'new','review'); + push(@excluded,'origcnum'); + $r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'
'); + my $other = 'modify'; + my %navtxt = &Apache::lonlocal::texthash ( + prev => 'Back', + other => 'Modify Request', + next => 'Cancel Request', + ); + &display_navbuttons($r,$formname,$prev,$navtxt{'prev'},$next,$navtxt{'next'}, + $state,$other,$navtxt{'other'}); + $r->print(''); + } elsif ($state eq 'cancel') { + my ($result,$output) = &print_cancel_request($dom,$env{'form.origcnum'}); + $r->print('

'.&mt('Cancel course request').'

'."\n".$form."\n". + $output); + my @excluded = &get_excluded_elements($dom,$states,'view','cancel'); + $r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'
'); + my %navtxt = &Apache::lonlocal::texthash ( + prev => 'Back', + next => 'Confirm Cancellation', + ); + if ($result eq 'ok') { + &display_navbuttons($r,$formname,$prev,$navtxt{'prev'},$next, + $navtxt{'next'},$state); + } else { + &display_navbuttons($r,$formname,$prev,$navtxt{'prev'},undef,'',$state); + } + $r->print(''); + } elsif ($state eq 'removal') { + my $cnum = $env{'form.origcnum'}; + my $statuskey = 'status:'.$dom.':'.$cnum; + my %userreqhash = &Apache::lonnet::get('courserequests',[$statuskey], + $env{'user.domain'},$env{'user.name'}); + my $currstatus = $userreqhash{$statuskey}; + my ($result,$error); + if (($currstatus eq 'approval') || ($currstatus eq 'pending')) { + my %status = ( + $statuskey => 'cancelled', + ); + my $statusresult = &Apache::lonnet::put('courserequests',\%status); + if ($statusresult eq 'ok') { + my $delresult = + &Apache::lonnet::del_dom('courserequestqueue', + [$cnum.'_'.$currstatus],$dom); + if ($delresult eq 'ok') { + $result = 'ok'; + } else { + $error = &mt('An error occurred when updating the pending requests queue: [_1]',$delresult); + } + } else { + $error = &mt("An error occurred when updating the status of this request in the requestor's records: [_1]",$statusresult); + } + } else { + $error = &mt('The current status of this request could not be verified as pending approval/institutional action.'); + } + $r->print('

'.&mt('Request Cancellation').'

'."\n".$form."\n". + ''."\n". + ''."\n". + ''."\n". + ''."\n"); + if ($result eq 'ok') { + $r->print(&mt('Your course request has been cancelled.')); + } else { + $r->print('
'. + &mt('The request cancellation process was not complete.'). + '
'.$error.'
'); + } + $r->print(''); + } + } elsif ($action eq 'display') { + my $formname = 'requestcrs'; + my (@codetitles,%cat_titles,%cat_order,@code_order,$instcode,$code_chk); + if ($env{'form.crstype'} eq 'official') { + &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, + \%cat_order,\@code_order); + } + $r->print(&header('Course Request','','','',{ 'only_body' => 1}). + $crumb."\n".'

'.&mt('Course Request Details').'

'. + &print_review($dom,\@codetitles,\%cat_titles,\%cat_order, + \@code_order,$uname,$udom)."\n".'
'. + &close_popup_form()); } elsif ($action eq 'log') { - $r->print(&coursereq_log()); + $r->print(&coursereq_log('View request log',$jscript,$loaditems).$crumb); } + $r->print(&Apache::loncommon::end_page()); return; } +sub close_popup_form { + my $close= &mt('Close Window'); + return << "END"; +

+ +

+END +} + sub print_request_form { - my ($r,$state,$dom) = @_; + my ($r,$action,$state,$page,$states,$dom) = @_; my $formname = 'requestcrs'; - my ($next,$prev,$message,$output,$codepicker); - my $prev = 'crstype'; + my ($next,$prev,$message,$output,$codepicker,$crstype); + $prev = $states->{$action}[$page-1]; + $next = $states->{$action}[$page+1]; + my %navtxt = &Apache::lonlocal::texthash ( + prev => 'Back', + next => 'Next', + ); + $crstype = $env{'form.crstype'}; $r->print('
'); - my $crstype = $env{'form.crstype'}; - my $xlist = 0; + my (@codetitles,%cat_titles,%cat_order,@code_order,$instcode,$code_chk); if ($crstype eq 'official') { - my (@codetitles,%cat_titles,%cat_order,@code_order); - &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, - \%cat_order,\@code_order); - if ($state eq 'courseinfo') { - my $instcode; - if (@code_order > 0) { + if ($env{'form.instcode'} ne '') { + $instcode = $env{'form.instcode'}; + } + } + if ($prev eq 'codepick') { + if ($crstype eq 'official') { + &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, + \%cat_order,\@code_order); + } + if (@code_order > 0) { + my $message; + if ($instcode eq '') { foreach my $item (@code_order) { - $instcode .= $env{'form.instcode_'.$item}; + $instcode .= $env{'form.instcode_'.$item}; } + $r->print(''."\n"); } if ($instcode ne '') { - my $code_chk = &Apache::lonnet::auto_validate_instcode('',$dom,$instcode); - if ($code_chk eq 'ok') { + $code_chk = &Apache::lonnet::auto_validate_instcode('',$dom,$instcode); + if ($code_chk eq 'valid') { $message = '
'. &mt('The chosen course category [_1] is valid.',''. - $instcode.'').'
'; - my @sections = &Apache::lonnet::auto_get_sections(undef,$dom, - $instcode); - if (@sections) { - $output .= &inst_section_selector(\@sections); - } - $output .= &coursecode_form($dom,'crosslist',\@codetitles, - \%cat_titles,\%cat_order,$xlist); - $prev = 'codepick'; + $instcode.'').'
'; } else { $message = '
'. &mt('No course was found matching your choice of institutional course category.'); @@ -324,80 +854,860 @@ sub print_request_form { } $message .= '
'; } + } else { + $message = '
'. + &mt('No course was found matching your choice of institutional course category.'); } + unless ($code_chk eq 'valid') { + $prev = 'crstype'; + } + $r->print($message); + } + } + if ($prev eq 'crstype') { + if ($crstype eq 'official') { + &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, + \%cat_order,\@code_order); } - unless ($prev eq 'codepick') { + if (@code_order > 0) { $codepicker = &coursecode_form($dom,'instcode',\@codetitles, \%cat_titles,\%cat_order); + if ($codepicker) { + $r->print('
'.&Apache::lonhtmlcommon::start_pick_box().$codepicker. + &Apache::lonhtmlcommon::end_pick_box().'
'); + } else { + $next = $states->{$action}[$page+2]; + $r->print(&courseinfo_form($dom,$formname,$crstype,$next)); + } + } else { + if ($crstype eq 'official') { + $next = $states->{$action}[$page+2]; + } + $r->print(&courseinfo_form($dom,$formname,$crstype,$next)); + } + } elsif ($prev eq 'codepick') { + if ($env{'form.instcode'} eq '') { + $prev = $states->{$action}[$page-2]; } + $r->print(&courseinfo_form($dom,$formname,$crstype,$next)); + } elsif ($state eq 'enrollment') { + if ($crstype eq 'official') { + &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, + \%cat_order,\@code_order); + } + $r->print(&print_enrollment_menu($formname,$instcode,$dom,\@codetitles, + \%cat_titles,\%cat_order,\@code_order)); + } elsif ($state eq 'personnel') { + $r->print(&print_personnel_menu($dom,$formname,$crstype)); + } elsif ($state eq 'review') { + my $cnum; + if ($env{'form.origcnum'} =~ /^($match_courseid)$/) { + $cnum = $env{'form.origcnum'}; + } else { + $cnum = &Apache::lonnet::generate_coursenum($dom); + } + &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, + \%cat_order,\@code_order); + $r->print('

'.&mt('Review the details of the course request before submission.').'

'. + &print_review($dom,\@codetitles,\%cat_titles,\%cat_order,\@code_order). + ''); + $navtxt{'next'} = &mt('Submit course request'); + } elsif ($state eq 'process') { + if ($crstype eq 'official') { + &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, + \%cat_order,\@code_order); + } + my $result = &print_request_outcome($dom,\@codetitles,\@code_order); + $r->print($result); + } + my @excluded = &get_excluded_elements($dom,$states,$action,$state); + if ($state eq 'personnel') { + push(@excluded,'persontotal'); } - $r->print($message.'
'.&Apache::lonhtmlcommon::start_pick_box()); - if ($output ne '') { - $r->print($output); - } - if ($codepicker) { - $r->print($codepicker); - $state = 'codepick'; - $next = 'courseinfo'; - } else { - $r->print(&courseinfo_form()); - $state = 'courseinfo'; - $next = 'review'; - } - $r->print(&Apache::lonhtmlcommon::end_pick_box().'
'."\n"); - unless ($codepicker) { - $r->print('
'.&clone_form($dom,$formname,$crstype).'
'."\n"); - } - $r->print(''. - &Apache::lonhtmlcommon::echo_form_input(['state']).''); - &display_navbuttons($r,$formname,$prev,'Previous',$next,'Next'); + $r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).''); + &display_navbuttons($r,$formname,$prev,$navtxt{'prev'},$next,$navtxt{'next'},$state); return; } +sub get_excluded_elements { + my ($dom,$states,$action,$state) = @_; + my @excluded = ('counter'); + my %elements = &form_elements($dom); + if (ref($states) eq 'HASH') { + if (ref($states->{$action}) eq 'ARRAY') { + my @items = @{$states->{$action}}; + my $numitems = scalar(@items); + if ($numitems) { + for (my $i=$numitems-1; $i>=0; $i--) { + if (ref($elements{$action}) eq 'HASH') { + if (ref($elements{$action}{$items[$i]}) eq 'HASH') { + foreach my $key (keys(%{$elements{$action}{$items[$i]}})) { + push(@excluded,$key); + } + } + } + last if ($items[$i] eq $state); + } + } + } + } + if (grep(/^instcode_/,@excluded)) { + push(@excluded,'instcode'); + } + return @excluded; +} + +sub print_enrollment_menu { + my ($formname,$instcode,$dom,$codetitles,$cat_titles,$cat_order,$code_order) =@_; + my ($sections,$autoenroll,$access_dates); + my $starttime = time; + my $endtime = time+(6*30*24*60*60); # 6 months from now, approx + + my %accesstitles = ( + 'start' => 'Default start access', + 'end' => 'Default end access', + ); + my %enrolltitles = ( + 'start' => 'Start auto-enrollment', + 'end' => 'End auto-enrollment', + ); + if ($env{'form.crstype'} eq 'official') { + if (&Apache::lonnet::auto_run('',$dom)) { + my ($section_form,$crosslist_form,$autoenroll_form); + $section_form = &inst_section_selector($dom,$instcode); + my $crosslisttotal = $env{'form.crosslisttotal'}; + if (!$crosslisttotal) { + $crosslisttotal = 1; + } + if ($env{'form.addcrosslist'}) { + $crosslisttotal ++; + } + for (my $i=0; $i<$crosslisttotal; $i++) { + $crosslist_form .= &coursecode_form($dom,'crosslist',$codetitles, + $cat_titles,$cat_order,$i); + } + if ($crosslist_form) { + $crosslist_form .= + &Apache::lonhtmlcommon::row_title(&mt('Add another?')). + ''. + ''.&mt('Add?').&Apache::lonhtmlcommon::row_closure(1); + } + if ($section_form || $crosslist_form) { + $sections = '
'.&Apache::lonhtmlcommon::start_pick_box(). + $section_form.$crosslist_form. + &Apache::lonhtmlcommon::end_pick_box().'
'."\n"; + } + $autoenroll_form = + &Apache::lonhtmlcommon::row_title(&mt('Add registered students automatically')). + ''.(' 'x3).''. + &Apache::lonhtmlcommon::row_closure(). + &Apache::lonhtmlcommon::row_title(&mt('Drop unregistered students automatically')). + ''.(' 'x3).''. + &Apache::lonhtmlcommon::row_closure(). + &date_setting_table($starttime,$endtime,$formname,'enroll',%enrolltitles); + if ($autoenroll_form) { + $autoenroll = '
'.&Apache::lonhtmlcommon::start_pick_box(). + $autoenroll_form. + &Apache::lonhtmlcommon::end_pick_box().'
'."\n"; + } + } + } + my $access_dates_form = + &date_setting_table($starttime,$endtime,$formname,'access',%accesstitles); + if ($access_dates_form) { + $access_dates = '
'.&Apache::lonhtmlcommon::start_pick_box(). + $access_dates_form. + &Apache::lonhtmlcommon::end_pick_box().'
'."\n"; + } + return $sections.$autoenroll.$access_dates; +} + sub inst_section_selector { - my ($sections,$selected) = @_; + my ($dom,$instcode) = @_; + my @sections = &Apache::lonnet::auto_get_sections(undef,$dom,$instcode); + my $sectotal = scalar(@sections); my $output; - if (ref($sections) eq 'ARRAY') { - $output = &Apache::lonhtmlcommon::row_title('Sections'). - &Apache::loncommon::start_data_table(). - &Apache::loncommon::start_data_table_row(). - ''.&mt('Institutional Section').''. - ''.&mt('LON-CAPA section ID').''. - ''.&mt('Include in course?').''. - &Apache::loncommon::end_data_table_row(); - for (my $i=0; $i<@{$sections}; $i++) { + if ($sectotal) { + $output .= &Apache::lonhtmlcommon::row_title('Sections'). + &Apache::loncommon::start_data_table(). + &Apache::loncommon::start_data_table_row(). + ''.&mt('Include?').''. + ''.&mt('Institutional Section').''. + ''.&mt('LON-CAPA section').''. + &Apache::loncommon::end_data_table_row(); + for (my $i=0; $i<@sections; $i++) { my $colflag = $i%2; + my $checked = ' checked="checked"'; + if ($env{'form.origcnum'}) { + $checked=''; + } $output .= &Apache::loncommon::start_data_table_row(). - ''.$sections->[$i]. + ''. + ''.$sections[$i]. ''. + $sections[$i].'" />'. ''. - ''. + '" value="'.$sections[$i].'" />'. &Apache::loncommon::end_data_table_row(); } - $output .= &Apache::loncommon::end_data_table(); + $output .= &Apache::loncommon::end_data_table(). + &Apache::lonhtmlcommon::row_closure(); } return $output; } +sub date_setting_table { + my ($starttime,$endtime,$formname,$prefix,%datetitles) = @_; + my ($perpetual,$table); + my $startform = &Apache::lonhtmlcommon::date_setter($formname,$prefix.'start', + $starttime,'','','',1,'','','',1); + my $endform = &Apache::lonhtmlcommon::date_setter($formname,$prefix.'end', + $endtime,'','','',1,'','','',1); + if ($prefix eq 'access') { + $perpetual = ' '; + } + $table = &Apache::lonhtmlcommon::row_title($datetitles{'start'}). + $startform. + &Apache::lonhtmlcommon::row_closure(). + &Apache::lonhtmlcommon::row_title($datetitles{'end'}). + $endform.$perpetual. + &Apache::lonhtmlcommon::row_closure(1); + return $table; +} + +sub print_personnel_menu { + my ($dom,$formname,$crstype) = @_; + my $output = '
'.&Apache::lonhtmlcommon::start_pick_box(); + my $persontotal = $env{'form.persontotal'}; + if ((!defined($persontotal)) || (!$persontotal)) { + $persontotal = 1; + } + if ($env{'form.addperson'}) { + $persontotal ++; + } + my $userlinktxt = &mt('Set User'); + my @items = ('uname','dom','lastname','firstname','emailaddr','hidedom'); + + my $roleoptions; + my @roles = &Apache::lonuserutils::roles_by_context('course'); + my $type = 'Course'; + if ($crstype eq 'community') { + $type = 'Community'; + } + foreach my $role (@roles) { + my $plrole=&Apache::lonnet::plaintext($role,$type); + $roleoptions .= ' '."\n"; + } + my %customroles=&Apache::lonuserutils::my_custom_roles(); + if (keys(%customroles) > 0) { + foreach my $cust (sort(keys(%customroles))) { + my $custrole='cr_cr_'.$env{'user.domain'}. + '_'.$env{'user.name'}.'_'.$cust; + $roleoptions .= ' '."\n"; + } + } + + my @currsecs; + if ($env{'form.sectotal'}) { + for (my $i=0; $i<$env{'form.sectotal'}; $i++) { + if (defined($env{'form.loncapasec_'.$i})) { + my $lcsec = $env{'form.loncapasec_'.$i}; + unless (grep(/^\Q$lcsec\E$/,@currsecs)) { + push(@currsecs,$lcsec); + } + } + } + } + + my ($existtitle,$existops,$existmult,$newtitle,$seccolspan); + if (@currsecs) { + my $existsize = scalar(@currsecs); + if ($existsize > 3) { + $existsize = 3; + } + if ($existsize > 1) { + $existmult = ' multiple="multiple" size="'.$existsize.'" '; + } + @currsecs = sort { $a <=> $b } (@currsecs); + $existtitle = &mt('Official').': '; + $existops = ''; + foreach my $sec (@currsecs) { + $existops .= ''."\n"; + } + $seccolspan = ' colspan="2"'; + $newtitle = &mt('Other').': '; + } + + for (my $i=0; $i<$persontotal; $i++) { + my @linkargs = map { 'person_'.$i.'_'.$_ } (@items); + my $linkargstr = join("','",@linkargs); + my $userlink = &Apache::loncommon::selectuser_link($formname,@linkargs,$dom,$userlinktxt); + my $uname_form = ''; + my $onchange = 'javascript:fix_domain('."'$formname','person_".$i."_dom',". + "'person_".$i."_hidedom'".');'. + 'openuserbrowser('."'$formname','$linkargstr','$dom'".');'; + my $udom_form = &Apache::loncommon::select_dom_form($dom,'person_'.$i.'_dom','', + 1,$onchange). + ''; + my %form_elems; + foreach my $item (@items) { + next if (($item eq 'dom') || ($item eq 'uname') || ($item eq 'hidedom')); + $form_elems{$item} = ''; + } + my $roleselector = ''; + my $sectionselector; + if (@currsecs) { + $sectionselector = $existtitle.''.(' ' x3); + } + $sectionselector .= $newtitle. + ''."\n"; + $output .= + &Apache::lonhtmlcommon::row_title(&mt('Additional Personnel').'
'. + ''.$userlink. + ''). + ''."\n". + ''."\n". + ''."\n". + ''."\n". + ''."\n". + ''."\n". + ''.&mt('Section(s)').'
'.$sectionselector.''."\n". + '
'.&mt('Username').'
'.$uname_form.'		'.&mt('Domain').'
'.$udom_form.'
'.&mt('First Name').'
'.$form_elems{'firstname'}.'		'.&mt('Last Name').'
'.$form_elems{'lastname'}.'		'.&mt('E-mail').'
'.$form_elems{'emailaddr'}.'
'.&mt('Role').'
'.$roleselector.'
'.&Apache::lonhtmlcommon::row_closure(); + } + $output .= &Apache::lonhtmlcommon::row_title(&mt('Add another?')). + ''. + ''.&mt('Add?').&Apache::lonhtmlcommon::row_closure(1). + &Apache::lonhtmlcommon::end_pick_box().'
'; + return $output; +} + sub print_request_status { + my ($dom) = @_; + my %statusinfo = &Apache::lonnet::dump('courserequests',$env{'user.domain'}, + $env{'user.name'},'^status:'.$dom); + my ($output,$formname,%queue_by_date,%typenames); + if ($env{'form.crstype'} eq 'any') { + %typenames = &Apache::lonlocal::texthash ( + official => 'Official course', + unofficial => 'Unofficial course', + community => 'Community', + ); + } + foreach my $key (keys(%statusinfo)) { + if (($statusinfo{$key} eq 'approval') || ($statusinfo{$key} eq 'pending')) { + (undef,my($cdom,$cnum)) = split(':',$key); + next if ($cdom ne $dom); + my $requestkey = $cdom.'_'.$cnum; + if ($requestkey =~ /^($match_domain)_($match_courseid)$/) { + my %history = &Apache::lonnet::restore($requestkey,'courserequests', + $env{'user.domain'},$env{'user.name'}); + my $entry; + my $timestamp = $history{'reqtime'}; + my $crstype = $history{'crstype'}; + my $disposition = $history{'disposition'}; + next if ((exists($history{'status'})) && ($history{'status'} eq 'created')); + next unless (($env{'form.crstype'} eq 'any') || + ($env{'form.crstype'} eq $crstype)); + next unless (($disposition eq 'approval') || + ($disposition eq 'pending')); + if (ref($history{'details'}) eq 'HASH') { + $entry = $requestkey.':'.$crstype.':'. + &escape($history{'details'}{'cdescr'}); + if ($crstype eq 'official') { + $entry .= ':'.&escape($history{'details'}{'instcode'}); + } + } + if ($entry ne '') { + if (exists($queue_by_date{$timestamp})) { + if (ref($queue_by_date{$timestamp}) eq 'ARRAY') { + push(@{$queue_by_date{$timestamp}},$entry); + } + } else { + @{$queue_by_date{$timestamp}} = ($entry); + } + } + } + } + } + $formname = 'requestcrs'; + my @sortedtimes = sort {$a <=> $b} (keys(%queue_by_date)); + $output = ''."\n". + + ''."\n". + ''."\n". + ''."\n". + ''."\n"; + if (@sortedtimes > 0) { + $output .= &Apache::loncommon::start_data_table(). + &Apache::loncommon::start_data_table_header_row(). + ''.&mt('Action').''. + ''.&mt('Course Description').''. + ''.&mt('Domain').''; + if ($env{'form.crstype'} eq 'any') { + $output .= ''.&mt('Type').''; + } + if (($env{'form.crstype'} eq 'any') || ($env{'form.crstype'} eq 'official')) { + $output .= ''.&mt('Institutional Code').''; + } + $output .= ''.&mt('Date requested').''. + &Apache::loncommon::end_data_table_header_row(); + my $count = 0; + foreach my $item (@sortedtimes) { + my $showtime = &Apache::lonlocal::locallocaltime($item); + if (ref($queue_by_date{$item}) eq 'ARRAY') { + foreach my $request (sort(@{$queue_by_date{$item}})) { + my ($key,$type,$desc,$instcode) = split(':',$request); + my ($cdom,$cnum) = split('_',$key); + $output .= &Apache::loncommon::start_data_table_row(). + ''. + ''.&unescape($desc).''. + ''.$cdom.''; + if ($env{'form.crstype'} eq 'any') { + my $typename = $typenames{$type}; + if ($typename eq '') { + $typename = &mt('Unknown type'); + } + $output .= ''.$typename.''; + } + if (($env{'form.crstype'} eq 'any') || + ($env{'form.crstype'} eq 'official')) { + my $showinstcode; + if ($type eq 'official') { + $showinstcode = &unescape($instcode); + } else { + $showinstcode = &mt('Not applicable'); + } + $output .= ''.$showinstcode.''; + } + $output .= ''.$showtime.''. + &Apache::loncommon::end_data_table_row(); + } + } + } + $output .= &Apache::loncommon::end_data_table(); + } else { + $output .= '
'.&mt('You have no matching course requests awaiting approval by a Domain Coordinator or held in a queue pending administrative action at your institution.').'
'; + } + $output .= ' +
+
'; + return $output; +} + +sub print_cancel_request { + my ($dom,$cnum) = @_; + my $requestkey = $dom.'_'.$cnum; + my ($result,$output); + if ($requestkey =~ /^($match_domain)_($match_courseid)$/) { + my %history = &Apache::lonnet::restore($requestkey,'courserequests', + $env{'user.domain'},$env{'user.name'}); + my $timestamp = $history{'reqtime'}; + my $crstype = $history{'crstype'}; + my $status = $history{'status'}; + if (($status eq 'cancelled') || ($status eq 'created')) { + if ($status eq 'cancelled') { + $output = &mt('This request has already been cancelled.'); + } elsif ($status eq 'created') { + $output = &mt('This request has already been processed, and a course created.'); + } + $output = &mt('No further action will be taken'); + } elsif (ref($history{'details'}) eq 'HASH') { + my ($types,$typename) = &course_types(); + my $showtype = $crstype; + if (defined($typename->{$crstype})) { + $showtype = $typename->{$crstype}; + } + $output = '

'.&Apache::loncommon::start_data_table(). + &Apache::loncommon::start_data_table_header_row(). + ''.&mt('Description').''.&mt('Requested').''. + ''.&mt('Type').''. + &Apache::loncommon::end_data_table_header_row(). + &Apache::loncommon::start_data_table_row(). + ''.$history{details}{'cdescr'}.''. + &Apache::lonlocal::locallocaltime($timestamp).''. + ''.$showtype.''. + &Apache::loncommon::end_data_table_row(). + &Apache::loncommon::end_data_table(). + '

'. + &mt('Cancelling the request will remove it from the queue of pending course requests').'
'; + $result = 'ok'; + } else { + $output = '
'.&mt('No record exists for the course ID').'
'; + } + } else { + $output = '
'.&mt('Invalid course ID').'
'; + } + return ($result,$output); +} + +sub viewrequest_javascript { + my ($formname,$next) = @_; + return <<"ENDJS"; + +function chooseRequest(cdom,cnum) { + document.$formname.showdom.value = cdom; + document.$formname.cnum.value = cnum; + nextPage(document.$formname,'$next'); +} + +ENDJS +} + +sub viewdetails_javascript { + my ($formname) = @_; + return << "ENDJS"; + +function nextPage(formname,nextstate) { + if (nextstate == "modify") { + formname.state.value = "personnel"; + formname.action.value = "new"; + } else { + formname.state.value = nextstate; + } + formname.submit(); +} + +function backPage(formname,prevstate) { + formname.state.value = prevstate; + formname.submit(); +} + +ENDJS +} + +sub viewcancel_javascript { + my $alert = &mt('Are you sure you want to cancel this request?\\n'. + 'Your request will be removed.'); + return << "ENDJS"; +function nextPage(formname,nextstate) { + if (confirm('$alert')) { + formname.state.value = nextstate; + formname.submit(); + } return; } +ENDJS +} + sub print_request_logs { + my ($jscript,$loaditems,$crumb) = @_; return; } sub print_review { - my ($r,$state,$dom) = @_; - return; + my ($dom,$codetitles,$cat_titles,$cat_order,$code_order,$uname,$udom) = @_; + my ($types,$typename) = &course_types(); + my ($owner,$ownername,$owneremail); + if ($uname eq '' || $udom eq '') { + $uname = $env{'user.name'}; + $udom = $env{'user.domain'}; + } + $owner = $uname.':'.$udom; + $ownername = &Apache::loncommon::plainname($uname,$udom,'first'); + my %emails = &Apache::loncommon::getemails($uname,$udom); + foreach my $email ('permanentemail','critnotification','notification') { + $owneremail = $emails{$email}; + last if ($owneremail ne ''); + } + my ($inst_headers,$inst_values,$crstypename,$enroll_headers,$enroll_values, + $section_headers,$section_values,$personnel_headers,$personnel_values); + + $crstypename = $env{'form.crstype'}; + if (ref($typename) eq 'HASH') { + unless ($typename->{$env{'form.crstype'}} eq '') { + $crstypename = $typename->{$env{'form.crstype'}}; + } + } + my $category = 'Course'; + if ($env{'form.crstype'} eq 'community') { + $category = 'Community'; + } + + $inst_headers = ''.&mt('Description').''.&mt('Type').''; + $inst_values = ''.$env{'form.cdescr'}.''.$crstypename.''; + + my $enrollrow_title = &mt('Default Access Dates').'
'. + '('.&Apache::lonnet::plaintext('st',$category).')'; + if ($env{'form.crstype'} eq 'official') { + if ((ref($codetitles) eq 'ARRAY') && (ref($cat_titles) eq 'HASH')) { + foreach my $title (@{$codetitles}) { + if ($env{'form.instcode_'.$title} ne '') { + $inst_headers .= ''.$title.''; + my $longitem = $env{'form.instcode_'.$title}; + if (ref($cat_titles->{$title}) eq 'HASH') { + if ($cat_titles->{$title}{$env{'form.instcode_'.$title}} ne '') { + $longitem = $cat_titles->{$title}{$env{'form.instcode_'.$title}}; + } + } + $inst_values .= ''.$longitem.''; + } + } + } + if (&Apache::lonnet::auto_run('',$dom)) { + $enrollrow_title = &mt('Enrollment'); + $enroll_headers = ''.&mt('Automatic Adds').''. + ''.&mt('Automatic Drops').''. + ''.&mt('Enrollment Starts').''. + ''.&mt('Enrollment Ends').''; + $section_headers = ''.&mt('Sections').''. + ''.&mt('Crosslistings').''; + + my ($enrollstart,$enrollend) = &dates_from_form('enrollstart','enrollend'); + my @autoroster = (&mt('No'),&mt('Yes')); + $enroll_values = ''.$autoroster[$env{'form.autoadds'}].''. + ''.$autoroster[$env{'form.autodrops'}].''. + ''.&Apache::lonlocal::locallocaltime($enrollstart).''. + ''.&Apache::lonlocal::locallocaltime($enrollend).''; + $section_values = ''. + ''; + my $secinfo; + if ($env{'form.sectotal'} > 0) { + for (my $i=0; $i<$env{'form.sectotal'}; $i++) { + if ($env{'form.sec_'.$i}) { + $secinfo .= ''; + } + } + } + if ($secinfo eq '') { + $secinfo = ''; + } + $section_values .= $secinfo.'
'. + &mt('Institutional section').''.&mt('LON-CAPA section').'
'.$env{'form.secnum_'.$i}.''; + if ($env{'form.loncapasec_'.$i} ne '') { + $secinfo .= $env{'form.loncapasec_'.$i}; + } else { + $secinfo .= &mt('None'); + } + $secinfo .= '
'.&mt('None').'
'. + ''. + ''; + my $xlistinfo; + my $crosslisttotal = $env{'form.crosslisttotal'}; + if (!$crosslisttotal) { + $crosslisttotal = 1; + } + for (my $i=0; $i<$crosslisttotal; $i++) { + if ($env{'form.crosslist_'.$i}) { + $xlistinfo .= ''; + } + } + if ($xlistinfo eq '') { + $xlistinfo = ''; + } + $section_values .= $xlistinfo; + } + $section_values .= '
'. + &mt('Institutional course/section').''.&mt('LON-CAPA section').'
'; + if (ref($code_order) eq 'ARRAY') { + if (@{$code_order} > 0) { + foreach my $item (@{$code_order}) { + $xlistinfo .= $env{'form.crosslist_'.$i.'_'.$item}; + } + } + } + $xlistinfo .= $env{'form.crosslist_'.$i.'_instsec'}.''; + if ($env{'form.crosslist_'.$i.'_lcsec'}) { + $xlistinfo .= $env{'form.crosslist_'.$i.'_lcsec'}; + } else { + $xlistinfo .= &mt('None'); + } + $xlistinfo .= '
'.&mt('None').'
'; + } + + my %ctxt = &clone_text(); + $inst_headers .= ''.&mt('Clone From').''; + if (($env{'form.clonecrs'} =~ /^$match_name$/) && + ($env{'form.clonedom'} =~ /^$match_domain$/)) { + my $canclone = &Apache::loncoursequeueadmin::can_clone_course($env{'user.name'}, + $env{'user.domain'},$env{'form.clonecrs'}, $env{'form.clonedom'}); + if ($canclone) { + my %courseenv = &Apache::lonnet::userenvironment($env{'form.clonedom'}, + $env{'form.clonecrs'},('description','internal.coursecode')); + if (keys(%courseenv) > 0) { + $inst_headers .= ''.$ctxt{'dsh'}.''; + $inst_values .= ''.$courseenv{'description'}.' '; + my $cloneinst = $courseenv{'internal.coursecode'}; + if ($cloneinst ne '') { + $inst_values .= $cloneinst.' '.&mt('in').' '.$env{'form.clonedom'}; + } else { + $inst_values .= &mt('from').' '.$env{'form.clonedom'}; + } + $inst_values .= ''; + if ($env{'form.datemode'} eq 'preserve') { + $inst_values .= $ctxt{'prd'}; + } elsif ($env{'form.datemode'} eq 'shift') { + $inst_values .= &mt('Shift dates by [_1] days',$env{'form.dateshift'}); + } else { + $inst_values .= $ctxt{'ncd'}; + } + $inst_values .= ''; + } else { + $inst_values .= ''.&mt('Unknown').''; + } + } else { + $inst_values .= ''.&mt('Not permitted'),''; + } + } else { + $inst_values .= ''.&mt('None').''; + } + $enroll_headers .= ''.&mt('Access Starts').''. + ''.&mt('Access Ends').''; + my ($accessstart,$accessend) = &dates_from_form('accessstart','accessend'); + $enroll_values .= ''.&Apache::lonlocal::locallocaltime($accessstart).''; + if ($accessend == 0) { + $enroll_values .= ''.&mt('No end date').''; + } else { + $enroll_values .= ''.&Apache::lonlocal::locallocaltime($accessend).''; + } + + my $container = 'Course'; + if ($env{'form.crstype'} eq 'community') { + $container = 'Community'; + } + + $personnel_headers = ''.&mt('Name').''.&mt('Username:Domain'). + ''.&mt('Role').''.&mt('LON-CAPA Sections'). + ''; + $personnel_values .= ''.$ownername.''.$owner.''. + ''.&Apache::lonnet::plaintext('cc',$container).''. + ''.&mt('None').''; + for (my $i=0; $i<$env{'form.persontotal'}; $i++) { + if ($env{'form.person_'.$i.'_uname'} ne '') { + my @allsecs = &Apache::loncommon::get_env_multiple('form.person_'.$i.'_sec'); + my $newsec = $env{'form.person_'.$i.'_newsec'}; + $newsec =~ s/^\s+//; + $newsec =~s/\s+$//; + my @newsecs = split(/[\s,;]+/,$newsec); + foreach my $sec (@newsecs) { + next if ($sec =~ /\W/); + next if ($newsec eq 'none'); + if ($sec ne '') { + unless (grep(/^\Q$sec\E$/,@allsecs)) { + push(@allsecs,$sec); + } + } + } + my $showsec; + if (@allsecs) { + $showsec = join(', ',@allsecs); + } + if ($showsec eq '') { + $showsec = &mt('None'); + } + if ($env{'form.person_'.$i.'_role'} eq 'cc') { + $showsec = &mt('None'); + } + $personnel_values .= + ''.$env{'form.person_'.$i.'_firstname'}.' '. + $env{'form.person_'.$i.'_lastname'}.''. + ''.$env{'form.person_'.$i.'_uname'}.':'. + $env{'form.person_'.$i.'_dom'}.''. + ''.&Apache::lonnet::plaintext($env{'form.person_'.$i.'_role'}, + $container).''. + ''.$showsec.''; + } + } + my $output = + '
'.&Apache::lonhtmlcommon::start_pick_box(). + &Apache::lonhtmlcommon::row_title(&mt('Owner')). + ''. + ''. + ''. + ''. + ''."\n". + ''. + ''. + '
'.&mt('Name').''.&mt('Username:Domain').''.&mt('E-mail address').'
'.$ownername.''.$owner.''.$owneremail.'
'."\n". + &Apache::lonhtmlcommon::row_closure(). + &Apache::lonhtmlcommon::row_title(&mt('Description')). + ''.$inst_headers.''."\n". + ''.$inst_values.'
'."\n". + &Apache::lonhtmlcommon::row_closure(). + &Apache::lonhtmlcommon::row_title($enrollrow_title). + ''.$enroll_headers.''."\n". + ''.$enroll_values.'
'."\n". + &Apache::lonhtmlcommon::row_closure(); + if ($section_headers ne '') { + $output .= &Apache::lonhtmlcommon::row_title(&mt('Sections')). + ''.$section_headers.''."\n". + ''.$section_values.'
'."\n". + &Apache::lonhtmlcommon::row_closure(); + } + $output .= &Apache::lonhtmlcommon::row_title(&mt('Personnel')). + ''.$personnel_headers.''."\n". + $personnel_values.'
'."\n". + &Apache::lonhtmlcommon::row_closure(1). + &Apache::lonhtmlcommon::end_pick_box().'
'; + return $output; +} + +sub dates_from_form { + my ($startname,$endname) = @_; + my $startdate = &Apache::lonhtmlcommon::get_date_from_form($startname); + my $enddate = &Apache::lonhtmlcommon::get_date_from_form($endname); + if ($endname eq 'accessend') { + if (exists($env{'form.no_end_date'}) ) { + $enddate = 0; + } + } + return ($startdate,$enddate); } sub courseinfo_form { - my $output = &Apache::lonhtmlcommon::row_title('Course Description'). - ''; + my ($dom,$formname,$crstype,$next) = @_; + my $nodescr = &mt('You must provide a (brief) course description.'); + my $js_validate = <<"ENDJS"; + + +ENDJS + + my $output .= $js_validate."\n".'
'.&Apache::lonhtmlcommon::start_pick_box(). + &Apache::lonhtmlcommon::row_title('Course Description'). + ''; + my ($home_server_pick,$numlib) = + &Apache::loncommon::home_server_form_item($dom,'chome', + 'default','hide'); + if ($numlib > 1) { + $output .= &Apache::lonhtmlcommon::row_closure(). + &Apache::lonhtmlcommon::row_title(&mt('Home Server for Course')); + } + $output .= $home_server_pick. + &Apache::lonhtmlcommon::row_closure(1). + &Apache::lonhtmlcommon::end_pick_box().'
'. + '
'.&clone_form($dom,$formname,$crstype).'
'."\n"; return $output; } @@ -407,59 +1717,69 @@ sub clone_form { if ($crstype eq 'community') { $type = 'Community'; } - my $cloneform = &Apache::loncommon::select_dom_form($dom,'clonedomain'). - &Apache::loncommon::selectcourse_link($formname,'clonecourse', - 'clonedomain','','','',$type); - my %lt = &Apache::lonlocal::texthash( - 'cid' => 'Course ID', - 'dmn' => 'Domain', - 'dsh' => 'Date Shift', - 'ncd' => 'Do not clone date parameters', - 'prd' => 'Clone date parameters as-is', - 'shd' => 'Shift date parameters by number of days', - ); - my $output .= &Apache::lonhtmlcommon::start_pick_box(). - &Apache::lonhtmlcommon::row_title($lt{'cid'}). - ''.&Apache::lonhtmlcommon::row_closure(1).''. - $cloneform.''.&Apache::lonhtmlcommon::row_closure(). - &Apache::lonhtmlcommon::row_title($lt{'dsh'}).'

'. - ''. - &Apache::lonhtmlcommon::row_closure(1). - &Apache::lonhtmlcommon::end_pick_box(); + my $cloneform = &Apache::loncommon::select_dom_form($dom,'clonedom'). + &Apache::loncommon::selectcourse_link($formname,'clonecrs','clonedom','','','',$type); + my %lt = &clone_text(); + my $output .= + &Apache::lonhtmlcommon::start_pick_box(). + &Apache::lonhtmlcommon::row_title($lt{'cid'}).''.&Apache::lonhtmlcommon::row_closure(1).''. + $cloneform.''.&Apache::lonhtmlcommon::row_closure(). + &Apache::lonhtmlcommon::row_title($lt{'dsh'}).'

'. + ''. + &Apache::lonhtmlcommon::row_closure(1). + &Apache::lonhtmlcommon::end_pick_box(); return $output; } +sub clone_text { + return &Apache::lonlocal::texthash( + 'cid' => 'Course ID', + 'dmn' => 'Domain', + 'dsh' => 'Date Shift', + 'ncd' => 'Do not clone date parameters', + 'prd' => 'Clone date parameters as-is', + 'shd' => 'Shift date parameters by number of days', + ); +} + sub coursecode_form { - my ($dom,$context,$codetitles,$cat_titles,$cat_order,$count) = @_; + my ($dom,$context,$codetitles,$cat_titles,$cat_order,$num) = @_; my $output; + my %rowtitle = ( + instcode => 'Course Category', + crosslist => 'Cross Listed Course', + ); if ((ref($codetitles) eq 'ARRAY') && (ref($cat_titles) eq 'HASH') && (ref($cat_order))) { + my ($sel,$instsec,$lcsec); + $sel = $context; + if ($context eq 'crosslist') { + $sel .= '_'.$num; + $instsec = &mt('Institutional section').'
'. + ''; + $lcsec = &mt('LON-CAPA section').'
'. + ''; + } if (@{$codetitles} > 0) { my $lastitem = pop(@{$codetitles}); - my $sel = $context; - if ($context eq 'crosslist') { - $sel .= '_'.$count; - } - my $lastinput = ''; - my %rowtitle = ( - instcode => 'Course Category', - crosslist => 'Cross Listed Course', - ); + my $lastinput = ''; if (@{$codetitles} > 0) { - my $sel = $context; - if ($context eq 'crosslist') { - $sel .= '_'.$count; - } $output = &Apache::lonhtmlcommon::row_title($rowtitle{$context}). ''; + if ($context eq 'crosslist') { + $output .= ''; + } foreach my $title (@{$codetitles}) { if (ref($cat_order->{$title}) eq 'ARRAY') { if (@{$cat_order->{$title}} > 0) { @@ -483,7 +1803,8 @@ sub coursecode_form { } if ($context eq 'crosslist') { $output .= '
'.&mt('Include?').'
'. + '		'.$lastitem.'
'."\n". - $lastinput.'
'; + $lastinput.''.$instsec.''. + ''.$lcsec.''; } else { $output .= ''. &Apache::lonhtmlcommon::row_closure(). @@ -493,13 +1814,26 @@ sub coursecode_form { } else { if ($context eq 'crosslist') { $output .= &Apache::lonhtmlcommon::row_title($rowtitle{$context}). - $lastitem.'
'; + ''. + ''. + ''. + '
'.$lastitem.'
'.$lastinput.'		'.$instsec.''.$lcsec.'
'; } else { $output .= &Apache::lonhtmlcommon::row_title('Course '.$lastitem). $lastinput; } - $output .= $lastinput.&Apache::lonhtmlcommon::row_closure(1); } + $output .= &Apache::lonhtmlcommon::row_closure(1); + push(@$codetitles,$lastitem); + } elsif ($context eq 'crosslist') { + $output .= &Apache::lonhtmlcommon::row_title($rowtitle{$context}). + '
'. + ''.&mt('Include?'). + ''. + ''.&mt('Institutional ID').'
'. + ''. + '		'.$lcsec.'
'. + &Apache::lonhtmlcommon::row_closure(1); } } return $output; @@ -507,43 +1841,723 @@ sub coursecode_form { sub get_course_dom { my $codedom = &Apache::lonnet::default_login_domain(); + if ($env{'form.showdom'} ne '') { + if (&Apache::lonnet::domain($env{'form.showdom'}) ne '') { + return $env{'form.showdom'}; + } + } if (($env{'user.domain'} ne '') && ($env{'user.domain'} ne 'public')) { + my ($types,$typename) = &course_types(); + if (ref($types) eq 'ARRAY') { + foreach my $type (@{$types}) { + if (&Apache::lonnet::usertools_access($env{'user.name'}, + $env{'user.domain'},$type, + undef,'requestcourses')) { + return $env{'user.domain'}; + } + } + my @possible_doms; + foreach my $type (@{$types}) { + my $dom_str = $env{'environment.reqcrsotherdom.'.$type}; + if ($dom_str ne '') { + my @domains = split(',',$dom_str); + foreach my $entry (@domains) { + my ($extdom,$extopt) = split(':',$entry); + if ($extdom eq $env{'request.role.domain'}) { + return $extdom; + } + unless(grep(/^\Q$extdom\E$/,@possible_doms)) { + push(@possible_doms,$extdom); + } + } + } + } + if (@possible_doms) { + @possible_doms = sort(@possible_doms); + return $possible_doms[0]; + } + } $codedom = $env{'user.domain'}; if ($env{'request.role.domain'} ne '') { $codedom = $env{'request.role.domain'}; } } - if ($env{'form.showdom'} ne '') { - if (&Apache::lonnet::domain($env{'form.showdom'}) ne '') { - $codedom = $env{'form.showdom'}; - } - } return $codedom; } sub display_navbuttons { - my ($r,$formname,$prev,$prevtext,$next,$nexttext) = @_; + my ($r,$formname,$prev,$prevtext,$next,$nexttext,$state,$other,$othertext) = @_; $r->print('
'); if ($prev) { - $r->print(' - -    '); + $r->print(''. + (' 'x3)); } elsif ($prevtext) { - $r->print(' - -    '); + $r->print(''.(' 'x3)); + } + if ($state eq 'details') { + $r->print(' '); } - if ($next) { + if ($state eq 'courseinfo') { + $r->print(''); + } elsif ($next) { $r->print(' - '); + '); } $r->print('
'); } sub print_request_outcome { + my ($dom,$codetitles,$code_order) = @_; + my ($output,$cnum,$now,$req_notifylist,$crstype,$enrollstart,$enrollend, + %sections,%crosslistings,%personnel,@baduname,@missingdom,%domconfig,); + my $sectotal = $env{'form.sectotal'}; + my $crosslisttotal = 0; + $cnum = $env{'form.cnum'}; + unless ($cnum =~ /^$match_courseid$/) { + $output = &mt('Invalid LON-CAPA course number for the new course')."\n"; + return $output; + } + + %domconfig = &Apache::lonnet::get_dom('configuration',['requestcourses'],$dom); + if (ref($domconfig{'requestcourses'}) eq 'HASH') { + if (ref($domconfig{'requestcourses'}{'notify'}) eq 'HASH') { + $req_notifylist = $domconfig{'requestcourses'}{'notify'}{'approval'}; + } + } + $now = time; + $crstype = $env{'form.crstype'}; + my @instsections; + if ($crstype eq 'official') { + if (&Apache::lonnet::auto_run('',$dom)) { + ($enrollstart,$enrollend)=&dates_from_form('enrollstart','enrollend'); + } + for (my $i=0; $i<$env{'form.sectotal'}; $i++) { + if ($env{'form.sec_'.$i}) { + if ($env{'form.secnum_'.$i} ne '') { + my $sec = $env{'form.secnum_'.$i}; + $sections{$i}{'inst'} = $sec; + if (($sec ne '') && (!grep(/^\Q$sec\E$/,@instsections))) { + push(@instsections,$sec); + } + $sections{$i}{'loncapa'} = $env{'form.loncapasec_'.$i}; + } + } + } + for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) { + if ($env{'form.crosslist_'.$i}) { + my $xlistinfo = ''; + if (ref($code_order) eq 'ARRAY') { + if (@{$code_order} > 0) { + foreach my $item (@{$code_order}) { + $xlistinfo .= $env{'form.crosslist_'.$i.'_'.$item}; + } + } + } + $crosslistings{$i}{'instcode'} = $xlistinfo; + if ($xlistinfo ne '') { + $crosslisttotal ++; + } + $crosslistings{$i}{'instsec'} = $env{'form.crosslist_'.$i.'_instsec'}; + $crosslistings{$i}{'loncapa'} = $env{'form.crosslist_'.$i.'_lcsec'}; + } + } + } else { + $enrollstart = ''; + $enrollend = ''; + } + for (my $i=0; $i<$env{'form.persontotal'}; $i++) { + my $uname = $env{'form.person_'.$i.'_uname'}; + my $udom = $env{'form.person_'.$i.'_dom'}; + if (($uname =~ /^$match_username$/) && ($udom =~ /^$match_domain$/)) { + if (&Apache::lonnet::domain($udom) ne '') { + unless (ref($personnel{$uname.':'.$udom}) eq 'HASH') { + $personnel{$uname.':'.$udom} = { + firstname => $env{'form.person_'.$i.'_firstname'}, + lastname => $env{'form.person_'.$i.'_lastname'}, + emailaddr => $env{'form.person_'.$i.'_emailaddr'}, + }; + } + my $role = $env{'form.person_'.$i.'_role'}; + unless ($role eq '') { + if (ref($personnel{$uname.':'.$udom}{'roles'}) eq 'ARRAY') { + my @curr_roles = @{$personnel{$uname.':'.$udom}{'roles'}}; + unless (grep(/^\Q$role\E$/,@curr_roles)) { + push(@{$personnel{$uname.':'.$udom}{'roles'}},$role); + } + } else { + @{$personnel{$uname.':'.$udom}{'roles'}} = ($role); + } + if ($role eq 'cc') { + @{$personnel{$uname.':'.$udom}{$role}{'usec'}} = (); + } else { + my @currsec = &Apache::loncommon::get_env_multiple('form.person_'.$i.'_sec'); + my $newsec = $env{'form.person_'.$i.'_newsec'}; + $newsec =~ s/^\s+//; + $newsec =~s/\s+$//; + my @newsecs = split(/[\s,;]+/,$newsec); + foreach my $sec (@newsecs) { + next if ($sec =~ /\W/); + next if ($newsec eq 'none'); + if ($sec ne '') { + unless (grep(/^\Q$sec\E$/,@currsec)) { + push(@currsec,$sec); + } + } + } + @{$personnel{$uname.':'.$udom}{$role}{'usec'}} = @currsec; + } + } + } else { + push(@missingdom,$uname.':'.$udom); + } + } else { + push(@baduname,$uname.':'.$udom); + } + } + my ($accessstart,$accessend) = &dates_from_form('accessstart','accessend'); + my $autodrops = 0; + if ($env{'form.autodrops'}) { + $autodrops = $env{'form.autodrops'}; + } + my $autoadds = 0; + if ($env{'form.autoadds'}) { + $autodrops = $env{'form.autoadds'}; + } + if ($env{'form.autoadds'}) { + $autodrops = $env{'form.autoadds'}; + } + my $instcode = ''; + if (exists($env{'form.instcode'})) { + $instcode = $env{'form.instcode'}; + } + my $clonecrs = ''; + my $clonedom = ''; + if (($env{'form.clonecrs'} =~ /^($match_courseid)$/) && + ($env{'form.clonedom'} =~ /^($match_domain)$/)) { + my $clonehome = &Apache::lonnet::homeserver($env{'form.clonecrs'}, + $env{'form.clonedom'}); + if ($clonehome ne 'no_host') { + my $canclone = + &Apache::loncoursequeueadmin::can_clone_course($env{'user.name'}, + $env{'user.domain'},$env{'form.clonecrs'}, $env{'form.clonedom'}); + if ($canclone) { + $clonecrs = $env{'form.clonecrs'}; + $clonedom = $env{'form.clonedom'}; + } + } + } + my $details = { + owner => $env{'user.name'}, + domain => $env{'user.domain'}, + cdom => $dom, + cnum => $cnum, + coursehome => $env{'form.chome'}, + cdescr => $env{'form.cdescr'}, + crstype => $env{'form.crstype'}, + instcode => $instcode, + clonedom => $clonedom, + clonecrs => $clonecrs, + datemode => $env{'form.datemode'}, + dateshift => $env{'form.dateshift'}, + sectotal => $sectotal, + sections => \%sections, + crosslisttotal => $crosslisttotal, + crosslists => \%crosslistings, + autoadds => $autoadds, + autodrops => $autodrops, + enrollstart => $enrollstart, + enrollend => $enrollend, + accessstart => $accessstart, + accessend => $accessend, + personnel => \%personnel, + }; + my @inststatuses; + my $val = &get_processtype($dom,$crstype,\@inststatuses,\%domconfig); + if ($val eq '') { + if ($crstype eq 'official') { + $output = &mt('You are not permitted to request creation of official courses.'); + } elsif ($crstype eq 'unofficial') { + $output = &mt('You are not permitted to request creation of unofficial courses.'); + } elsif ($crstype eq 'community') { + $output = &mt('You are not permitted to request creation of communities'); + } else { + $output = &mt('Unrecognized course type: [_1]',$crstype); + } + } else { + my ($disposition,$message,$reqstatus); + my %reqhash = ( + reqtime => $now, + crstype => $crstype, + details => $details, + ); + my $requestkey = $dom.'_'.$cnum; + my $validationerror; + if ($val eq 'autolimit=') { + $disposition = 'process'; + } elsif ($val =~ /^autolimit=(\d+)$/) { + my $limit = $1; + $disposition = &check_autolimit($env{'user.name'},$env{'user.domain'}, + $dom,$crstype,$limit,\$message); + } elsif ($val eq 'validate') { + my ($inststatuslist,$validationchk,$validation); + if (@inststatuses > 0) { + $inststatuslist = join(',',@inststatuses); + } + my $instseclist; + if (@instsections > 0) { + $instseclist = join(',',@instsections); + } + $validationchk = + &Apache::lonnet::auto_courserequest_validation($dom, + $env{'user.name'}.':'.$env{'user.domain'},$crstype, + $inststatuslist,$instcode,$instseclist); + if ($validationchk =~ /:/) { + ($validation,$message) = split(':',$validationchk); + } else { + $validation = $validationchk; + } + if ($validation =~ /^error(.*)$/) { + $disposition = 'approval'; + $validationerror = $1; + } else { + $disposition = $validation; + } + } else { + $disposition = 'approval'; + } + $reqhash{'disposition'} = $disposition; + $reqstatus = $disposition; + my ($modified,$queued); + if ($disposition eq 'rejected') { + $output = &mt('Your course request was rejected.'); + if ($message) { + $output .= '
'.$message.'
'; + } + } elsif ($disposition eq 'process') { + my %domdefs = &Apache::lonnet::get_domain_defaults($dom); + my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg,%longroles); + my @roles = &Apache::lonuserutils::roles_by_context('course'); + my $type = 'Course'; + if ($crstype eq 'community') { + $type = 'Community'; + } + foreach my $role (@roles) { + $longroles{$role}=&Apache::lonnet::plaintext($role,$type); + } + my $result = &Apache::loncoursequeueadmin::course_creation($dom,$cnum, + 'autocreate',$details,\$logmsg,\$newusermsg,\$addresult, + \$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles); + if ($result eq 'created') { + $disposition = 'created'; + $reqstatus = 'created'; + $output = &mt('Your course request has been processed and the course has been created.'). + '
'. + &mt('You will need to logout and log-in again to be able to select a role in the course.'); + } else { + $output = ''. + &mt('An error occurred when processing your course request.'). + '
'. + &mt('You may want to review the request details and submit the request again.'). + ''; + } + } else { + my $requestid = $cnum.'_'.$disposition; + my $request = { + $requestid => { + timestamp => $now, + crstype => $crstype, + ownername => $env{'user.name'}, + ownerdom => $env{'user.domain'}, + description => $env{'form.cdescr'}, + }, + }; + my $statuskey = 'status:'.$dom.':'.$cnum; + my %userreqhash = &Apache::lonnet::get('courserequests',[$statuskey], + $env{'user.domain'},$env{'user.name'}); + if ($userreqhash{$statuskey} ne '') { + $modified = 1; + my $uname = &Apache::lonnet::get_domainconfiguser($dom); + my %queuehash = &Apache::lonnet::get('courserequestqueue', + [$cnum.'_approval', + $cnum.'_pending'],$dom,$uname); + if (($queuehash{$cnum.'_approval'} ne '') || + ($queuehash{$cnum.'_pending'} ne '')) { + $queued = 1; + } + } + unless ($queued) { + my $putresult = &Apache::lonnet::newput_dom('courserequestqueue',$request, + $dom); + if ($putresult eq 'ok') { + $output = &mt('Your course request has been recorded.').'
'. + ¬ification_information($disposition,$req_notifylist, + $cnum,$now); + } else { + $reqstatus = 'domainerror'; + $reqhash{'disposition'} = $disposition; + my $warning = &mt('An error occurred saving your request in the pending requests queue.'); + $output = ''.$warning.'
'; + } + } + } + my ($storeresult,$statusresult); + if ($requestkey =~ /^($match_domain)_($match_courseid)$/) { + $storeresult = &Apache::lonnet::store_userdata(\%reqhash,$requestkey, + '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 .= ''.&mt('An error occurred saving a record of the details of your request: [_1].',$storeresult).'
'; + &Apache::lonnet::logthis("Error saving course request - $requestkey for $env{'user.name'}:$env{'user.domain'} - $storeresult"); + } elsif ($statusresult ne 'ok') { + $output .= ''.&mt('An error occurred saving a record of the status of your request: [_1].',$statusresult).'
'; + &Apache::lonnet::logthis("Error saving course request status for $requestkey (for $env{'user.name'}:$env{'user.domain'}) - $statusresult"); + } + if ($modified && $queued && $storeresult eq 'ok') { + $output .= '

'.&mt('Your course request has been updated').'

'. + ¬ification_information($disposition,$req_notifylist,$cnum,$now); + } + if ($validationerror ne '') { + $output .= ''.&mt('An error occurred validating your request with institutional data sources: [_1].',$validationerror).'

'; + } + } + return $output; +} + +sub notification_information { + my ($disposition,$req_notifylist,$cnum,$now) = @_; + my %emails = &Apache::loncommon::getemails(); + my $address; + if (($emails{'permanentemail'} ne '') || ($emails{'notification'} ne '')) { + $address = $emails{'permanentemail'}; + if ($address eq '') { + $address = $emails{'notification'}; + } + } + my $output; + if ($disposition eq 'approval') { + $output .= &mt('A message will be sent to your LON-CAPA account when a domain coordinator takes action on your request.').'
'. + &mt('To access your LON-CAPA message, go to the Main Menu and click on "Send and Receive Messages".').'
'; + if ($address ne '') { + $output.= &mt('An e-mail will also be sent to: [_1] when this occurs.',$address).'
'; + } + if ($req_notifylist) { + my $fullname = &Apache::loncommon::plainname($env{'user.name'}, + $env{'user.domain'}); + my $sender = $env{'user.name'}.':'.$env{'user.domain'}; + &Apache::loncoursequeueadmin::send_selfserve_notification($req_notifylist,"$fullname ($env{'user.name'}:$env{'user.domain'})",$cnum,$env{'form.cdescr'},$now,'coursereq',$sender); + } + } elsif ($disposition eq 'pending') { + $output .= '
'. +&mt('Your request has been placed in a queue pending administrative action.').'
'. +&mt("Usually this means that your institution's information systems do not list you among the instructional personnel for this course.").'
'. +&mt('The list of instructional personnel for the course will be automatically checked daily, and once you are listed the request will be processed.'). + '
'; + } else { + $output .= '
'. + &mt('Your request status is: [_1].',$disposition). + '
' + } + 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 { + my ($uname,$udom,$dom,$crstype,$limit,$message) = @_; + my %crsroles = &Apache::lonnet::get_my_roles($env{'user.name'},$env{'user.domain'}, + 'userroles',['active','future'],['cc'],[$dom]); + my ($types,$typename) = &course_types(); + my %requests = &Apache::lonnet::dumpstore('courserequests',$udom,$uname); + my %count; + if (ref($types) eq 'ARRAY') { + foreach my $type (@{$types}) { + $count{$type} = 0; + } + } + foreach my $key (keys(%requests)) { + my ($cdom,$cnum) = split('_',$key); + if (exists($crsroles{$cnum.':'.$cdom.':cc'})) { + if (ref($requests{$key}) eq 'HASH') { + my $type = $requests{$key}{'crstype'}; + if ($type =~ /^official|unofficial|community$/) { + $count{$type} ++; + } + } + } + } + if ($count{$crstype} < $limit) { + return 'process'; + } else { + 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.').'
'.&mt("Your $typename->{$crstype} limit is [_1].",$limit); + } + return 'rejected'; + } + return; +} + +sub retrieve_settings { + my ($dom,$cnum,$udom,$uname) = @_; + if ($udom eq '' || $uname eq '') { + $udom = $env{'user.domain'}; + $uname = $env{'user.name'}; + } + my ($result,%reqinfo) = &get_request_settings($dom,$cnum,$udom,$uname); + if ($result eq 'ok') { + if (($udom eq $reqinfo{'domain'}) && ($uname eq $reqinfo{'owner'})) { + $env{'form.chome'} = $reqinfo{'coursehome'}; + $env{'form.cdescr'} = $reqinfo{'cdescr'}; + $env{'form.crstype'} = $reqinfo{'crstype'}; + &generate_date_items($reqinfo{'accessstart'},'accessstart'); + &generate_date_items($reqinfo{'accessend'},'accessend'); + if ($reqinfo{'accessend'} == 0) { + $env{'form.no_end_date'} = 1; + } + if (($reqinfo{'crstype'} eq 'official') && (&Apache::lonnet::auto_run('',$dom))) { + &generate_date_items($reqinfo{'enrollstart'},'enrollstart'); + &generate_date_items($reqinfo{'enrollend'},'enrollend'); + } + $env{'form.clonecrs'} = $reqinfo{'clonecrs'}; + $env{'form.clonedom'} = $reqinfo{'clonedom'}; + $env{'form.datemode'} = $reqinfo{'datemode'}; + $env{'form.dateshift'} = $reqinfo{'dateshift'}; + if (($reqinfo{'crstype'} eq 'official') && ($reqinfo{'instcode'} ne '')) { + $env{'form.sectotal'} = $reqinfo{'sectotal'}; + $env{'form.crosslisttotal'} = $reqinfo{'crosslisttotal'}; + $env{'form.autoadds'} = $reqinfo{'autoadds'}; + $env{'form.autdrops'} = $reqinfo{'autodrops'}; + $env{'form.instcode'} = $reqinfo{'instcode'}; + my $crscode = { + $cnum => $reqinfo{'instcode'}, + }; + &extract_instcode($dom,'instcode',$crscode,$cnum); + } + my @currsec; + if (ref($reqinfo{'sections'}) eq 'HASH') { + foreach my $i (sort(keys(%{$reqinfo{'sections'}}))) { + if (ref($reqinfo{'sections'}{$i}) eq 'HASH') { + my $sec = $reqinfo{'sections'}{$i}{'inst'}; + $env{'form.secnum_'.$i} = $sec; + $env{'form.sec_'.$i} = '1'; + if (!grep(/^\Q$sec\E$/,@currsec)) { + push(@currsec,$sec); + } + $env{'form.loncapasec_'.$i} = $reqinfo{'sections'}{$i}{'loncapa'}; + } + } + } + if (ref($reqinfo{'crosslists'}) eq 'HASH') { + foreach my $i (sort(keys(%{$reqinfo{'crosslists'}}))) { + if (ref($reqinfo{'crosslists'}{$i}) eq 'HASH') { + $env{'form.crosslist_'.$i} = '1'; + $env{'form.crosslist_'.$i.'_instsec'} = $reqinfo{'crosslists'}{$i}{'instsec'}; + $env{'form.crosslist_'.$i.'_lcsec'} = $reqinfo{'crosslists'}{$i}{'loncapa'}; + if ($reqinfo{'crosslists'}{$i}{'instcode'} ne '') { + my $key = $cnum.$i; + my $crscode = { + $key => $reqinfo{'crosslists'}{$i}{'instcode'}, + }; + &extract_instcode($dom,'crosslist',$crscode,$key,$i); + } + } + } + } + if (ref($reqinfo{'personnel'}) eq 'HASH') { + my $i = 0; + foreach my $user (sort(keys(%{$reqinfo{'personnel'}}))) { + my ($uname,$udom) = split(':',$user); + if (ref($reqinfo{'personnel'}{$user}) eq 'HASH') { + if (ref($reqinfo{'personnel'}{$user}{'roles'}) eq 'ARRAY') { + foreach my $role (sort(@{$reqinfo{'personnel'}{$user}{'roles'}})) { + $env{'form.person_'.$i.'_role'} = $role; + $env{'form.person_'.$i.'_firstname'} = $reqinfo{'personnel'}{$user}{'firstname'}; + $env{'form.person_'.$i.'_lastname'} = $reqinfo{'personnel'}{$user}{'lastname'}; ; + $env{'form.person_'.$i.'_emailaddr'} = $reqinfo{'personnel'}{$user}{'emailaddr'}; + $env{'form.person_'.$i.'_uname'} = $uname; + $env{'form.person_'.$i.'_dom'} = $udom; + if (ref($reqinfo{'personnel'}{$user}{$role}) eq 'HASH') { + if (ref($reqinfo{'personnel'}{$user}{$role}{'usec'}) eq 'ARRAY') { + my @usecs = @{$reqinfo{'personnel'}{$user}{$role}{'usec'}}; + my @newsecs; + if (@usecs > 0) { + foreach my $sec (@usecs) { + if (grep(/^\Q$sec\E/,@currsec)) { + $env{'form.person_'.$i.'_sec'} = $sec; + } else { + push(@newsecs,$sec); + } + } + } + if (@newsecs > 0) { + $env{'form.person_'.$i.'_newsec'} = join(',',@newsecs); + } + } + } + $i ++; + } + } + } + } + $env{'form.persontotal'} = $i; + } + } + } + return $result; +} + +sub get_request_settings { + my ($dom,$cnum,$udom,$uname) = @_; + my $requestkey = $dom.'_'.$cnum; + my ($result,%reqinfo); + if ($requestkey =~ /^($match_domain)_($match_courseid)$/) { + my %history = &Apache::lonnet::restore($requestkey,'courserequests',$udom,$uname); + my $disposition = $history{'disposition'}; + if (($disposition eq 'approval') || ($disposition eq 'pending')) { + if (ref($history{'details'}) eq 'HASH') { + %reqinfo = %{$history{'details'}}; + $result = 'ok'; + } else { + $result = 'nothash'; + } + } else { + $result = 'notqueued'; + } + } else { + $result = 'invalid'; + } + return ($result,%reqinfo); +} + +sub extract_instcode { + my ($cdom,$element,$crscode,$crskey,$counter) = @_; + my (%codes,@codetitles,%cat_titles,%cat_order); + if (&Apache::lonnet::auto_instcode_format('requests',$cdom,$crscode,\%codes, + \@codetitles,\%cat_titles, + \%cat_order) eq 'ok') { + if (ref($codes{$crskey}) eq 'HASH') { + if (@codetitles > 0) { + my $sel = $element; + if ($element eq 'crosslist') { + $sel .= '_'.$counter; + } + foreach my $title (@codetitles) { + $env{'form.'.$sel.'_'.$title} = $codes{$crskey}{$title}; + } + } + } + } + return; +} + +sub generate_date_items { + my ($currentval,$item) = @_; + if ($currentval =~ /\d+/) { + my ($tzname,$sec,$min,$hour,$mday,$month,$year) = + &Apache::lonhtmlcommon::get_timedates($currentval); + $env{'form.'.$item.'_day'} = $mday; + $env{'form.'.$item.'_month'} = $month+1; + $env{'form.'.$item.'_year'} = $year; + } return; }