# The LearningOnline Network # Request a course # # $Id: lonrequestcourse.pm,v 1.18 2009/08/19 20:12:04 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 header() =item form_elements() =item onload_action() =item check_can_request() =item course_types() =item print_main_menu() =item request_administration() =item print_request_form() =item print_enrollment_menu() =item inst_section_selector() =item date_setting_table() =item print_personnel_menu() =item print_request_status() =item print_request_logs() =item print_review() =item dates_from_form() =item courseinfo_form() =item clone_form() =item clone_text() =item coursecode_form() =item get_course_dom() =item display_navbuttons() =item print_request_outcome() =item get_processtype() =item check_autolimit() =item build_batchcreatehash() =item retrieve_settings() =item get_request_settings() =back =cut package Apache::lonrequestcourse; use strict; use Apache::Constants qw(:common :http); use Apache::lonnet; use Apache::loncommon; use Apache::lonlocal; use Apache::loncoursequeueadmin; use LONCAPA qw(:DEFAULT :match); sub handler { my ($r) = @_; if ($r->header_only) { &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK; } &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; &Apache::lonhtmlcommon::clear_breadcrumbs(); my $dom = &get_course_dom(); my $action = $env{'form.action'}; my $state = $env{'form.state'}; my %stored; my $jscript; if ((defined($state)) && (defined($action))) { if (($action eq 'view') && ($state eq 'details')) { if ((defined($env{'form.showdom'})) && (defined($env{'form.cnum'}))) { my $result = &retrieve_settings($env{'form.showdom'},$env{'form.cnum'}); } } my %elements = &form_elements($dom); my $elementsref = {}; if (ref($elements{$action}) eq 'HASH') { if (ref($elements{$action}{$state}) eq 'HASH') { $elementsref = $elements{$action}{$state}; } } if (($state eq 'courseinfo') && ($env{'form.clonedom'} eq '')) { $env{'form.clonedom'} = $dom; } $jscript = &Apache::lonhtmlcommon::set_form_elements($elementsref,\%stored); } if ($state eq 'personnel') { $jscript .= "\n".&Apache::loncommon::userbrowser_javascript(); } my $loaditems = &onload_action($action,$state); my %states; $states{'view'} = ['pick_request','details','cancel','removal']; $states{'log'} = ['filter','display']; $states{'new'} = ['courseinfo','enrollment','personnel','review','process']; if (($action eq 'new') && ($env{'form.crstype'} eq 'official')) { unless ($env{'form.state'} eq 'crstype') { unshift (@{$states{'new'}},'codepick'); } } foreach my $key (keys(%states)) { if (ref($states{$key}) eq 'ARRAY') { unshift (@{$states{$key}},'crstype'); } } my %trail = ( crstype => 'Course Request Action', codepick => 'Category', courseinfo => 'Description', enrollment => 'Access Dates', personnel => 'Personnel', review => 'Review', process => 'Result', pick_request => 'Display Summary', details => 'Request Details', cancel => 'Cancel Request', removal => 'Outcome', ); if (($env{'form.crstype'} eq 'official') && (&Apache::lonnet::auto_run('',$dom))) { $trail{'enrollment'} = 'Enrollment'; } my $page = 0; my $crumb; if (defined($action)) { my $done = 0; my $i=0; if (ref($states{$action}) eq 'ARRAY') { while ($i<@{$states{$action}} && !$done) { if ($states{$action}[$i] eq $state) { $page = $i; $done = 1; } $i++; } } for (my $i=0; $i<@{$states{$action}}; $i++) { if ($state eq $states{$action}[$i]) { &Apache::lonhtmlcommon::add_breadcrumb( {text=>"$trail{$state}"}); $crumb = &Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests'); last; } else { if (($state eq 'process') && ($i > 0)) { &Apache::lonhtmlcommon::add_breadcrumb( {href=>"javascript:backPage(document.requestcrs,'$states{$action}[0]')", text=>"$trail{$states{$action}[$i]}"}); } else { &Apache::lonhtmlcommon::add_breadcrumb( {href=>"javascript:backPage(document.requestcrs,'$states{$action}[$i]')", text=>"$trail{$states{$action}[$i]}"}); } } } } else { &Apache::lonhtmlcommon::add_breadcrumb( {text=>'Pick Action'}); $crumb = &Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests'); } my %can_request; my $canreq = &check_can_request($dom,\%can_request); if ($action eq 'new') { if ($canreq) { if ($state eq 'crstype') { &print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems, $crumb); } else { &request_administration($r,$action,$state,$page,\%states,$dom,$jscript, $loaditems,$crumb); } } 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,'',$crumb); } else { &request_administration($r,$action,$state,$page,\%states,$dom,$jscript, $loaditems,$crumb); } } elsif ($action eq 'log') { &print_request_logs($jscript,$loaditems,$crumb); } else { &print_main_menu($r,\%can_request,\%states,$dom,$jscript,'',$crumb); } return OK; } sub header { my ($bodytitle,$jscript,$loaditems,$jsextra) = @_; if ($jscript) { $jscript = ''."\n"; } if ($loaditems) { $loaditems = {'add_entries' => $loaditems,}; return &Apache::loncommon::start_page($bodytitle,$jscript.$jsextra,$loaditems); } else { return &Apache::loncommon::start_page($bodytitle,$jscript.$jsextra); } } sub form_elements { my ($dom) = @_; my %elements = ( new => { crstype => { crstype => 'selectbox', action => 'selectbox', origcnum => 'hidden', }, courseinfo => { cdescr => 'text', clonecrs => 'text', clonedom => 'selectbox', datemode => 'radio', dateshift => 'text', }, enrollment => { accessstart_month => 'selectbox', accessstart_hour => 'selectbox', accessend_month => 'selectbox', accessend_hour => 'selectbox', accessstart_day => 'text', accessstart_year => 'text', accessstart_minute => 'text', accessstart_second => 'text', accessend_day => 'text', accessend_year => 'text', accessend_minute => 'text', accessend_second => 'text', no_end_date => 'checkbox', }, personnel => { addperson => 'checkbox', }, review => { cnum => 'hidden', }, }, view => { crstype => { crstype => 'selectbox', action => 'selectbox', }, }, ); my %servers = &Apache::lonnet::get_servers($dom,'library'); my $numlib = keys(%servers); if ($numlib > 1) { $elements{'new'}{'courseinfo'}{'chome'} = 'selectbox'; } else { $elements{'new'}{'courseinfo'}{'chome'} = 'hidden'; } my (@codetitles,%cat_titles,%cat_order,@code_order,$lastitem); &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, \%cat_order,\@code_order); my $numtitles = scalar(@codetitles); if ($numtitles) { my %extras; $lastitem = pop(@codetitles); $extras{'instcode_'.$lastitem} = 'text'; foreach my $item (@codetitles) { $extras{'instcode_'.$item} = 'selectbox'; } $elements{'new'}{'codepick'} = \%extras; } if (&Apache::lonnet::auto_run('',$dom)) { my %extras = ( sectotal => 'hidden', enrollstart_month => 'selectbox', enrollstart_hour => 'selectbox', enrollend_month => 'selectbox', enrollend_hour => 'selectbox', enrollstart_day => 'text', enrollstart_year => 'text', enrollstart_minute => 'text', enrollstart_second => 'text', enrollend_day => 'text', enrollend_year => 'text', enrollend_minute => 'text', enrollend_second => 'text', crosslisttotal => 'hidden', addcrosslist => 'checkbox', autoadds => 'radio', autodrops => 'radio', ); if ($env{'form.sectotal'} > 0) { for (my $i=0; $i<$env{'form.sectotal'}; $i++) { $extras{'sec_'.$i} = 'checkbox', $extras{'secnum_'.$i} = 'text', $extras{'loncapasec_'.$i} = 'checkbox', } } my $crosslisttotal = $env{'form.crosslisttotal'}; if ($env{'form.addcrosslist'}) { $crosslisttotal ++; } if (!defined($crosslisttotal)) { $crosslisttotal = 1; } if ($crosslisttotal > 0) { for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) { if ($numtitles) { $extras{'crosslist_'.$i.'_'.$lastitem} = 'text'; } if (@codetitles > 0) { foreach my $item (@codetitles) { $extras{'crosslist_'.$i.'_'.$item} = 'selectbox'; } } $extras{'crosslist_'.$i} = 'checkbox'; $extras{'crosslist_'.$i.'_instsec'} = 'text', $extras{'crosslist_'.$i.'_lcsec'} = 'text', } } my %mergedhash = (%{$elements{'new'}{'enrollment'}},%extras); %{$elements{'new'}{'enrollment'}} = %mergedhash; } my %people; my $persontotal = $env{'form.persontotal'}; if ($env{'form.addperson'}) { $persontotal ++; } if ((!defined($persontotal)) || (!$persontotal)) { $persontotal = 1; } for (my $i=0; $i<$persontotal; $i++) { $people{'person_'.$i.'_uname'} = 'text', $people{'person_'.$i.'_dom'} = 'selectbox', $people{'person_'.$i.'_hidedom'} = 'hidden', $people{'person_'.$i.'_firstname'} = 'text', $people{'person_'.$i.'_lastname'} = 'text', $people{'person_'.$i.'_emailaddr'} = 'text', $people{'person_'.$i.'_role'} = 'selectbox', $people{'person_'.$i.'_sec'} = 'selectbox', $people{'person_'.$i.'_newsec'} = 'text', } my %personnelhash = (%{$elements{'new'}{'personnel'}},%people); %{$elements{'new'}{'personnel'}} = %personnelhash; return %elements; } sub onload_action { my ($action,$state) = @_; my %loaditems; if (($action eq 'new') || ($action eq 'view')) { $loaditems{'onload'} = 'javascript:setFormElements(document.requestcrs)'; } return \%loaditems; } sub check_can_request { my ($dom,$can_request) = @_; my $canreq = 0; my ($types,$typename) = &course_types(); if ((ref($can_request) eq 'HASH') && (ref($types) eq 'ARRAY')) { foreach my $type (@{$types}) { if (&Apache::lonnet::usertools_access($env{'user.name'}, $env{'user.domain'}, $type,undef,'requestcourses')) { $canreq ++; if ($dom eq $env{'user.domain'}) { $can_request->{$type} = 1; } } if ($env{'environment.reqcrsotherdom.'.$type} ne '') { my @curr = split(',',$env{'environment.reqcrsotherdom.'.$type}); if (@curr > 0) { $canreq ++; unless ($dom eq $env{'user.domain'}) { if (grep(/^\Q$dom\E$/,@curr)) { $can_request->{$type} = 1; } } } } } } return $canreq; } sub course_types { my @types = ('official','unofficial','community'); my %typename = ( official => 'Official course', unofficial => 'Unofficial course', community => 'Community', ); return (\@types,\%typename); } sub print_main_menu { my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb) = @_; my ($types,$typename) = &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.requestcrs.crstype.value; var actionchoice = document.requestcrs.action.value; if (check_can_request(crschoice,actionchoice) == true) { if ((actionchoice == 'new') && (crschoice == 'official')) { nextstate = 'codepick'; } else { $nextstate_setter } formname.state.value= nextstate; formname.submit(); } return; } function 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. '
'. '
'. &Apache::lonhtmlcommon::start_pick_box(). &Apache::lonhtmlcommon::row_title('Course Domain'). &Apache::loncommon::select_dom_form($dom,'showdom','',1,$onchange)); if (!$onchange) { $r->print(' '); } $r->print(&Apache::lonhtmlcommon::row_closure(1). &Apache::lonhtmlcommon::end_pick_box().'
'); my $formname = 'requestcrs'; my $nexttext = &mt('Next'); $r->print( '
'. &Apache::lonhtmlcommon::start_pick_box(). &Apache::lonhtmlcommon::row_title('Action').' '. &Apache::lonhtmlcommon::row_closure(). &Apache::lonhtmlcommon::row_title('Course Type').' '. &Apache::lonhtmlcommon::row_closure(1). &Apache::lonhtmlcommon::end_pick_box().'
'); $r->print(&Apache::loncommon::end_page()); return; } sub request_administration { my ($r,$action,$state,$page,$states,$dom,$jscript,$loaditems,$crumb) = @_; 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); } 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($formname,$dom,\@codetitles,\%cat_titles,\%cat_order, \@code_order)."\n". ''."\n"); my @excluded = &get_excluded_elements($dom,$states,'new','review'); push(@excluded,'origcnum'); $r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'
'); my $other = 'modify'; my %navtxt = &Apache::lonlocal::texthash ( prev => 'Back', other => 'Modify Request', next => 'Cancel Request', ); &display_navbuttons($r,$formname,$prev,$navtxt{'prev'},$next,$navtxt{'next'}, $state,$other,$navtxt{'other'}); $r->print(''); } elsif ($state eq 'cancel') { my ($result,$output) = &print_cancel_request($dom,$env{'form.origcnum'}); $r->print('

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

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

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

