# The LearningOnline Network # Request a course # # $Id: lonrequestcourse.pm,v 1.38 2009/10/25 14:48:55 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). # # LON-CAPA is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # LON-CAPA is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with LON-CAPA; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # # /home/httpd/html/adm/gpl.txt # # http://www.lon-capa.org/ # ### =head1 NAME Apache::lonrequestcourse.pm =head1 SYNOPSIS Allows users to request creation of new courses. This is part of the LearningOnline Network with CAPA project described at http://www.lon-capa.org. =head1 SUBROUTINES =over =item handler() =item get_breadcrumbs() =item header() =item form_elements() =item onload_action() =item print_main_menu() =item request_administration() =item close_popup_form() =item get_instcode() =item print_request_form() =item print_enrollment_menu() =item show_invalid_crosslists() =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 retrieve_settings() =item get_request_settings() =item extract_instcode() =item generate_date_items() =back =cut package Apache::lonrequestcourse; use strict; use Apache::Constants qw(:common :http); use Apache::lonnet; use Apache::loncommon; use Apache::lonlocal; use Apache::loncoursequeueadmin; use Apache::lonuserutils; use LONCAPA qw(:DEFAULT :match); sub handler { my ($r) = @_; &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; if ($r->header_only) { return OK; } &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['action','showdom','cnum','state','crstype']); &Apache::lonhtmlcommon::clear_breadcrumbs(); my $dom = &get_course_dom(); my $action = $env{'form.action'}; my $state = $env{'form.state'}; my (%states,%stored); my ($jscript,$uname,$udom,$result,$warning); $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 @invalidcrosslist; 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,$crumb,$newinstcode,$codechk,$checkedcode,$description) = &get_breadcrumbs($dom,$action,\$state,\%states,\%trail); 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'}); } } elsif ($env{'form.crstype'} eq 'official') { if (&Apache::lonnet::auto_run('',$dom)) { if (($action eq 'new') && (($state eq 'enrollment') || ($state eq 'personnel'))) { my $checkcrosslist = 0; for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) { if ($env{'form.crosslist_'.$i}) { $checkcrosslist ++; } } if ($checkcrosslist) { my %codechk; 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) { for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) { if ($env{'form.crosslist_'.$i}) { my $codecheck; my $crosslistcode = ''; foreach my $item (@code_order) { $crosslistcode .= $env{'form.crosslist_'.$i.'_'.$item}; } if ($crosslistcode ne '') { ($codechk{$i}, my $rest) = &Apache::lonnet::auto_validate_instcode('',$dom,$crosslistcode); } unless ($codechk{$i} eq 'valid') { $env{'form.crosslist_'.$i} = ''; push(@invalidcrosslist,$crosslistcode); } } } } } } } } 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; } if ($state eq 'crstype') { $jscript = &mainmenu_javascript(); } else { $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 %can_request; my $canreq = &Apache::lonnet::check_can_request($dom,\%can_request); if ($action eq 'new') { if ($canreq) { if ($state eq 'crstype') { &print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems, $crumb); } else { &request_administration($r,$action,$state,$page,\%states,$dom, $jscript,$loaditems,$crumb,$newinstcode, $codechk,$checkedcode,$description, \@invalidcrosslist); } } else { $r->print(&header('Course Requests').$crumb. '
'. &mt('You do not have privileges to request creation of courses.'). '
'.&Apache::loncommon::end_page()); } } elsif ($action eq 'view') { if ($state eq 'crstype') { &print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems,$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($jscript,$loaditems,$crumb); } else { &print_main_menu($r,\%can_request,\%states,$dom,$jscript,'',$crumb); } return OK; } sub mainmenu_javascript { return <<"END"; function setType(courseForm) { for (var i=0; i{$action}) eq 'ARRAY') { while ($i<@{$states->{$action}} && !$done) { if ($states->{$action}[$i] eq $$state) { $page = $i; $done = 1; } $i++; } } if ($env{'form.crstype'} eq 'official') { if ($page > 1) { if ($states->{$action}[$page-1] eq 'codepick') { if ($env{'form.instcode'} eq '') { ($newinstcode,$numtitles) = &get_instcode($dom); if ($numtitles) { if ($newinstcode eq '') { $$state = 'codepick'; $page --; } else { ($codechk,$description) = &Apache::lonnet::auto_validate_instcode('', $dom,$newinstcode); if ($codechk ne 'valid') { $$state = 'codepick'; $page --; } $checkedcode = 1; } } } } } } 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') || ($$state eq 'removal')) { &Apache::lonhtmlcommon::add_breadcrumb( { href => '/adm/requestcourse', 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'); } } else { &Apache::lonhtmlcommon::add_breadcrumb( {text=>'Pick Action'}); $crumb = &Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests'); } return ($page,$crumb,$newinstcode,$codechk,$checkedcode,$description); } 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', addcrosslist => 'checkbox', autoadds => 'radio', autodrops => 'radio', ); 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'; } } 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')) { if ($state eq 'crstype') { $loaditems{'onload'} = 'javascript:setAction(document.mainmenu_action);javascript:setType(document.mainmenu_coursetype)'; } else { $loaditems{'onload'} = 'javascript:setFormElements(document.requestcrs)'; } } return \%loaditems; } sub print_main_menu { my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb) = @_; my ($types,$typename) = &Apache::loncommon::course_types(); my $onchange; unless ($env{'form.interface'} eq 'textual') { $onchange = 1; } 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 = <<"END"; function nextPage(formname) { var crschoice = document.mainmenu_coursetype.crstype.value; var actionchoice = document.mainmenu_action.action.value; if (check_can_request(crschoice,actionchoice) == true) { if ((actionchoice == 'new') && (crschoice == 'official')) { nextstate = 'codepick'; } else { $nextstate_setter } formname.crstype.value = crschoice; formname.action.value = actionchoice; formname.state.value= nextstate; formname.submit(); } return; } function check_can_request(crschoice,actionchoice) { var official = ''; var unofficial = ''; var community = ''; END foreach my $item (keys(%{$can_request})) { $js .= " $item = 1; "; } my %lt = &Apache::lonlocal::texthash( 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.', 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.', ); $js .= <print(&header('Course Requests',$js.$jscript,$loaditems).$crumb. '

