--- loncom/interface/lonrequestcourse.pm 2009/08/12 02:04:38 1.9 +++ loncom/interface/lonrequestcourse.pm 2009/08/15 01:59:04 1.13 @@ -1,7 +1,7 @@ # The LearningOnline Network # Request a course # -# $Id: lonrequestcourse.pm,v 1.9 2009/08/12 02:04:38 raeburn Exp $ +# $Id: lonrequestcourse.pm,v 1.13 2009/08/15 01:59:04 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -44,6 +44,62 @@ described at http://www.lon-capa.org. =item handler() +=item header() + +=item form_elements() + +=item onload_action() + +=item check_can_request() + +=item course_types() + +=item print_main_menu() + +=item request_administration() + +=item print_request_form() + +=item print_enrollment_menu() + +=item inst_section_selector() + +=item date_setting_table() + +=item print_personnel_menu() + +=item print_request_status() + +=item print_request_logs() + +=item print_review() + +=item dates_from_form() + +=item courseinfo_form() + +=item clone_form() + +=item clone_text() + +=item coursecode_form() + +=item get_course_dom() + +=item display_navbuttons() + +=item print_request_outcome() + +=item get_processtype() + +=item check_autolimit() + +=item build_batchcreatehash() + +=item retrieve_settings() + +=item get_request_settings() + =back =cut @@ -114,13 +170,14 @@ sub handler { } my %trail = ( - crstype => 'Course Request Action', - codepick => 'Category', - courseinfo => 'Description', - enrollment => 'Enrollment', - personnel => 'Personnel', - review => 'Review', - process => 'Result', + crstype => 'Course Request Action', + codepick => 'Category', + courseinfo => 'Description', + enrollment => 'Enrollment', + personnel => 'Personnel', + review => 'Review', + process => 'Result', + pick_request => 'Display Summary', ); my $page = 0; @@ -179,7 +236,12 @@ sub handler { ''.&Apache::loncommon::end_page()); } } elsif ($action eq 'view') { - &print_request_status($jscript,$loaditems,$crumb); + 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 { @@ -214,30 +276,33 @@ sub form_elements { }, courseinfo => { cdescr => 'text', - clonecourse => 'text', - clonedomain => 'selectbox', + clonecrs => 'text', + clonedom => 'selectbox', datemode => 'radio', dateshift => 'text', }, enrollment => { - startaccess_month => 'selectbox', - startaccess_hour => 'selectbox', - endaccess_month => 'selectbox', - endaccess_hour => 'selectbox', - startaccess_day => 'text', - startaccess_year => 'text', - startaccess_minute => 'text', - startaccess_second => 'text', - endaccess_day => 'text', - endaccess_year => 'text', - endaccess_minute => 'text', - endaccess_second => 'text', + 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 => { persontotal => 'hidden', addperson => 'checkbox', }, + review => { + cnum => 'hidden', + }, }, view => { crstype => { @@ -246,6 +311,13 @@ sub form_elements { }, }, ); + 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); @@ -262,18 +334,18 @@ sub form_elements { if (&Apache::lonnet::auto_run('',$dom)) { my %extras = ( sectotal => 'hidden', - startenroll_month => 'selectbox', - startenroll_hour => 'selectbox', - endenroll_month => 'selectbox', - endenroll_hour => 'selectbox', - startenroll_day => 'text', - startenroll_year => 'text', - startenroll_minute => 'text', - startenroll_second => 'text', - endenroll_day => 'text', - endenroll_year => 'text', - endenroll_minute => 'text', - endenroll_second => 'text', + 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', @@ -314,16 +386,16 @@ sub form_elements { $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.'_first'} = 'text', - $people{'person_'.$i.'_last'} = 'text', - $people{'person_'.$i.'_email'} = 'text', - $people{'person_'.$i.'_role'} = 'selectbox', - $people{'person_'.$i.'_sec'} = 'selectbox', - $people{'person_'.$i.'_newsec'} = 'text', - $people{'person_'.$i.'_sections'} = 'hidden', + $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', + $people{'person_'.$i.'_sections'} = 'hidden', } my %personnelhash = (%{$elements{'new'}{'personnel'}},%people); %{$elements{'new'}{'personnel'}} = %personnelhash; @@ -540,8 +612,11 @@ END &print_request_form($r,$action,$state,$page,$states,$dom); } elsif ($action eq 'view') { $r->print(&header('Manage course requests',$js.$jscript,$loaditems).$crumb); + if ($state eq 'pick_request') { + $r->print(&print_request_status($dom)); + } } elsif ($action eq 'log') { - $r->print(&coursereq_log('View request log',$jscript,$loaditems).$crumb); + $r->print(&coursereq_log('View request log',$jscript,$loaditems).$crumb); } $r->print(&Apache::loncommon::end_page()); return; @@ -554,7 +629,7 @@ sub print_request_form { $prev = $states->{$action}[$page-1]; $next = $states->{$action}[$page+1]; my %navtxt = &Apache::lonlocal::texthash ( - prev => 'Previous', + prev => 'Back', next => 'Next', ); $crstype = $env{'form.crstype'}; @@ -636,8 +711,13 @@ sub print_request_form { $r->print(&print_review($formname,$dom,\@codetitles,\%cat_titles,\%cat_order, \@code_order)); $navtxt{'next'} = &mt('Submit course request'); - } elsif ($state eq '') { - my $result = &print_request_outcome($dom); + } 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 = ('counter'); my %elements = &form_elements($dom); @@ -806,7 +886,7 @@ sub print_personnel_menu { $persontotal ++; } my $userlinktxt = &mt('Set User'); - my @items = ('uname','dom','last','first','email','hidedom'); + my @items = ('uname','dom','lastname','firstname','emailaddr','hidedom'); my $roleoptions; my @roles = &Apache::lonuserutils::roles_by_context('course'); @@ -894,9 +974,9 @@ sub print_personnel_menu { ''). ''."\n". ''."\n". - ''."\n". - ''."\n". - ''."\n". + ''."\n". + ''."\n". + ''."\n". ''."\n". ''.&mt('Section(s)').'
'.$sectionselector.''."\n". '
'.&mt('Username').'
'.$uname_form.'		'.&mt('Domain').'
'.$udom_form.'
'.&mt('First Name').'
'.$form_elems{'first'}.'		'.&mt('Last Name').'
'.$form_elems{'last'}.'		'.&mt('E-mail').'
'.$form_elems{email}.'
'.&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(); @@ -911,10 +991,91 @@ sub print_personnel_menu { } sub print_request_status { - return; + my ($dom) = @_; + my %requests = &Apache::lonnet::dumpstore('courserequests',$env{'user.domain'}, + $env{'user.name'}); + my ($output,$formname,%queue_by_date); + foreach my $key (keys(%requests)) { + if (ref($requests{$key}) eq 'HASH') { + my ($cdom,$cnum) = split('_',$key); + next if ($cdom ne $dom); + my $entry; + my $timestamp = $requests{$key}{'timestamp'}; + my $crstype = $requests{$key}{'crstype'}; + my $status = $requests{$key}{'status'}; + next unless (($env{'form.crstype'} eq 'all') || + ($env{'form.crstype'} eq $crstype)); + next unless (($status eq 'approval') || ($status eq 'pending')); + if (ref($requests{$key}{'details'}) eq 'HASH') { + $entry = $key.':'.$crstype.':'.$requests{$key}{'details'}{'cdescr'}; + if ($crstype eq 'official') { + $entry .= ':'.$requests{$key}{'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"; + if (@sortedtimes > 0) { + $output .= &Apache::loncommon::start_data_table(). + &Apache::loncommon::start_data_table_header_row(). + ''.&mt('Action').''. + ''.&mt('Description').''; + if ($env{'form.crstype'} eq 'all') { + $output .= ''.&mt('Type').''; + } + if (($env{'form.crstype'} eq 'all') || ($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(). + ''. + ''.$desc.''; + if ($env{'form.crstype'} eq 'all') { + $output .= ''.&course_types($type).''; + } + if (($env{'form.crstype'} eq 'all') || + ($env{'form.crstype'} eq 'official')) { + $output .= ''.$instcode.''; + } + $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_request_logs { + my ($jscript,$loaditems,$crumb) = @_; return; } @@ -966,12 +1127,12 @@ sub print_review { $section_headers = ''.&mt('Sections').''. ''.&mt('Crosslistings').''; - my ($startenroll,$endenroll) = &dates_from_form('startenroll','endenroll'); + 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($startenroll).''. - ''.&Apache::lonlocal::locallocaltime($endenroll).''; + ''.&Apache::lonlocal::locallocaltime($enrollstart).''. + ''.&Apache::lonlocal::locallocaltime($enrollend).''; $section_values = ''. ''; @@ -1027,12 +1188,12 @@ sub print_review { my %ctxt = &clone_text(); $inst_headers .= ''; - if (($env{'form.clonecourse'} =~ /^$match_name$/) && - ($env{'form.clonedomain'} =~ /^$match_domain$/)) { + if (($env{'form.clonecrs'} =~ /^$match_name$/) && + ($env{'form.clonedom'} =~ /^$match_domain$/)) { my %coursehash = - &Apache::lonnet::courseiddump($env{'form.clonedomain'},'.',1,'.','.', - $env{'form.clonecourse'},undef,undef,'.'); - my $cloneid = $env{'form.clonedomain'}.'_'.$env{'form.clonecourse'}; + &Apache::lonnet::courseiddump($env{'form.clonedom'},'.',1,'.','.', + $env{'form.clonecrs'},undef,undef,'.'); + my $cloneid = $env{'form.clonedom'}.'_'.$env{'form.clonecrs'}; if (ref($coursehash{$cloneid}) eq 'HASH') { $inst_headers .= ''; my $clonedesc = $coursehash{$cloneid}{'description'}; @@ -1040,9 +1201,9 @@ sub print_review { $inst_values .= ''. ''; - my ($startaccess,$endaccess) = &dates_from_form('startaccess','endaccess'); - $enroll_values .= ''; - if ($endaccess == 0) { + my ($accessstart,$accessend) = &dates_from_form('accessstart','accessend'); + $enroll_values .= ''; + if ($accessend == 0) { $enroll_values .= ''; } else { - $enroll_values .= ''; + $enroll_values .= ''; } my $container = 'Course'; @@ -1083,8 +1244,8 @@ sub print_review { for (my $i=0; $i<$env{'form.persontotal'}; $i++) { if ($env{'form.person_'.$i.'_uname'} ne '') { $personnel_values .= - ''. + ''. ''. '
'. &mt('Institutional section').''.&mt('LON-CAPA section').'
'.&mt('Clone From').''.$ctxt{'dsh'}.''.$clonedesc.' '; if ($cloneinst ne '') { - $inst_values .= &mt('([_1] in [_2])',$cloneinst,$env{'form.clonedomain'}); + $inst_values .= &mt('([_1] in [_2])',$cloneinst,$env{'form.clonedom'}); } else { - $inst_values .= &mt('(from [_1])',$env{'form.clonedomain'}); + $inst_values .= &mt('(from [_1])',$env{'form.clonedom'}); } $inst_values .= ''; if ($env{'form.datemode'} eq 'preserve') { @@ -1061,12 +1222,12 @@ sub print_review { } $enroll_headers .= ''.&mt('Access Starts').''.&mt('Access Ends').''.&Apache::lonlocal::locallocaltime($startaccess).''.&Apache::lonlocal::locallocaltime($accessstart).''.&mt('No end date').''.&Apache::lonlocal::locallocaltime($endaccess).''.&Apache::lonlocal::locallocaltime($accessend).'
'.$env{'form.person_'.$i.'_first'}.' '. - $env{'form.person_'.$i.'_last'}.'
'.$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'}, @@ -1132,7 +1293,7 @@ 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 'endaccess') { + if ($endname eq 'accessend') { if (exists($env{'form.no_end_date'}) ) { $enddate = 0; } @@ -1144,10 +1305,19 @@ sub courseinfo_form { my ($dom,$formname,$crstype) = @_; my $output = '
'.&Apache::lonhtmlcommon::start_pick_box(). &Apache::lonhtmlcommon::row_title('Course Description'). - ''. - &Apache::lonhtmlcommon::row_closure(1). - &Apache::lonhtmlcommon::end_pick_box().'
'. - '
'.&clone_form($dom,$formname,$crstype).'
'."\n"; + ''; + 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; } @@ -1157,14 +1327,14 @@ sub clone_form { if ($crstype eq 'community') { $type = 'Community'; } - my $cloneform = &Apache::loncommon::select_dom_form($dom,'clonedomain'). - &Apache::loncommon::selectcourse_link($formname,'clonecourse','clonedomain','','','',$type); + my $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(). @@ -1318,54 +1488,124 @@ sub display_navbuttons { } sub print_request_outcome { - my ($dom) = @_; - my $output; - my $cnum = $env{'form.cnum'}; + 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; } - my $req_notifylist; - my %domconfig = &Apache::lonnet::get_dom('configuration',['requestcourses'],$dom); + + %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'}; } } - my $now = time; - my $crstype = $env{'form.crstype'}; - my ($startenroll,$endenroll,%sections,%crosslistings,%personnel); + $now = time; + $crstype = $env{'form.crstype'}; if ($crstype eq 'official') { if (&Apache::lonnet::auto_run('',$dom)) { - ($startenroll,$endenroll)=&dates_from_form('startenroll','endenroll'); + ($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 '') { + $sections{$i}{'inst'} = $env{'form.secnum_'.$i}; + $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'}; + } + } + } + + for (my $i=0; $i<$env{'form.persontotal'}; $i++) { + my $uname = $env{'form.person_'.$i.'_uname'}; + my $udom = $env{'form.person_'.$i.'_uname'}; + 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; + if ($env{'form.person_'.$i.'_sections'} ne '') { + my @sections = split(',',$env{'form.person_'.$i.'_sections'}); + foreach my $sec (@sections) { + next if ($sec eq ''); + if (@currsec > 0) { + 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); } - %sections = (); - %crosslistings = (); } - my ($startaccess,$endaccess) = &dates_from_form('startaccess','endacess'); + my ($accessstart,$accessend) = &dates_from_form('accessstart','accessend'); my $details = { - owner => $env{'user.name'}, - domain => $env{'user.domain'}, - cdom => $dom, - cnum => $cnum, - cdesc => $env{'form.cdesc'}, - crstype => $env{'form.crstype'}, - instcode => $env{'form.instcode'}, - clonedomain => $env{'form.clonedomain'}, - clonecourse => $env{'form.clonecourse'}, - datemode => $env{'form.datemode'}, - dateshift => $env{'form.datshift'}, - sectotal => $env{'form.sectotal'}, - sections => \%sections, - crosstotal => $env{'form.crosstotal'}, - crosslistings => \%crosslistings, - autoadds => $env{'form.autoadds'}, - autodrops => $env{'form.autodrops'}, - startenroll => $startenroll, - endenroll => $endenroll, - startaccess => $startaccess, - endaccess => $endaccess, - personnel => \%personnel + 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 => $env{'form.instcode'}, + clonedom => $env{'form.clonedom'}, + clonecrs => $env{'form.clonecrs'}, + datemode => $env{'form.datemode'}, + dateshift => $env{'form.datshift'}, + sectotal => $env{'form.sectotal'}, + sections => \%sections, + crosslisttotal => $env{'form.crosslisttotal'}, + crosslists => \%crosslistings, + autoadds => $env{'form.autoadds'}, + autodrops => $env{'form.autodrops'}, + enrollstart => $enrollstart, + enrollend => $enrollend, + accessstart => $accessstart, + accessend => $accessend, + personnel => \%personnel, }; my @inststatuses; my $val = &get_processtype($dom,$crstype,\@inststatuses,\%domconfig); @@ -1382,13 +1622,17 @@ sub print_request_outcome { } else { my ($disposition,$message); my %reqhash = ( - crstype => $crstype, - details => $details, + timestamp => $now, + crstype => $crstype, + details => $details, ); my $requestkey = $dom.'_'.$cnum; - if ($val =~ /^autolimit=/) { + if ($val eq 'autolimit=') { + $disposition = 'process'; + } elsif ($val =~ /^autolimit=(\d+)$/) { + my $limit = $1; $disposition = &check_autolimit($env{'user.name'},$env{'user.domain'}, - $dom,$crstype,$val,\$message); + $dom,$crstype,$limit,\$message); } elsif ($val eq 'validate') { $disposition = &Apache::lonnet::auto_courserequest_validation($dom,$details, @@ -1407,15 +1651,22 @@ sub print_request_outcome { if ($crstype eq 'community') { $type = 'Community'; } - my ($logmsg,$newusermsg,$addresult,$enrollcount,$output,$keysmsg,%longroles); + my %domdefs = &Apache::lonnet::get_domain_defaults($dom); + my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg,%longroles); my @roles = &Apache::lonuserutils::roles_by_context('course'); foreach my $role (@roles) { $longroles{$role}=&Apache::lonnet::plaintext($role,$type); } - my %reqdetails = &build_batchcreatehash($details); - my $cid = &LONCAPA::batchcreatecourse::build_course($dom,$cnum,'request',\%reqdetails,\%longroles,\$logmsg,\$newusermsg,\$addresult,\$enrollcount,\$output,\$keysmsg,$env{'user.domain'},$env{'user.name'},$cnum); + my $owneremail; + my %emails = &Apache::loncommon::getemails(); + foreach my $email ('permanentemail','critnotification','notification') { + $owneremail = $emails{$email}; + last if ($owneremail ne ''); + } + my %reqdetails = &build_batchcreatehash($dom,$details,$owneremail,\%domdefs); + my $cid = &LONCAPA::batchcreatecourse::build_course($dom,$cnum,'requestcourses',\%reqdetails,\%longroles,\$logmsg,\$newusermsg,\$addresult,\$enrollcount,\$output,\$keysmsg,$env{'user.domain'},$env{'user.name'},$cnum,$crstype); $disposition = 'created'; - if ($cid eq $cnum) { + if ($cid eq "/$dom/$cnum") { $disposition = '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 { @@ -1429,7 +1680,7 @@ sub print_request_outcome { crstype => $crstype, ownername => $env{'user.name'}, ownerdom => $env{'user.domain'}, - description => $env{'form.cdesc'}, + description => $env{'form.cdescr'}, }, }; my $putresult = &Apache::lonnet::newput_dom('courserequestqueue',$request, @@ -1471,10 +1722,16 @@ sub print_request_outcome { } } - my $storeresult = &Apache::lonnet::store_coursereq($requestkey,\%reqhash); + my $storeresult; + if ($requestkey =~ /^($match_domain)_($match_courseid)$/) { + $storeresult = &Apache::lonnet::store_userdata(\%reqhash,$requestkey, + 'courserequests'); + } else { + $storeresult = 'error: invalid requestkey format'; + } if ($storeresult ne 'ok') { - $output .= ''.&mt('An error occurred saving a record of the details of your request.').'
'; - &logthis("Error saving course request - $requestkey for $env{'user.name'}:$env{'user.domain'} - $storeresult"); + $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"); } } return $output; @@ -1504,7 +1761,7 @@ sub get_processtype { if ($userenv{'inststatus'} ne '') { @{$inststatuses} = split(',',$userenv{'inststatus'}); } else { - @{$inststatuses} = ('other'); + @{$inststatuses} = ('default'); } foreach my $status (@{$inststatuses}) { if (exists($settings{$crstype}{$status})) { @@ -1522,6 +1779,7 @@ sub get_processtype { } } my $maxlimit = 0; + foreach my $key (sort(keys(%alltasks))) { if ($key =~ /^autolimit=(\d*)$/) { if ($1 eq '') { @@ -1562,14 +1820,67 @@ sub get_processtype { } 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 build_batchcreatehash { - my ($details) = @_; + my ($dom,$details,$owneremail,$domdefs) = @_; my %batchhash; - if (ref($details) eq 'HASH') { - + my @items = qw{owner domain coursehome clonecrs clonedom datemode dateshift enrollstart enrollend accessstart accessend sections crosslists users}; + if ((ref($details) eq 'HASH') && (ref($domdefs) eq 'HASH')) { + my $emailenc = &Apache::lonnet::escape($owneremail); + my $owner = $details->{'owner'}.':'.$details->{'domain'}; + foreach my $item (@items) { + $batchhash{$item} = $details->{$item}; + } + $batchhash{'title'} = $details->{'cdescr'}; + $batchhash{'coursecode'} = $details->{'instcode'}; + $batchhash{'emailenc'} = $emailenc; + $batchhash{'adds'} = $details->{'autoadds'}; + $batchhash{'drops'} = $details->{'autodrops'}; + $batchhash{'authtype'} = $domdefs->{'auth_def'}; + $batchhash{'authparam'} = $domdefs->{'auth_arg_def'}; + if ($details->{'crstype'} eq 'community') { + $batchhash{'crstype'} = 'Community'; + } else { + $batchhash{'crstype'} = 'Course'; + } + $batchhash{'users'}{$details->{$owner}} = { + firstname => $env{'environment.first'}, + lastname => $env{'environment.last'}, + emailenc => $emailenc, + email => $owneremail, + }; } return %batchhash; } @@ -1579,16 +1890,16 @@ sub retrieve_settings { my %reqinfo = &get_request_settings($request_id,$dom); my %stored; $stored{'cdescr'} = &unescape($reqinfo{'description'}); - $stored{'startaccess'} = $reqinfo{'startaccess'}; - $stored{'endaccess'} = $reqinfo{'endaccess'}; - if ($stored{'endaccess'} == 0) { + $stored{'accessstart'} = $reqinfo{'accessstart'}; + $stored{'accessend'} = $reqinfo{'accessend'}; + if ($stored{'accessend'} == 0) { $stored{'no_end_date'} = 1; } - $stored{'startenroll'} = $reqinfo{'startenroll'}; - $stored{'endenroll'} = $reqinfo{'endenroll'}; + $stored{'enrollstart'} = $reqinfo{'enrollstart'}; + $stored{'enrollend'} = $reqinfo{'enrollend'}; $stored{'crosslist'} = $reqinfo{'crosslist'}; - $stored{'clonecourse'} = $reqinfo{'clonecourse'}; - $stored{'clonedomain'} = $reqinfo{'clonedomain'}; + $stored{'clonecrs'} = $reqinfo{'clonecrs'}; + $stored{'clonedom'} = $reqinfo{'clonedom'}; $stored{'sections'} = $reqinfo{'sections'}; $stored{'personnel'} = $reqinfo{'personnel'};