'."\n".$form."\n". ''."\n". ''."\n". ''."\n". ''."\n"); if ($result eq 'ok') { $r->print(&mt('Your course request has been cancelled.')); } else { $r->print('
'. &mt('The request cancellation process was not complete.'). '
'.$error.'
'); } $r->print(''); } } elsif ($action eq 'log') { $r->print(&coursereq_log('View request log',$jscript,$loaditems).$crumb); } $r->print(&Apache::loncommon::end_page()); return; } sub print_request_form { my ($r,$action,$state,$page,$states,$dom) = @_; 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); if ($crstype eq 'official') { if ($env{'form.instcode'} ne '') { $instcode = $env{'form.instcode'}; } } if ($prev eq 'codepick') { if ($crstype eq 'official') { &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, \%cat_order,\@code_order); } if (@code_order > 0) { my $message; if ($instcode eq '') { foreach my $item (@code_order) { $instcode .= $env{'form.instcode_'.$item}; } $r->print(''."\n"); } if ($instcode ne '') { $code_chk = &Apache::lonnet::auto_validate_instcode('',$dom,$instcode); if ($code_chk 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 ($code_chk ne '') { $message .= '
'.$code_chk; } $message .= '
'; } } else { $message = '
'. &mt('No course was found matching your choice of institutional course category.'); } unless ($code_chk eq 'ok') { $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('
'.&Apache::lonhtmlcommon::start_pick_box().$codepicker. &Apache::lonhtmlcommon::end_pick_box().'
'); } else { $r->print(&courseinfo_form($dom,$formname,$crstype,$next)); } } else { $r->print(&courseinfo_form($dom,$formname,$crstype,$next)); } } elsif ($prev eq 'codepick') { $r->print(&courseinfo_form($dom,$formname,$crstype,$next)); } elsif ($state eq 'enrollment') { if ($crstype eq 'official') { &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, \%cat_order,\@code_order); } $r->print(&print_enrollment_menu($formname,$instcode,$dom,\@codetitles, \%cat_titles,\%cat_order,\@code_order)); } elsif ($state eq 'personnel') { $r->print(&print_personnel_menu($dom,$formname,$crstype)); } elsif ($state eq 'review') { my $cnum; if ($env{'form.origcnum'} =~ /^($match_courseid)$/) { $cnum = $env{'form.origcnum'}; } else { $cnum = &Apache::lonnet::generate_coursenum($dom); } &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, \%cat_order,\@code_order); $r->print('

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

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

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

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

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

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

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