'.&mt('Request creation of a new course, or review your pending course requests.').'

'. '
'. &Apache::lonhtmlcommon::start_pick_box(). &Apache::lonhtmlcommon::row_title(&mt('Course Domain')). '
'. &Apache::loncommon::select_dom_form($dom,'showdom','',1,$onchange)); if (!$onchange) { $r->print(' '); } $r->print('
'.&Apache::lonhtmlcommon::row_closure()); my $formname = 'requestcrs'; my $nexttext = &mt('Next'); $r->print(&Apache::lonhtmlcommon::row_title(&mt('Action')).'
'. &Apache::lonhtmlcommon::row_closure(1). &Apache::lonhtmlcommon::row_title(&mt('Course Type')).'
'."\n". &Apache::lonhtmlcommon::row_closure(1)."\n". &Apache::lonhtmlcommon::end_pick_box().'
'."\n". '
'."\n". ''."\n". ''."\n". ''."\n". ''."\n". ''."\n". '
'); $r->print(&Apache::loncommon::end_page()); return; } sub request_administration { my ($r,$action,$state,$page,$states,$dom,$jscript,$loaditems,$crumb, $newinstcode,$codechk,$checkedcode,$description,$invalidcrosslist, $uname,$udom) = @_; my $js; if (($action eq 'new') || (($action eq 'view') && ($state eq 'pick_request'))) { $js = <print(&header('Request a course',$js.$jscript,$loaditems,$jsextra).$crumb); &print_request_form($r,$action,$state,$page,$states,$dom,$newinstcode, $codechk,$checkedcode,$description,$invalidcrosslist); } 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(&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,$dom,$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,$dom,$formname,$prev,$navtxt{'prev'},$next, $navtxt{'next'},$state); } else { &display_navbuttons($r,$dom,$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('View request log',$jscript,$loaditems).$crumb); } $r->print(&Apache::loncommon::end_page()); return; } sub enrollment_lcsec_js { my %alerts = §ion_check_alerts(); my $secname = $alerts{'badsec'}; my $secnone = $alerts{'reserved'}; my $output = ' function validateEnrollSections(formname,nextstate) { var badsectotal = 0; var reservedtotal = 0; var secTest = ""; '; for (my $i=0; $i<$env{'form.sectotal'}; $i++) { $output .= " var selSec = 0; for (var j=0; j "You need to change one or more LON-CAPA section names - none is a reserved word in the system, and may not be used.", badsec => 'You need to change one or more LON-CAPA section names - names may only contain letters or numbers.', separate => 'Separate multiple sections with a comma.' ); return %lt; } sub section_check_javascript { return <<"END"; function validsection(field,mult) { var str = field.value; var badsec=0; var reserved=0; if (window.RegExp) { var badsecnum=0; var reservednum=0; var pattern=/[^a-zA-Z0-9]/; str = str.replace(/(^\\s*)|(\\s*\$)/gi,""); str = str.replace(/[ ]{2,}/gi," "); if (mult == '1') { var sections = new Array(); sections = str.split(/\\s*[\\s,;:]\\s*/); var i; for (i=0; i 0) { return 'badsec'; } if (reservednum > 0) { return 'reserved'; } } return; } END } sub close_popup_form { my $close= &mt('Close Window'); return << "END";

END } sub get_instcode { my ($dom) = @_; my ($instcode,$numtitles); my (@codetitles,%cat_titles,%cat_order,@code_order,$instcode,$code_chk); &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, \%cat_order,\@code_order); $numtitles = scalar(@codetitles); if (@code_order > 0) { my $message; foreach my $item (@code_order) { $instcode .= $env{'form.instcode_'.$item}; } } return ($instcode,$numtitles); } sub print_request_form { my ($r,$action,$state,$page,$states,$dom,$newinstcode,$codechk,$checkedcode, $description,$invalidcrosslist) = @_; my $formname = 'requestcrs'; 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 (@codetitles,%cat_titles,%cat_order,@code_order,$instcode,$code_chk, @disallowed); if ($crstype eq 'official') { if ($env{'form.instcode'} ne '') { $instcode = $env{'form.instcode'}; } elsif ($newinstcode ne '') { $instcode = $newinstcode; } if ($checkedcode) { if ($codechk eq 'valid') { $message = '
'. &mt('The chosen course category [_1] is valid.',''. $instcode.''). '
'; } else { $message = '
'. &mt('No course was found matching your choice of institutional course category.'); if ($codechk ne '') { $message .= '
'.$codechk; } $message .= '
'; $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); } if (@code_order > 0) { $codepicker = &coursecode_form($dom,'instcode',\@codetitles, \%cat_titles,\%cat_order); if ($codepicker) { $r->print(&mt('Specify the course to be created.'). '
'.&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 ($instcode eq '') { $prev = $states->{$action}[$page-2]; } $r->print(&courseinfo_form($dom,$formname,$crstype,$next,$description)); } 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, $invalidcrosslist)); } elsif ($state eq 'personnel') { $r->print(&print_personnel_menu($dom,$formname,$crstype,$invalidcrosslist)); } elsif ($state eq 'review') { my (%alerts,%rulematch,%inst_results,%curr_rules,%got_rules,%disallowmsg); my $now = time; for (my $i=0; $i<$env{'form.persontotal'}; $i++) { my $personname = $env{'form.person_'.$i.'_uname'}; my $persondom = $env{'form.person_'.$i.'_dom'}; if (($personname =~ /^$match_username$/) && ($persondom =~ /^$match_domain$/)) { if (&Apache::lonnet::domain($persondom)) { my $personhome = &Apache::lonnet::homeserver($personname,$persondom); if ($personhome eq 'no_host') { if ($persondom ne $dom) { my $skipuser = 1; if ($env{'user.role.dc./'.$persondom.'/'}) { my ($start,$end) = split('.',$env{'user.role.dc./'.$persondom.'/'}); if (((!$start) || ($start < $now)) && ((!$end) || ($end > $now))) { $skipuser = 0; } } if ($skipuser) { push(@disallowed,$i); $disallowmsg{$i} = &mt('[_1] was excluded because new users need be from the course domain',''.$personname.':'.$persondom.''); next; } } if (&get_cancreate_status($persondom,$personname,$dom)) { my ($allowed,$msg) = &check_newuser_rules($persondom,$personname, \%alerts,\%rulematch,\%inst_results, \%curr_rules,\%got_rules); if ($allowed) { if (ref($inst_results{$personname.':'.$persondom}) eq 'HASH') { if ($inst_results{$personname.':'.$persondom}{'lastname'} ne '') { $env{'form.person_'.$i.'_lastname'} = $inst_results{$personname.':'.$persondom}{'lastname'}; } if ($inst_results{$personname.':'.$persondom}{'firstname'} ne '') { $env{'form.person_'.$i.'_firstname'} = $inst_results{$personname.':'.$persondom}{'firstname'}; } if ($inst_results{$personname.':'.$persondom}{'permanentemail'} ne '') { $env{'form.person_'.$i.'_emailaddr'} = $inst_results{$personname.':'.$persondom}{'permanentemail'}; } } } else { push(@disallowed,$i); $disallowmsg{$i} = &mt('[_1] was excluded because the username violated format rules for the domain',''.$personname.':'.$persondom.''); } } else { push(@disallowed,$i); $disallowmsg{$i} = &mt('[_1] was excluded because you may not request new users in the domain',''.$personname.':'.$persondom.''); } } else { my %userenv = &Apache::lonnet::userenvironment($persondom,$personname,'lastname','firstname','permanentemail'); if ($env{'form.person_'.$i.'_lastname'} eq '') { $env{'form.person_'.$i.'_lastname'} = $userenv{'lastname'}; } if ($env{'form.person_'.$i.'_firstname'} eq '') { $env{'form.person_'.$i.'_firstname'} = $userenv{'firstname'}; } if ($env{'form.person_'.$i.'_emailaddr'} eq '') { $env{'form.person_'.$i.'_emailaddr'} = $userenv{'permanentemail'}; } } } elsif ($personname ne '') { push(@disallowed,$i); $disallowmsg{$i} = &mt('[_1] was excluded because the domain is invalid',''.$personname.':'.$persondom.''); } } elsif ($personname ne '') { push(@disallowed,$i); $disallowmsg{$i} = &mt('[_1] was excluded because the username or domain is invalid.',''.$personname.':'.$persondom.''); } } 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 course request details before submission').'

'. &print_review($dom,\@codetitles,\%cat_titles,\%cat_order,\@code_order,'','',\@disallowed,\%disallowmsg). ''); $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 ($storeresult,$result) = &print_request_outcome($dom,\@codetitles, \@code_order); $r->print($result); if (($storeresult eq 'ok') || ($storeresult eq 'created')) { $r->print('

'); if ($storeresult eq 'ok') { $r->print(''. &mt('Modify this request').''.(' 'x4)); } $r->print(''.&mt('Make another request').'

'); return; } } my @excluded = &get_excluded_elements($dom,$states,$action,$state); if ($state eq 'personnel') { push(@excluded,'persontotal'); } if ($state eq 'review') { if (@disallowed > 0) { my @items = qw(uname dom lastname firstname emailaddr hidedom role newsec); my @currsecs = ¤t_lc_sections(); if (@currsecs) { push(@items,'sec'); } my $count = 0; for (my $i=0; $i<$env{'form.persontotal'}; $i++) { unless ($env{'form.person_'.$i.'_uname'} eq '') { if (grep(/^$i$/,@disallowed)) { foreach my $item (@items) { $env{'form.person_'.$i.'_'.$item} = ''; } } else { foreach my $item (@items) { $env{'form.person_'.$count.'_'.$item} = $env{'form.person_'.$i.'_'.$item}; } } } $count ++; } $env{'form.persontotal'} = $count; } } if ($state eq 'enrollment') { push(@excluded,'crosslisttotal'); } $r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'
'); &display_navbuttons($r,$dom,$formname,$prev,$navtxt{'prev'},$next, $navtxt{'next'},$state); return; } sub get_cancreate_status { my ($persondom,$personname,$dom) = @_; my ($rules,$ruleorder) = &Apache::lonnet::inst_userrules($persondom,'username'); my $usertype = &Apache::lonuserutils::check_usertype($persondom,$personname, $rules); return &Apache::lonuserutils::can_create_user($dom,'requestcrs',$usertype); } sub check_newuser_rules { my ($persondom,$personname,$alerts,$rulematch,$inst_results,$curr_rules, $got_rules) = @_; my $allowed = 1; my $newuser = 1; my ($checkhash,$userchkmsg); my $checks = { 'username' => 1 }; $checkhash->{$personname.':'.$persondom} = { 'newuser' => $newuser }; &Apache::loncommon::user_rule_check($checkhash,$checks,$alerts,$rulematch, $inst_results,$curr_rules,$got_rules); if (ref($alerts->{'username'}) eq 'HASH') { if (ref($alerts->{'username'}{$persondom}) eq 'HASH') { my $domdesc = &Apache::lonnet::domain($persondom,'description'); if ($alerts->{'username'}{$persondom}{$personname}) { if (ref($curr_rules->{$persondom}) eq 'HASH') { $userchkmsg = &Apache::loncommon::instrule_disallow_msg('username', $domdesc,1). &Apache::loncommon::user_rule_formats($persondom, $domdesc,$curr_rules->{$persondom}{'username'}, 'username'); } $allowed = 0; } } } return ($allowed,$userchkmsg); } 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, $invalidcrosslist) =@_; my ($sections,$autoenroll,$access_dates,$output,$hasauto); 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)) { $output = &show_invalid_crosslists($invalidcrosslist); my ($section_form,$crosslist_form); $section_form = &inst_section_selector($dom,$instcode); if ($section_form) { $sections = &Apache::lonhtmlcommon::row_headline(). '

'.&Apache::loncommon::help_open_topic('Course_Request_Sections'). ' '.&mt('Sections for auto-enrollment').'

'. &Apache::lonhtmlcommon::row_closure(1). $section_form; } 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(); $sections .= &Apache::lonhtmlcommon::row_headline. '

'.&mt('Crosslisted courses for auto-enrollment').'

'. &Apache::lonhtmlcommon::row_closure(1). $crosslist_form; } $hasauto = 1; $autoenroll = &Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic('Course_Request_Autoadd').' '.&mt('Add registered students automatically')). ''.(' 'x3).''. &Apache::lonhtmlcommon::row_closure(1). &Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic('Course_Request_Autodrop').' '.&mt('Drop unregistered students automatically')). ''.(' 'x3).''. &Apache::lonhtmlcommon::row_closure(1). &date_setting_table($starttime,$endtime,$formname,'enroll', $hasauto,%enrolltitles); } } my $access_dates = &date_setting_table($starttime,$endtime,$formname,'access',$hasauto, %accesstitles); $output .= &Apache::lonhtmlcommon::start_pick_box(); if ($sections) { $output .= $sections; } if ($autoenroll) { $output .= &Apache::lonhtmlcommon::row_headline('Auto-enroll'). '

'.&mt('Auto-enrollment settings').'

'. &Apache::lonhtmlcommon::row_closure(1). $autoenroll; } if ($access_dates) { my $header = &mt('Access dates for students'); if ($env{'form.crstype'} eq 'community') { $header = &mt('Access dates for community members'); } $output .= &Apache::lonhtmlcommon::row_headline('Access'). '

'.$header.'

'. &Apache::lonhtmlcommon::row_closure(1). $access_dates } return '
'.&Apache::lonhtmlcommon::start_pick_box().$output. &Apache::lonhtmlcommon::end_pick_box().'
'; } sub show_invalid_crosslists { my ($invalidcrosslist) = @_; my $output; if (ref($invalidcrosslist) eq 'ARRAY') { if (@{$invalidcrosslist} > 0) { $output = '
'. &mt('The following crosslisted courses were invalid:').'
    '; foreach my $item (@{$invalidcrosslist}) { $output .= '
  • '.$item.'
    • '; } $output .= '

'; } } return $output; } sub inst_section_selector { my ($dom,$instcode) = @_; my @sections = &Apache::lonnet::auto_get_sections(undef,$dom,$instcode); my $sectotal = scalar(@sections); my $output; if ($sectotal) { $output .= &Apache::lonhtmlcommon::row_title(&mt('Sections of [_1]',$instcode)). &Apache::loncommon::start_data_table(). &Apache::loncommon::start_data_table_row(). ''.&mt('Include?').''. ''.&mt('Institutional Section').''. ''.&Apache::loncommon::help_open_topic('Course_Request_LCSection'). ' '.&mt('LON-CAPA section').''. &Apache::loncommon::end_data_table_row(); for (my $i=0; $i<@sections; $i++) { my $colflag = $i%2; my $secon = ' checked="checked"'; my $secoff = ''; if ($env{'form.origcnum'}) { $secoff = $secon; $secon=''; } $output .= &Apache::loncommon::start_data_table_row(). ''. (' 'x2).''. ''.$sections[$i]. ''. ''. &Apache::loncommon::end_data_table_row(); } $output .= &Apache::loncommon::end_data_table(). &Apache::lonhtmlcommon::row_closure(); } return $output; } sub date_setting_table { my ($starttime,$endtime,$formname,$prefix,$hasauto,%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); my $closure = ''; if ($prefix eq 'access') { $perpetual = ' '; $closure = '1'; } my %help_item = ( access => { start => 'Course_Request_Access_Start', end => 'Course_Request_Access_End', }, enroll => { start => 'Course_Request_Enroll_Start', end => 'Course_Request_Enroll_End', }, ); if ($hasauto) { $help_item{'access'}{'start'} = 'Course_Request_RegAccess_Start'; $help_item{'access'}{'end'} = 'Course_Request_RegAccess_End'; } $table = &Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic($help_item{$prefix}{'start'}). ' '.$datetitles{'start'}).$startform. &Apache::lonhtmlcommon::row_closure(1). &Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic($help_item{$prefix}{'end'}). ' '.$datetitles{'end'}).$endform.$perpetual. &Apache::lonhtmlcommon::row_closure($closure); return $table; } sub print_personnel_menu { my ($dom,$formname,$crstype,$invalidcrosslist) = @_; my $output; if ($crstype eq 'official') { if (&Apache::lonnet::auto_run('',$dom)) { $output .= &show_invalid_crosslists($invalidcrosslist); } } $output .= '
'.&Apache::lonhtmlcommon::start_pick_box(); my $persontotal = $env{'form.persontotal'}; if ((!defined($persontotal)) || (!$persontotal)) { $persontotal = 1; } if ($env{'form.addperson'}) { $persontotal ++; } 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/$env{'user.domain'}/$env{'user.name'}/$cust"; $roleoptions .= ' '."\n"; } } my @currsecs = ¤t_lc_sections(); 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').': '; } if ($persontotal) { my %lt = &Apache::lonlocal::texthash( community => 'Requestor is automatically assigned Coordinator role.', official => 'Requestor is automatically assigned Course Coordinator role.', ); $lt{'unofficial'} = $lt{'official'}; $output .= &Apache::lonhtmlcommon::row_headline(). '

'.&Apache::loncommon::help_open_topic('Course_Request_Personnel').' '.$lt{$crstype}.' '.&mt('Include other personnel?').'

'; } for (my $i=0; $i<$persontotal; $i++) { my @linkargs = map { 'person_'.$i.'_'.$_ } (@items); my $linkargstr = join("','",@linkargs); my $uname_form = ''; my $onchange = 'javascript:fix_domain('."'$formname','person_".$i."_dom',". "'person_".$i."_hidedom','person_".$i."_uname'".');'; 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"; my $usersrchlinktxt = &mt('Search for user'); my $usersrchlink = &Apache::loncommon::selectuser_link($formname,@linkargs,$dom, $usersrchlinktxt); my $userchklinktxt = &mt('Check username'); my $userchklink = &Apache::loncommon::selectuser_link($formname,@linkargs,$dom, $userchklinktxt,'checkusername'); $output .= &Apache::lonhtmlcommon::row_title(&mt('Additional Personnel')). ''."\n". ''. ''."\n".''. ''."\n". ''."\n". ''."\n". ''."\n". ''. &Apache::loncommon::help_open_topic('Course_Request_Rolesection').' '.&mt('LON-CAPA Section(s)').'
'.$sectionselector.''."\n". '
'.$usersrchlink.''. &mt('Username').': '.$uname_form.' '.$userchklink.'
'."\n". ''.&mt('Domain').': '.$udom_form.'
'.&mt('First Name').'
'.$form_elems{'firstname'}.'		'.&mt('Last Name').'
'.$form_elems{'lastname'}.'		'.&mt('E-mail').'
'.$form_elems{'emailaddr'}.'
'.&Apache::loncommon::help_open_topic('Course_Roles').' '.&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().'
'. '

'.&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".').'

'; return $output; } sub current_lc_sections { my @currsecs; if ($env{'form.sectotal'}) { for (my $i=0; $i<$env{'form.sectotal'}; $i++) { if ($env{'form.sec_'.$i}) { if (defined($env{'form.loncapasec_'.$i})) { my $lcsec = $env{'form.loncapasec_'.$i}; unless (grep(/^\Q$lcsec\E$/,@currsecs)) { push(@currsecs,$lcsec); } } } } } return @currsecs; } 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); my ($types,$typenames) = &Apache::loncommon::course_types(); 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; if (ref($typenames) eq 'HASH') { $typename = &mt($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) = &Apache::loncommon::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 ($dom,$codetitles,$cat_titles,$cat_order,$code_order,$uname,$udom, $disallowed,$disallowmsg) = @_; my ($types,$typename) = &Apache::loncommon::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 = &mt($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 '') { if (ref($disallowed) eq 'ARRAY') { next if (grep(/^$i$/,@{$disallowed})); } my @officialsecs = &Apache::loncommon::get_env_multiple('form.person_'.$i.'_sec'); my @allsecs; foreach my $sec (@officialsecs) { next unless ($sec =~ /\w/); next if ($sec =~ /\W/); next if ($sec eq 'none'); push(@allsecs,$sec); } my $newsec = $env{'form.person_'.$i.'_newsec'}; $newsec =~ s/^\s+//; $newsec =~s/\s+$//; my @newsecs = split(/\s*[\s,;:]\s*/,$newsec); foreach my $sec (@newsecs) { next unless ($sec =~ /\w/); next if ($sec =~ /\W/); next if ($sec 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'); } my $role = $env{'form.person_'.$i.'_role'}; $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($role,$container).''. ''.$showsec.''; } } my $output; if (ref($disallowed) eq 'ARRAY') { if (@{$disallowed} > 0) { if (ref($disallowmsg) eq 'HASH') { $output = '

'. &mt('Not all requested personnel could be included.').'

    '; foreach my $item (@{$disallowed}) { $output .= '
  • '.$disallowmsg->{$item}.'
    • '; } $output .= '

'; } } } $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 ($dom,$formname,$crstype,$next,$description) = @_; my %lt = &Apache::lonlocal::texthash( official => 'You must provide a (brief) course description.', community => 'You must provide a (brief) community description.' ); $lt{'unofficial'} = $lt{'official'}; my $js_validate = <<"ENDJS"; ENDJS my $title = &mt('Brief Course Description'); if ($crstype eq 'community') { $title = &mt('Brief Community Description'); } my $output .= $js_validate."\n".'
'.&Apache::lonhtmlcommon::start_pick_box(). &Apache::lonhtmlcommon::row_headline(). '

'.&Apache::loncommon::help_open_topic('Course_Request_Description').' '.$title.'

'. &Apache::lonhtmlcommon::row_closure(1). &Apache::lonhtmlcommon::row_title(&mt('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(). &Apache::lonhtmlcommon::row_headline(). '

'.&Apache::loncommon::help_open_topic('Course_Request_Clone').' '.&mt('Clone content and settings from an existing course?').'

'. &Apache::lonhtmlcommon::row_closure(1). &clone_form($dom,$formname,$crstype). &Apache::lonhtmlcommon::end_pick_box().'
'."\n"; return $output; } sub clone_form { my ($dom,$formname,$crstype) = @_; my $type = 'Course'; if ($crstype eq '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 $output .= &Apache::lonhtmlcommon::row_title($lt{'cid'}).''.&Apache::lonhtmlcommon::row_closure(1). &Apache::lonhtmlcommon::row_title($lt{'dmn'}).''.&Apache::lonhtmlcommon::row_closure(1). &Apache::lonhtmlcommon::row_title($lt{'dsh'}).'

'. ''. &Apache::lonhtmlcommon::row_closure(1); 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,$num) = @_; my $output; my %rowtitle = ( instcode => 'Course Category', crosslist => 'Cross Listed Course', ); my %helpitem = ( instcode => 'Course_Request_Category', crosslist => 'Course_Request_Crosslist', ); 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 $lastinput = ''; if (@{$codetitles} > 0) { $output = &Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic($helpitem{$context}).' '.$rowtitle{$context}). ''; if ($context eq 'crosslist') { $output .= ''; } foreach my $title (@{$codetitles}) { if (ref($cat_order->{$title}) eq 'ARRAY') { if (@{$cat_order->{$title}} > 0) { $output .= ''."\n"; } } if ($context eq 'crosslist') { $output .= ''. '
'.&mt('Include?').'
'. '		'.$title.'
'."\n". '		'.$lastitem.'
'."\n". $lastinput.'		'.$instsec.''.$lcsec.'
'; } else { $output .= ''. &Apache::lonhtmlcommon::row_closure(). &Apache::lonhtmlcommon::row_title('Course '.$lastitem). $lastinput; } } else { if ($context eq 'crosslist') { $output .= &Apache::lonhtmlcommon::row_title($rowtitle{$context}). ''. ''. ''. '
'.$lastitem.'
'.$lastinput.'		'.$instsec.''.$lcsec.'
'; } else { $output .= &Apache::lonhtmlcommon::row_title('Course '.$lastitem). $lastinput; } } $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; } 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) = &Apache::loncommon::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'}; } } return $codedom; } sub display_navbuttons { my ($r,$dom,$formname,$prev,$prevtext,$next,$nexttext,$state,$other,$othertext) = @_; $r->print('
'); if ($prev) { $r->print(''. (' 'x3)); } elsif ($prevtext) { $r->print(''.(' 'x3)); } if ($state eq 'details') { $r->print(' '); } my $gotnext; if ($state eq 'courseinfo') { $r->print(''); $gotnext = 1; } elsif ($state eq 'enrollment') { if (($env{'form.crstype'} eq 'official') && (&Apache::lonnet::auto_run('',$dom))) { $r->print(''); $gotnext = 1; } } elsif ($state eq 'personnel') { if ($env{'form.persontotal'} > 0) { $r->print(''); $gotnext = 1; } } unless ($gotnext) { if ($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 @allsecs; foreach my $sec (@currsec) { next unless ($sec =~ /\w/); next if ($sec =~ /\W/); next if ($sec eq 'none'); push(@allsecs,$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 ($sec eq 'none'); if ($sec ne '') { unless (grep(/^\Q$sec\E$/,@allsecs)) { push(@allsecs,$sec); } } } @{$personnel{$uname.':'.$udom}{$role}{'usec'}} = @allsecs; } } } 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,$storeresult,$creationresult); 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); } $storeresult = 'notpermitted'; } 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.'
'; } $storeresult = 'rejected'; } 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'; my $role_result = &update_requestors_roles($dom,$cnum,$crstype,$details, \%longroles); $output = '

'.&mt('Your course request has been processed and the course has been created.'). '
'.$role_result.'

'; $creationresult = 'created'; } 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.'). ''; $creationresult = 'error'; } } 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 ($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).'

