# The LearningOnline Network # Request a course # # $Id: lonrequestcourse.pm,v 1.41.2.5 2010/02/25 05:01:25 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 ($dom eq 'gcitest') { $states{'new'} = ['courseinfo','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 => '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 ($dom eq 'gcitest') { $trail{'crstype'} = 'Building a Test'; $trail{'courseinfo'} = 'Test Information'; } 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 { if ($env{'form.crstype'} eq 'community') { $warning = &mt('Invalid username or domain for community requestor'); } else { $warning = &mt('Invalid username or domain for course requestor'); } } } else { if ($env{'form.crstype'} eq 'community') { $warning = &mt('No information was found for this community request.'); } else { $warning = &mt('No information was found for this course request.'); } } } else { $warning = &mt('No course request ID provided.'); } } else { if ($env{'form.crstype'} eq 'any') { $warning = &mt('You do not have rights to view course or community request information.'); } elsif ($env{'form.crstype'} eq 'community') { $warning = &mt('You do not have rights to view community request information.'); } else { $warning = &mt('You do not have rights to view course request information.'); } } } elsif ((defined($state)) && (defined($action))) { 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,%request_domains); my $canreq = &Apache::lonnet::check_can_request($dom,\%can_request,\%request_domains); if ($action eq 'new') { if ($canreq) { if ($state eq 'crstype') { &print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems, $crumb,\%request_domains); } else { &request_administration($r,$action,$state,$page,\%states,$dom, $jscript,$loaditems,$crumb,$newinstcode, $codechk,$checkedcode,$description, \@invalidcrosslist); } } else { $r->print(&header('Course/Community Requests').$crumb. '
'. &mt('You do not have privileges to request creation of courses or communities.'). '
'.&Apache::loncommon::end_page()); } } elsif ($action eq 'view') { if ($state eq 'crstype') { &print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems,$crumb,\%request_domains); } 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/Community Requests','','',$args).$crumb. '