'; } } return $output; } sub notification_information { my ($disposition,$req_notifylist,$cnum,$now) = @_; my %emails = &Apache::loncommon::getemails(); my $address; if (($emails{'permanentemail'} ne '') || ($emails{'notification'} ne '')) { $address = $emails{'permanentemail'}; if ($address eq '') { $address = $emails{'notification'}; } } my $output; if ($disposition eq 'approval') { $output .= &mt('A message will be sent to your LON-CAPA account when a domain coordinator takes action on your request.').'
'. &mt('To access your LON-CAPA message, go to the Main Menu and click on "Send and Receive Messages".').'
'; if ($address ne '') { $output.= &mt('An e-mail will also be sent to: [_1] when this occurs.',$address).'
'; } if ($req_notifylist) { my $fullname = &Apache::loncommon::plainname($env{'user.name'}, $env{'user.domain'}); my $sender = $env{'user.name'}.':'.$env{'user.domain'}; &Apache::loncoursequeueadmin::send_selfserve_notification($req_notifylist,"$fullname ($env{'user.name'}:$env{'user.domain'})",$cnum,$env{'form.cdescr'},$now,'coursereq',$sender); } } elsif ($disposition eq 'pending') { $output .= '
'. &mt('Your request has been placed in a queue pending administrative action.').'
'. &mt("Usually this means that your institution's information systems do not list you among the instructional personnel for this course.").'
'. &mt('The list of instructional personnel for the course will be automatically checked daily, and once you are listed the request will be processed.'). '
'; } else { $output .= '
'. &mt('Your request status is: [_1].',$disposition). '
' } return $output; } sub get_processtype { my ($dom,$crstype,$inststatuses,$domconfig) = @_; return unless ((ref($inststatuses) eq 'ARRAY') && (ref($domconfig) eq 'HASH')); my (%userenv,%settings,$val); my @options = ('autolimit','validate','approve'); 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'}) && (exists($settings{$crstype}{'_LC_adv'}))) { $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'}) { my @doms = split(',',$userenv{'reqcrsotherdom'}); my $optregex = join('|',@options); if (grep(/^\Q$dom\E:($optregex=?\d*)/,@doms)) { $val = $1; } @{$inststatuses} = ('_external_'); } } return $val; } sub check_autolimit { my ($uname,$udom,$dom,$crstype,$limit,$message) = @_; my %crsroles = &Apache::lonnet::get_my_roles($env{'user.name'},$env{'user.domain'}, 'userroles',['active','future'],['cc'],[$dom]); my ($types,$typename) = &course_types(); my %requests = &Apache::lonnet::dumpstore('courserequests',$udom,$uname); my %count; if (ref($types) eq 'ARRAY') { foreach my $type (@{$types}) { $count{$type} = 0; } } foreach my $key (keys(%requests)) { my ($cdom,$cnum) = split('_',$key); if (exists($crsroles{$cnum.':'.$cdom.':cc'})) { if (ref($requests{$key}) eq 'HASH') { my $type = $requests{$key}{'crstype'}; if ($type =~ /^official|unofficial|community$/) { $count{$type} ++; } } } } if ($count{$crstype} < $limit) { return 'process'; } else { if (ref($typename) eq 'HASH') { $$message = &mt('Your request has not been processed because you have reached the limit for the number of courses of this type.').'
'.&mt("Your $typename->{$crstype} limit is [_1].",$limit); } return 'rejected'; } return; } sub retrieve_settings { my ($dom,$cnum) = @_; my ($result,%reqinfo) = &get_request_settings($dom,$cnum); if ($result eq 'ok') { if (($env{'user.name'} eq $reqinfo{'owner'}) && ($env{'user.domain'} eq $reqinfo{'domain'})) { $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 = ( instcode => $reqinfo{'instcode'}, ); &extract_instcode($dom,'instcode',\%crscode); } 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; if (!grep(/^\Q$sec\E$/,@currsec)) { push(@currsec,$sec); } $env{'form.loncapasec_'.$i} = $reqinfo{'sections'}{$i}{'loncapa'}; } } } if (ref($reqinfo{'crosslistings'}) eq 'HASH') { foreach my $i (sort(keys(%{$reqinfo{'crosslistings'}}))) { if (ref($reqinfo{'crosslistings'}{$i}) eq 'HASH') { $env{'form.crosslist_'.$i.'_lcsec'} = $reqinfo{'crosslistings'}{$i}{'loncapa'}; my $xlistsec = $reqinfo{'crosslistings'}{$i}{'instsec'}; my %crscode = ( $i => $reqinfo{'crosslistings'}{$i}{'instcode'}, ); &extract_instcode($dom,'crosslist',\%crscode,$1,$xlistsec); } } } 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) = @_; my $requestkey = $dom.'_'.$cnum; my ($result,%reqinfo); if ($requestkey =~ /^($match_domain)_($match_courseid)$/) { my %history = &Apache::lonnet::restore($requestkey,'courserequests', $env{'user.domain'},$env{'user.name'}); 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,$crscodehashref,$counter,$xlistsec) = @_; my (%codes,@codetitles,%cat_titles,%cat_order); if (ref($crscodehashref) eq 'HASH') { if (&Apache::lonnet::auto_instcode_format('requests',$cdom,$crscodehashref, \%codes,\@codetitles,\%cat_titles,\%cat_order) eq 'ok') { if (@codetitles > 0) { my $sel = $element; if ($element eq 'crosslist') { $sel .= '_'.$counter; } my $lastitem = pop(@codetitles); foreach my $title (@codetitles) { if (ref($cat_order{$title}) eq 'ARRAY') { if (@{$cat_order{$title}} > 0) { $env{'form.'.$sel.'_'.$title} = $cat_order{$title}[0]; } } } if ($element eq 'crosslist') { $env{'form.'.$sel.'_'.$lastitem} = $xlistsec; } } } } 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;