'; } } if ($creationresult ne '') { return ($creationresult,$output); } else { return ($storeresult,$output); } } sub update_requestors_roles { my ($dom,$cnum,$crstype,$details,$longroles) = @_; my $now = time; my ($active,$future,$numactive,$numfuture,$output); my $owner = $env{'user.name'}.':'.$env{'user.domain'}; if (ref($details) eq 'HASH') { if (ref($details->{'personnel'}) eq 'HASH') { unless (ref($details->{'personnel'}{$owner}) eq 'HASH') { $details->{'personnel'}{$owner} = { 'roles' => ['cc'], 'cc' => { 'usec' => [] }, }; } my @roles; if (ref($details->{'personnel'}{$owner}{'roles'}) eq 'ARRAY') { @roles = sort(@{$details->{'personnel'}{$owner}{'roles'}}); unless (grep(/^cc$/,@roles)) { push(@roles,'cc'); } } else { @roles = ('cc'); } foreach my $role (@roles) { my $start = $now; my $end = '0'; if ($role eq 'st') { if ($details->{'accessstart'} ne '') { $start = $details->{'accessstart'}; } if ($details->{'accessend'} ne '') { $end = $details->{'accessend'}; } } my @usecs; if ($role ne 'cc') { if (ref($details->{'personnel'}{$owner}{$role}{'usec'}) eq 'ARRAY') { @usecs = @{$details->{'personnel'}{$owner}{$role}{'usec'}}; } } if ($role eq 'st') { if (@usecs > 1) { my $firstsec = $usecs[0]; @usecs = ($firstsec); } } if (@usecs == 0) { push(@usecs,''); } foreach my $usec (@usecs) { my (%userroles,%newrole,%newgroups,$spec,$area); my $area = '/'.$dom.'/'.$cnum; my $spec = $role.'.'.$area; if ($usec ne '') { $spec .= '/'.$usec; $area .= '/'.$usec; } if ($role =~ /^cr\//) { &Apache::lonnet::custom_roleprivs(\%newrole,$role,$dom, $cnum,$spec,$area); } else { &Apache::lonnet::standard_roleprivs(\%newrole,$role,$dom, $spec,$cnum,$area); } &Apache::lonnet::set_userprivs(\%userroles,\%newrole, \%newgroups); $userroles{'user.role.'.$spec} = $start.'.'.$end; &Apache::lonnet::appenv(\%userroles,[$role,'cm']); if (($end == 0) || ($end > $now)) { my $showrole = $role; if ($role =~ /^cr\//) { $showrole = &Apache::lonnet::plaintext($role,$crstype); } elsif (ref($longroles) eq 'HASH') { if ($longroles->{$role} ne '') { $showrole = $longroles->{$role}; } } if ($start <= $now) { $active .= '
  • '.$showrole; if ($usec ne '') { $active .= ' - '.&mt('section:').' '.$usec; } $active .= '
    • '; $numactive ++; } else { $future .= '
  • '.$showrole; if ($usec ne '') { $future .= ' - '.&mt('section:').' '.$usec; } $future .= '
    • '; $numfuture ++; } } } } } } if ($active) { if ($numactive == 1) { $output = &mt('Use the following link to enter the course:'); } else { $output = &mt('Use the following links to your new roles to enter the course:'); } $output .= '
      '.$active.'

    '; } 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,'','',&Apache::lonlocal::locallocaltime($details->{'accessstart'})). '
      '.$future.'
    '; } 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) = &Apache::loncommon::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; } 1;