'.&mt('Course/Community 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,\%request_domains); } 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($crumbtitle,$crumbhelp); 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=>$firstcrumb}); $crumb = &Apache::lonhtmlcommon::breadcrumbs($crumbtitle,$crumbhelp); } } else { &Apache::lonhtmlcommon::add_breadcrumb( {text=>$firstcrumb}); $crumb = &Apache::lonhtmlcommon::breadcrumbs($crumbtitle,$crumbhelp); } 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'); if ($dom eq 'gcitest') { %{$elements{'new'}{'courseinfo'}} = ( cdescr => 'text', concepttest => 'radio', ); } my $numlib = keys(%servers); if ($numlib > 1) { $elements{'new'}{'courseinfo'}{'chome'} = 'selectbox'; } else { $elements{'new'}{'courseinfo'}{'chome'} = 'hidden'; } if ($dom eq 'gcitest') { my %mergedhash = (%{$elements{'new'}{'courseinfo'}},%{$elements{'new'}{'enrollment'}}); %{$elements{'new'}{'courseinfo'}} = %mergedhash; } 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)'; } if (($state eq 'process') && ($env{'form.concepttest'} eq 'editmyown')) { $loaditems{'onload'} = 'javascript:setInitialVisibility()'; } } return \%loaditems; } sub print_main_menu { my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb,$request_domains) = @_; my ($types,$typename) = &Apache::loncommon::course_types(); my $onchange; unless ($env{'form.interface'} eq 'textual') { $onchange = 'this.form.submit()'; } 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; unless ($dom eq 'gcitest') { $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 if (ref($can_request) eq 'HASH') { 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 .= <{'official'}) || ($can_request->{'unofficial'})) { if ($can_request->{'community'}) { $pagetitle = 'Course/Community Requests'; $pageinfo = &mt('Request creation of a new course or community, or review your pending requests.'); $domaintitle = &mt('Course/Community Domain'); } else { $pagetitle = 'Course Requests'; $pageinfo = &mt('Request creation of a new course, or review your pending course requests.'); $domaintitle = &mt('Course Domain'); } } elsif ($can_request->{'community'}) { $pagetitle = 'Community Requests'; $pageinfo = &mt('Request creation of a new course, or review your pending requests.'); $domaintitle = &mt('Community Domain'); } else { $pagetitle = 'Course/Community Requests'; $pageinfo = &mt('You do not have rights to request creation of courses in this domain; please choose a different domain.'); $domaintitle = &mt('Course/Community Domain'); } } if ($dom eq 'gcitest') { my $formname = 'requestcrs'; my $nexttext = &mt('Continue'); $r->print(&header($pagetitle,$js.$jscript,$loaditems).$crumb. '

'.&mt('Deployment of a Concept Test requires completion of the following three steps:').'

    '. '
  1. '.&mt('Creation of a course "container" and setting of access dates').'
    2. '. '
  2. '.&mt('Assembly of a valid test from Concept Inventory questions').'
    3. '. '
  3. '.&mt('Enrollment of students').'
    4. '. '

'.&mt('When assembling a test you may either:'). '
'.&mt('(a) have a valid test built automatically by the WebCenter, or').'
'.&mt('(b) select the questions to include by combining questions chosen from eleven bins with four mandatory questions.').'

'.&mt('The most efficient way to enroll students is to upload a text file containing usernames and passwords.').'
'.&mt("Students' full e-mail addresses should be used as their usernames to ensure uniqueness.").'

'. '
'."\n". ''."\n". ''."\n". ''."\n". ''."\n". ''."\n". '
'. &Apache::loncommon::end_page()); return; } if (!$onchange) { $r->print(' '); } unless ((ref($can_request) eq 'HASH') && (keys(%{$can_request}) > 0)) { $r->print(&Apache::lonhtmlcommon::row_closure(1)."\n". &Apache::lonhtmlcommon::end_pick_box().''."\n". &Apache::loncommon::end_page()); return; } my @incdoms; if (ref($request_domains) eq 'HASH') { foreach my $item (keys(%{$request_domains})) { if (ref($request_domains->{$item}) eq 'ARRAY') { foreach my $possdom (@{$request_domains->{$item}}) { unless(grep(/^\Q$possdom\E$/,@incdoms)) { push(@incdoms,$possdom); } } } } } $r->print(&header($pagetitle,$js.$jscript,$loaditems).$crumb. '

'.$pageinfo.'

'. '
'. &Apache::lonhtmlcommon::start_pick_box(). &Apache::lonhtmlcommon::row_title($domaintitle). '
'. &Apache::loncommon::select_dom_form($dom,'showdom','',1,$onchange,\@incdoms)); if (!$onchange) { $r->print(' '); } unless ((ref($can_request) eq 'HASH') && (keys(%{$can_request}) > 0)) { $r->print(&Apache::lonhtmlcommon::row_closure(1)."\n". &Apache::lonhtmlcommon::end_pick_box().'
'."\n". &Apache::loncommon::end_page()); return; } $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('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($title,$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); } my $title; if ($env{'form.crstype'} eq 'community') { $title = 'Manage community requests'; } else { $title = 'Manage course requests'; } $r->print(&header($title,$js.$jscript.$jsextra,$loaditems).$crumb); my $form = '
'; if ($state eq 'pick_request') { my $title; if ($env{'form.crstype'} eq 'community') { $title = &mt('Pending community requests'); } elsif ($env{'form.crstype'} eq 'official') { $title = &mt('Pending requests for official courses'); } elsif ($env{'form.crstype'} eq 'unofficial') { $title = &mt('Pending requests for unofficial courses'); } else { $title = &mt('Pending course/community requests'); } $r->print('

'.$title.'

'."\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); } my $title; if ($env{'form.crstype'} eq 'community') { $title = &mt('Community Request Details'); } else { $title = &mt('Course Request Details'); } $r->print('

'.$title.'

'."\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 $title; if ($env{'form.crstype'} eq 'community') { $title = &mt('Cancel community request'); } else { $title = &mt('Cancel course request'); } my ($result,$output) = &print_cancel_request($dom,$env{'form.origcnum'}); $r->print('

'.$title.'

'."\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') { if ($env{'form.crstype'} eq 'community') { $r->print(&mt('Your community request has been cancelled.')); } else { $r->print(&mt('Your course request has been cancelled.')); } } else { $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); } my ($title,$header); if ($env{'form.crstype'} eq 'community') { $title = 'Community Request'; $header = &mt('Community Request'); } else { $title = 'Course Request'; $header = &mt('Course Request'); } $r->print(&header($title,'','','',{ 'only_body' => 1}). $crumb."\n".'

'.$header.'

'. &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); if ($crstype eq 'community') { $r->print('

'.&mt('Review community request details before submission').'

'); } else { $r->print('

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

'); } $r->print(&print_review($dom,\@codetitles,\%cat_titles,\%cat_order,\@code_order,'','',\@disallowed,\%disallowmsg). ''); if ($crstype eq 'community') { $navtxt{'next'} = &mt('Submit community request'); } else { $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($r,$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)); } unless ($env{'form.concepttest'}) { $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); 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 } if ($dom eq 'gcitest') { return $output; } else { 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 $type = 'Course'; if ($crstype eq 'community') { $type = 'Community'; } my $roleoptions; my @roles = &Apache::lonuserutils::roles_by_context('course','',$type); 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().'
'; if ($crstype eq 'community') { $output .= '

'.&mt('You may also add users later, once the community has been created, by using the "Manage community users" link, accessible from the "Main Menu".').'

'; } else { $output .= '

'.&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) { my $desctitle; if ($env{'form.crstype'} eq 'any') { $desctitle = &mt('Course/Community Description') } elsif ($env{'form.crstype'} eq 'community') { $desctitle = &mt('Community Description') } else { $desctitle = &mt('Course Description'); } $output .= &Apache::loncommon::start_data_table(). &Apache::loncommon::start_data_table_header_row(). ''.&mt('Action').''. ''.$desctitle.''. ''.&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 { if ($env{'form.crstype'} eq 'any') { $output .= '
'.&mt('You have no matching course or community requests awaiting approval by a Domain Coordinator or held in a queue pending administrative action at your institution.').'
'; } elsif ($env{'form.crstype'} eq 'community') { $output .= '
'.&mt('You have no matching community requests awaiting approval by a Domain Coordinator or held in a queue pending administrative action at your institution.').'
'; } 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(). '

'; if ($crstype eq 'community') { $output .= &mt('Cancelling the request will remove it from the queue of pending community requests').'
'; } else { $output .= &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(); if ($dom eq 'gcitest') { $inst_headers .= ''.&mt('Test Questions').''; my $concepttest; if ($env{'form.concepttest'} eq 'defchosen') { $concepttest = 'Auto-generated'; } elsif ($env{'form.concepttest'} eq 'editmyown') { $concepttest = 'Manually selected'; } $inst_values .= ''.$concepttest.''; } else { $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'}, $env{'form.crstype'}); 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'; my $ccrole = 'cc'; if ($env{'form.crstype'} eq 'community') { $container = 'Community'; $ccrole = 'co'; } $personnel_headers = ''.&mt('Name').''.&mt('Username:Domain'). ''.&mt('Role').''.&mt('LON-CAPA Sections'). ''; $personnel_values .= ''.$ownername.''.$owner.''. ''.&Apache::lonnet::plaintext($ccrole,$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 $ccrole) { $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'); my $desctitle = &mt('Description'); if ($dom eq 'gcitest') { $title = &mt('Concept Test Course Information'); $desctitle = &mt('Concept Test Title'); } my $clonetitle = &mt('Clone content and settings from an existing course?'); if ($crstype eq 'community') { $title = &mt('Brief Community Description'); $clonetitle = &mt('Clone content and settings from an existing community?'); } 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($desctitle). ''; if ($dom eq 'gcitest') { $output .= &Apache::lonhtmlcommon::row_closure(1). &concepttest_form(); } 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(); if ($dom eq 'gcitest') { my ($instcode,@codetitles,%cat_titles,%cat_order,@code_order); my $invalidcrosslist = []; $output .= &print_enrollment_menu($formname,$instcode,$dom, \@codetitles,\%cat_titles,\%cat_order, \@code_order,$invalidcrosslist); } else { $output .= &Apache::lonhtmlcommon::row_headline(). '

'.&Apache::loncommon::help_open_topic('Course_Request_Clone').' '.$clonetitle.'

'. &Apache::lonhtmlcommon::row_closure(1). &clone_form($dom,$formname,$crstype); } $output .= &Apache::lonhtmlcommon::end_pick_box().'
'."\n"; return $output; } sub concepttest_form { return &Apache::lonhtmlcommon::row_title(&mt('Questions included in Concept Test')). ' '. &mt('Automatically selected by WebCenter'). '