![]() ![]() | ![]() |
- For 2.11 Backport 1.115 (modified), 1.116
# The LearningOnline Network # Request a course # # $Id: lonrequestcourse.pm,v 1.95.2.8 2024/07/03 22:34:22 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). # # LON-CAPA is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # LON-CAPA is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with LON-CAPA; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # # /home/httpd/html/adm/gpl.txt # # http://www.lon-capa.org/ # ### =head1 NAME Apache::lonrequestcourse.pm =head1 SYNOPSIS Allows users to request creation of new courses. This is part of the LearningOnline Network with CAPA project described at http://www.lon-capa.org. =head1 SUBROUTINES =over =item handler() =item get_breadcrumbs() =item header() =item form_elements() =item onload_action() =item print_main_menu() =item request_administration() =item close_popup_form() =item get_instcode() =item print_request_form() =item print_enrollment_menu() =item show_invalid_crosslists() =item inst_section_selector() =item date_setting_table() =item print_personnel_menu() =item print_request_status() =item print_request_logs() =item print_review() =item dates_from_form() =item courseinfo_form() =item clone_form() =item clone_text() =item coursecode_form() =item get_course_dom() =item display_navbuttons() =item print_request_outcome() =item check_autolimit() =item retrieve_settings() =item get_request_settings() =item extract_instcode() =item generate_date_items() =back =cut package Apache::lonrequestcourse; use strict; use Apache::Constants qw(:common :http); use Apache::lonnet; use Apache::loncommon; use Apache::lonlocal; use Apache::loncoursequeueadmin; use Apache::lonuserutils; use LONCAPA qw(:DEFAULT :match); my $registered_flush; my $registered_instcats; my $modified_dom; sub handler { my ($r) = @_; &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; if ($r->header_only) { return OK; } $registered_flush = 0; $registered_instcats = 0; $modified_dom = ''; &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['action','showdom','cnum','state','crstype','queue','tabs']); &Apache::lonhtmlcommon::clear_breadcrumbs(); my $dom = &get_course_dom(); my $action = $env{'form.action'}; my $state = $env{'form.state'}; my (%states,%stored); my ($jscript,$uname,$udom,$result,$warning,$showcredits,$instcredits,%can_request, %request_domains,@incdoms); my %domdefs = &Apache::lonnet::get_domain_defaults($dom); if ($domdefs{'officialcredits'} || $domdefs{'unofficialcredits'} || $domdefs{'textbookcredits'}) { $showcredits = 1; } my $canreq = &Apache::lonnet::check_can_request($dom,\%can_request,\%request_domains); foreach my $item (keys(%request_domains)) { if (ref($request_domains{$item}) eq 'ARRAY') { foreach my $possdom (@{$request_domains{$item}}) { unless(grep(/^\Q$possdom\E$/,@incdoms)) { push(@incdoms,$possdom); } } } } if ($canreq) { if (($env{'form.crstype'} eq 'textbook') || (scalar(keys(%can_request)) == 1) && ($can_request{'textbook'})) { my %domconfig = &Apache::lonnet::get_dom('configuration',['requestcourses'],$dom); if ($action eq 'log') { my $usetabs; if ((scalar(keys(%can_request)) == 1) && ($can_request{'textbook'})) { $usetabs = 1; } elsif ($env{'form.tabs'} eq 'on') { $usetabs = 1; } &Apache::lonhtmlcommon::add_breadcrumb({text=>'Course Request'}); my $crumb = &Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests'); &print_request_logs($r,$dom,undef,undef,$crumb,$usetabs); } elsif ($action eq 'process') { if ($can_request{'textbook'}) { &process_textbook_request($r,$dom,$action,\%domdefs,\%domconfig,\%can_request); } else { &textbook_request_disabled($r,$dom,$action,\%can_request); } } elsif ($action eq 'display') { my ($uname,$udom,$result,$warning) = &domcoord_display($dom); if ($warning ne '') { my $args = { only_body => 1 }; $r->print(&header('Course/Community Requests','','' ,'',$args). '<h3>'.&mt('Course/Community Request Details').'</h3>'. '<div class="LC_warning">'.$warning.'</div>'. &close_popup_form()); } else { $states{'display'} = ['details']; my $loaditems = &onload_action($action,$state); my $page = 0; &request_administration($r,$action,$state,$page,\%states,$dom,$jscript, $loaditems,'','','','','',$showcredits,'','', $uname,$udom); } } else { if ($can_request{'textbook'}) { &print_textbook_form($r,$dom,\@incdoms,\%domdefs,$domconfig{'requestcourses'},\%can_request); } else { &textbook_request_disabled($r,$dom,$action,\%can_request); } } return OK; } } $states{'display'} = ['details']; $states{'view'} = ['pick_request','details','cancel','removal']; $states{'log'} = ['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'); } } if (($action eq 'new') && (&Apache::loncoursequeueadmin::author_prompt())) { if (ref($states{$action}) eq 'ARRAY') { push(@{$states{$action}},'reqauthor'); } } foreach my $key (keys(%states)) { if (ref($states{$key}) eq 'ARRAY') { unshift (@{$states{$key}},'crstype'); } } my @invalidcrosslist; my %trail = ( crstype => 'Pick Action', codepick => 'Category', courseinfo => 'Description', enrollment => 'Access Dates', personnel => 'Personnel', review => 'Review', process => 'Result', reqauthor => 'Authoring Space Result', pick_request => 'Display Summary', details => 'Request Details', cancel => 'Cancel Request', removal => 'Outcome', display => 'Request Logs', ); if (($env{'form.crstype'} eq 'official') && (&Apache::lonnet::auto_run('',$dom))) { $trail{'enrollment'} = 'Enrollment'; } my ($page,$crumb,$newinstcode,$codechk,$checkedcode,$description) = &get_breadcrumbs($dom,$action,\$state,\%states,\%trail); if ($action eq 'display') { ($uname,$udom,$result,$warning) = &domcoord_display($dom); } elsif ((defined($state)) && (defined($action))) { if (($action eq 'view') && ($state eq 'details')) { if ((defined($env{'form.showdom'})) && (defined($env{'form.cnum'}))) { my $result = &retrieve_settings($env{'form.showdom'},$env{'form.cnum'}); } } elsif ($env{'form.crstype'} eq 'official') { if (&Apache::lonnet::auto_run('',$dom)) { if (($action eq 'new') && (($state eq 'enrollment') || ($state eq 'personnel'))) { my $checkcrosslist = 0; for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) { if ($env{'form.crosslist_'.$i}) { $checkcrosslist ++; } } if ($checkcrosslist) { my %codechk; my (@codetitles,%cat_titles,%cat_order,@code_order,$lastitem); &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles, \%cat_titles, \%cat_order, \@code_order); my $numtitles = scalar(@codetitles); if ($numtitles) { for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) { if ($env{'form.crosslist_'.$i}) { my $codecheck; my $crosslistcode = ''; foreach my $item (@code_order) { $crosslistcode .= $env{'form.crosslist_'.$i.'_'.$item}; } if ($crosslistcode ne '') { ($codechk{$i}, my $rest) = &Apache::lonnet::auto_validate_instcode('',$dom,$crosslistcode); } unless ($codechk{$i} eq 'valid') { $env{'form.crosslist_'.$i} = ''; push(@invalidcrosslist,$crosslistcode); } } } } } } } } (my $elements,$instcredits) = &form_elements($dom,$showcredits); my $elementsref = {}; if ((ref($elements) eq 'HASH') && (ref($elements->{$action}) eq 'HASH')) { if (ref($elements->{$action}{$state}) eq 'HASH') { $elementsref = $elements->{$action}{$state}; } } if (($state eq 'courseinfo') && ($env{'form.clonedom'} eq '')) { $env{'form.clonedom'} = $dom; } if ($state eq 'crstype') { $jscript = &mainmenu_javascript(); } else { $jscript = &Apache::lonhtmlcommon::set_form_elements($elementsref,\%stored); if ($state eq 'courseinfo') { $jscript .= &cloning_javascript(); } } } if ($state eq 'personnel') { $jscript .= "\n".&Apache::loncommon::userbrowser_javascript(); } my $loaditems = &onload_action($action,$state); if ($action eq 'new') { if ($canreq) { if ($state eq 'crstype') { &print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems, $crumb,\@incdoms); } else { &request_administration($r,$action,$state,$page,\%states,$dom, $jscript,$loaditems,$crumb,$newinstcode, $codechk,$checkedcode,$description, $showcredits,$instcredits,\@invalidcrosslist); } } else { $r->print(&header('Course/Community Requests').$crumb. '<div class="LC_warning">'. &mt('You do not have privileges to request creation of courses or communities.'). '</div>'.&Apache::loncommon::end_page()); } } elsif ($action eq 'view') { if ($state eq 'crstype') { &print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems,$crumb,\@incdoms); } else { &request_administration($r,$action,$state,$page,\%states,$dom,$jscript, $loaditems,$crumb,'','','','',$showcredits); } } elsif ($action eq 'display') { if ($warning ne '') { my $args = { only_body => 1 }; $r->print(&header('Course/Community Requests','','' ,'',$args).$crumb. '<h3>'.&mt('Course/Community Request Details').'</h3>'. '<div class="LC_warning">'.$warning.'</div>'. &close_popup_form()); } else { &request_administration($r,$action,$state,$page,\%states,$dom,$jscript, $loaditems,$crumb,'','','','',$showcredits,'','', $uname,$udom); } } elsif ($action eq 'log') { if ($state eq 'crstype') { &print_main_menu($r,\%can_request,\%states,$dom,$jscript,'',$crumb,\@incdoms); } else { $jscript .= <<ENDJS; function backPage(formname,prevstate) { formname.state.value = prevstate; formname.submit(); } function setPage(formname) { formname.page.value = '1'; return; } ENDJS &print_request_logs($r,$dom,$jscript,$loaditems,$crumb,\%can_request); } } else { &print_main_menu($r,\%can_request,\%states,$dom,$jscript,'',$crumb,\@incdoms); } return OK; } sub mainmenu_javascript { return <<"END"; function setType(courseForm) { for (var i=0; i<courseForm.crstype.length; i++) { if (courseForm.crstype.options[i].value == "$env{'form.crstype'}") { courseForm.crstype.options[i].selected = true; } else { courseForm.crstype.options[i].selected = false; } } } function setAction(courseForm) { for (var i=0; i<courseForm.action.length; i++) { if (courseForm.action.options[i].value == "$env{'form.action'}") { courseForm.action.options[i].selected = true; } else { courseForm.action.options[i].selected = false; } } } END } sub cloning_javascript { return <<"END"; function setCloneDisplay(courseForm) { if (courseForm.cloning.length > 1) { for (var i=0; i<courseForm.cloning.length; i++) { if (courseForm.cloning[i].checked) { if (courseForm.cloning[i].value == 1) { document.getElementById('cloneoptions').style.display="block"; } } } } } END } sub get_breadcrumbs { my ($dom,$action,$state,$states,$trail) = @_; my ($crumb,$newinstcode,$codechk,$checkedcode,$numtitles,$description); my $page = 0; if ((ref($states) eq 'HASH') && (ref($trail) eq 'HASH') && (ref($state))) { 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++; } } if ($env{'form.crstype'} eq 'official') { if ($page > 1) { if ($states->{$action}[$page-1] eq 'codepick') { if ($env{'form.instcode'} eq '') { ($newinstcode,$numtitles) = &get_instcode($dom); if ($numtitles) { if ($newinstcode eq '') { $$state = 'codepick'; $page --; } else { ($codechk,$description) = &Apache::lonnet::auto_validate_instcode('', $dom,$newinstcode); if ($codechk ne 'valid') { $$state = 'codepick'; $page --; } $checkedcode = 1; } } } } } } if (ref($states->{$action}) eq 'ARRAY') { 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/Community Requests','Course_Requests'); last; } else { if (($$state eq 'process') || ($$state eq 'removal') || ($$state eq 'reqauthor')) { &Apache::lonhtmlcommon::add_breadcrumb( { href => '/adm/requestcourse', text => "$trail->{$states->{$action}[$i]}", } ); } else { &Apache::lonhtmlcommon::add_breadcrumb( { href => "javascript:backPage(document.requestcrs,'$states->{$action}[$i]')", text => "$trail->{$states->{$action}[$i]}", } ); } } } } } else { &Apache::lonhtmlcommon::add_breadcrumb( {text=>'Pick Action'}); $crumb = &Apache::lonhtmlcommon::breadcrumbs('Course/Community Requests','Course_Requests'); } } else { &Apache::lonhtmlcommon::add_breadcrumb( {text=>'Pick Action'}); $crumb = &Apache::lonhtmlcommon::breadcrumbs('Course/Community Requests','Course_Requests'); } return ($page,$crumb,$newinstcode,$codechk,$checkedcode,$description); } sub header { my ($bodytitle,$jscript,$loaditems,$jsextra,$args) = @_; if ($jscript) { $jscript = '<script type="text/javascript">'."\n". '// <![CDATA['."\n". $jscript."\n".'// ]]>'."\n".'</script>'."\n"; } if ($loaditems) { if (ref($args) eq 'HASH') { my %loadhash = ( 'add_entries' => $loaditems, ); my %arghash = (%loadhash,%{$args}); $args = \%arghash; } else { $args = {'add_entries' => $loaditems,}; } } return &Apache::loncommon::start_page($bodytitle,$jscript.$jsextra,$args); } sub form_elements { my ($dom,$showcredits) = @_; my $instcredits; my %elements = ( new => { crstype => { crstype => 'selectbox', action => 'selectbox', origcnum => 'hidden', }, courseinfo => { cdescr => 'text', cloning => 'radio', 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 = ( enrollstart_month => 'selectbox', enrollstart_hour => 'selectbox', enrollend_month => 'selectbox', enrollend_hour => 'selectbox', enrollstart_day => 'text', enrollstart_year => 'text', enrollstart_minute => 'text', enrollstart_second => 'text', enrollend_day => 'text', enrollend_year => 'text', enrollend_minute => 'text', enrollend_second => 'text', addcrosslist => 'checkbox', autoadds => 'radio', autodrops => 'radio', ); my ($instcode,$titlescount) = &get_instcode($dom); if ($instcode) { my @sections = &Apache::lonnet::auto_get_sections(undef,$dom,$instcode); if (@sections) { $extras{'sectotal'} = 'hidden'; if ($env{'form.sectotal'} > 0) { for (my $i=0; $i<$env{'form.sectotal'}; $i++) { $extras{'sec_'.$i} = 'radio'; $extras{'secnum_'.$i} = 'text'; $extras{'loncapasec_'.$i} = 'text'; } } } else { $extras{'addsection'} = 'checkbox'; my $sectotal = $env{'form.sectotal'}; if ($env{'form.addsection'}) { $sectotal ++; } for (my $i=0; $i<$sectotal; $i++) { $extras{'sec_'.$i} = 'checkbox'; $extras{'secnum_'.$i} = 'text', $extras{'loncapasec_'.$i} = 'text', } } (my $outcome,my $desc,$instcredits) = &Apache::lonnet::auto_validate_instcode(undef,$dom,$instcode); if ($showcredits && $instcredits eq '') { $extras{'coursecredits'} = 'text'; } } elsif (($env{'form.crstype'} eq 'unofficial') || ($env{'form.crstype'} eq 'textbook')) { if ($showcredits) { $extras{'coursecredits'} = 'text'; } } my $crosslisttotal = $env{'form.crosslisttotal'}; if ($env{'form.addcrosslist'}) { $crosslisttotal ++; } if (!$crosslisttotal) { $crosslisttotal = 1; } for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) { if ($numtitles) { $extras{'crosslist_'.$i.'_'.$lastitem} = 'text'; } if (@codetitles > 0) { foreach my $item (@codetitles) { $extras{'crosslist_'.$i.'_'.$item} = 'selectbox'; } } $extras{'crosslist_'.$i} = 'checkbox'; $extras{'crosslist_'.$i.'_instsec'} = 'text', $extras{'crosslist_'.$i.'_lcsec'} = 'text', } my %mergedhash = (%{$elements{'new'}{'enrollment'}},%extras); %{$elements{'new'}{'enrollment'}} = %mergedhash; } my %people; my $persontotal = $env{'form.persontotal'}; if ($env{'form.addperson'}) { $persontotal ++; } if ((!defined($persontotal)) || (!$persontotal)) { $persontotal = 1; } for (my $i=0; $i<$persontotal; $i++) { $people{'person_'.$i.'_uname'} = 'text', $people{'person_'.$i.'_dom'} = 'selectbox', $people{'person_'.$i.'_hidedom'} = 'hidden', $people{'person_'.$i.'_firstname'} = 'text', $people{'person_'.$i.'_lastname'} = 'text', $people{'person_'.$i.'_emailaddr'} = 'text', $people{'person_'.$i.'_role'} = 'selectbox', $people{'person_'.$i.'_sec'} = 'selectbox', $people{'person_'.$i.'_newsec'} = 'text', } my %personnelhash = (%{$elements{'new'}{'personnel'}},%people); %{$elements{'new'}{'personnel'}} = %personnelhash; return (\%elements,$instcredits);; } sub onload_action { my ($action,$state) = @_; my %loaditems; if (($action eq 'new') || ($action eq 'view')) { if ($state eq 'crstype') { $loaditems{'onload'} = 'javascript:setAction(document.mainmenu_action);javascript:setType(document.mainmenu_coursetype)'; } else { $loaditems{'onload'} = 'javascript:setFormElements(document.requestcrs);'; } if ($state eq 'courseinfo') { $loaditems{'onload'} .= 'javascript:setCloneDisplay(document.requestcrs);'; } } return \%loaditems; } sub print_main_menu { my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb,$incdoms) = @_; my ($types,$typename) = &Apache::loncommon::course_types(); my $onchange = 'this.form.submit()'; my $nextstate_setter = "\n"; if (ref($states) eq 'HASH') { foreach my $key (keys(%{$states})) { if (ref($states->{$key}) eq 'ARRAY') { $nextstate_setter .= " if (actionchoice == '$key') { nextstate = '".$states->{$key}[1]."'; } "; } } } my $js = <<"END"; function nextPage(formname) { var crschoice = document.mainmenu_coursetype.crstype.value; var actionchoice = document.mainmenu_action.action.value; if (check_can_request(crschoice,actionchoice) == true) { if ((actionchoice == 'new') && (crschoice == 'official')) { nextstate = 'codepick'; } else { $nextstate_setter } formname.crstype.value = crschoice; formname.action.value = actionchoice; formname.state.value= nextstate; formname.submit(); } return; } function check_can_request(crschoice,actionchoice) { var official = ''; var unofficial = ''; var community = ''; var textbook = ''; END if (ref($can_request) eq 'HASH') { foreach my $item (keys(%{$can_request})) { $js .= " $item = 1; "; } } my %js_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 in this domain.', textbook => 'You are not permitted to request creation of a textbook course in this domain', all => 'You must choose a specific course type when making a new course request.', allt => '"All types" is not allowed.', ); &js_escape(\%js_lt); $js .= <<END; if (crschoice == 'official') { if (official != 1) { alert("$js_lt{'official'}"); return false; } } else { if (crschoice == 'unofficial') { if (unofficial != 1) { alert("$js_lt{'unofficial'}"); return false; } } else { if (crschoice == 'community') { if (community != 1) { alert("$js_lt{'community'}"); return false; } } else { if (crschoice == 'textbook') { if (textbook != 1) { alert("$js_lt{'textbook'}"); return false; } } else { if (actionchoice == 'new') { alert('$js_lt{'all'}'+'\\n'+'$js_lt{'allt'}'); return false; } } } } } return true; } END my ($pagetitle,$pageinfo,$domaintitle,$earlyout); if (ref($can_request) eq 'HASH') { if (($can_request->{'official'}) || ($can_request->{'unofficial'}) || $can_request->{'textbook'}) { if ($can_request->{'community'}) { $pagetitle = 'Course/Community Requests'; $pageinfo = &mt('Request creation of a new course or community, or review your pending requests.'); $domaintitle = &mt('Course/Community Domain'); } else { $pagetitle = 'Course Requests'; $pageinfo = &mt('Request creation of a new course, or review your pending course requests.'); $domaintitle = &mt('Course Domain'); } } elsif ($can_request->{'community'}) { $pagetitle = 'Community Requests'; $pageinfo = &mt('Request creation of a new course, or review your pending requests.'); $domaintitle = &mt('Community Domain'); } elsif ((ref($incdoms) eq 'ARRAY') && ((@{$incdoms} > 1) || ((@{$incdoms} == 1) && ($incdoms->[0] ne $dom)))) { $pagetitle = 'Course/Community Requests'; $pageinfo = &mt('You do not have rights to request creation of courses in this domain; please choose a different domain.'); $domaintitle = &mt('Course/Community Domain'); } else { $pagetitle = 'Course/Community Requests'; $pageinfo = &mt('You do not have rights to request creation of courses or communities.'); $earlyout = 1; } } $r->print(&header($pagetitle,$js.$jscript,$loaditems).$crumb. '<p>'.$pageinfo.'</p>'); if ($earlyout) { $r->print(&Apache::loncommon::end_page()); return; } $r->print('<div>'. &Apache::lonhtmlcommon::start_pick_box(). &Apache::lonhtmlcommon::row_title($domaintitle). '<form name="domforcourse" method="post" action="/adm/requestcourse">'. &Apache::loncommon::select_dom_form($dom,'showdom','',1,$onchange,$incdoms)); if (!$onchange) { $r->print(' <input type="submit" name="godom" value="'. &mt('Change').'" />'); } unless ((ref($can_request) eq 'HASH') && (keys(%{$can_request}) > 0)) { $r->print('</form>'.&Apache::lonhtmlcommon::row_closure(1)."\n". &Apache::lonhtmlcommon::end_pick_box().'</div>'."\n". &Apache::loncommon::end_page()); return; } $r->print('</form>'.&Apache::lonhtmlcommon::row_closure()); my $formname = 'requestcrs'; my $nexttext = &mt('Next'); $r->print(&Apache::lonhtmlcommon::row_title(&mt('Action')).' <form name="mainmenu_action" method="post" action=""> <select size="1" name="action" > <option value="new">'.&mt('New request').'</option> <option value="view">'.&mt('View/Modify/Cancel pending requests').'</option> <option value="log">'.&mt('View request history').'</option> </select></form>'. &Apache::lonhtmlcommon::row_closure(). &Apache::lonhtmlcommon::row_title(&mt('Type')).' <form name="mainmenu_coursetype" method="post" action=""> <select size="1" name="crstype">'); if (ref($can_request) eq 'HASH') { if (keys(%{$can_request}) > 1) { $r->print(' <option value="any">'.&mt('All types').'</option>'); } if ((ref($types) eq 'ARRAY') && (ref($typename) eq 'HASH')) { foreach my $type (@{$types}) { next unless($can_request->{$type}); my $selected = ''; if ($env{'form.crstype'} eq '') { if ($type eq 'official') { $selected = ' selected="selected"'; } } else { if ($type eq $env{'form.crstype'}) { $selected = ' selected="selected"'; } } $r->print('<option value="'.$type.'"'.$selected.'>'.&mt($typename->{$type}). '</option>'."\n"); } } } $r->print('</select></form>'."\n". &Apache::lonhtmlcommon::row_closure(1)."\n". &Apache::lonhtmlcommon::end_pick_box().'</div>'."\n". '<div><form name="'.$formname.'" method="post" action="/adm/requestcourse">'."\n". '<input type="hidden" name="state" value="crstype" />'."\n". '<input type="hidden" name="showdom" value="'.$dom.'" />'."\n". '<input type="hidden" name="crstype" value="" />'."\n". '<input type="hidden" name="action" value="" />'."\n". '<input type="button" name="next" value="'.$nexttext. '" onclick="javascript:nextPage(document.'.$formname.')" />'."\n". '</form></div>'); $r->print(&Apache::loncommon::end_page()); return; } sub request_administration { my ($r,$action,$state,$page,$states,$dom,$jscript,$loaditems,$crumb, $newinstcode,$codechk,$checkedcode,$description,$showcredits, $instcredits,$invalidcrosslist,$uname,$udom) = @_; my $js; if (($action eq 'new') || (($action eq 'view') && ($state eq 'pick_request'))) { $js = <<END; function nextPage(formname,nextstate) { formname.state.value= nextstate; formname.submit(); } END } if (($action eq 'new') || ($action eq 'view')) { $js .= <<END; function backPage(formname,prevstate) { formname.state.value = prevstate; formname.submit(); } END } if ($action eq 'new') { my $jsextra; if (($state eq 'courseinfo') || ($state eq 'codepick')) { $jsextra = "\n".&Apache::loncommon::coursebrowser_javascript($dom,'','','','','', $newinstcode); } elsif ($state eq 'enrollment') { if (($env{'form.crstype'} eq 'official') && (&Apache::lonnet::auto_run('',$dom))) { $js .= "\n".§ion_check_javascript()."\n".&enrollment_lcsec_js(); } } elsif ($state eq 'personnel') { $js .= "\n".§ion_check_javascript()."\n".&personnel_lcsec_js(); } my $title; if ($env{'form.crstype'} eq 'community') { $title = 'Request a community'; } else { $title = 'Request a course'; } $r->print(&header($title,$js.$jscript,$loaditems,$jsextra).$crumb); &print_request_form($r,$action,$state,$page,$states,$dom,$newinstcode, $codechk,$checkedcode,$description,$showcredits, $instcredits,$invalidcrosslist); } elsif ($action eq 'view') { my $jsextra; my $formname = 'requestcrs'; my $prev = $states->{$action}[$page-1]; my $next = $states->{$action}[$page+1]; if ($state eq 'pick_request') { $next = $states->{$action}[$page+1]; $jsextra = &viewrequest_javascript($formname,$next); } elsif ($state eq 'details') { $jsextra = &viewdetails_javascript($formname); } elsif ($state eq 'cancel') { $jsextra = &viewcancel_javascript($formname); } my $title; if ($env{'form.crstype'} eq 'community') { $title = 'Manage community requests'; } else { $title = 'Manage course requests'; } $r->print(&header($title,$js.$jscript.$jsextra,$loaditems).$crumb); my $form = '<form method="post" name="'.$formname.'" action="/adm/requestcourse" />'; if ($state eq 'pick_request') { my $title; if ($env{'form.crstype'} eq 'community') { $title = &mt('Pending community requests'); } elsif ($env{'form.crstype'} eq 'official') { $title = &mt('Pending requests for official courses'); } elsif ($env{'form.crstype'} eq 'unofficial') { $title = &mt('Pending requests for unofficial courses'); } elsif ($env{'form.crstype'} eq 'textbook') { $title = &mt('Pending requests for textbook courses'); } else { $title = &mt('Pending course/community requests'); } $r->print('<h3>'.$title.'</h3><div>'."\n".$form."\n". &print_request_status($dom,$action).'</form></div>'); } elsif ($state eq 'details') { my (@codetitles,%cat_titles,%cat_order,@code_order,$instcode,$code_chk); my $origcnum = $env{'form.cnum'}; if ($origcnum eq '') { $origcnum = $env{'form.origcnum'}; } if ($env{'form.crstype'} eq 'official') { &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, \%cat_order,\@code_order); } my $title; if ($env{'form.crstype'} eq 'community') { $title = &mt('Community Request Details'); } else { $title = &mt('Course Request Details'); } $r->print('<h3>'.$title.'</h3><div>'."\n".$form."\n". &print_review($dom,\@codetitles,\%cat_titles,\%cat_order, \@code_order,'','','','',$instcredits)."\n". '<input name="origcnum" value="'.$origcnum.'" type="hidden" />'."\n"); my @excluded = &get_excluded_elements($dom,$states,'new','review', $showcredits); push(@excluded,'origcnum'); $r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'</div>'); my $other = 'modify'; my %navtxt = &Apache::lonlocal::texthash ( prev => 'Back', other => 'Modify Request', next => 'Cancel Request', ); &display_navbuttons($r,$dom,$formname,$prev,$navtxt{'prev'},$next, $navtxt{'next'},$state,$other,$navtxt{'other'}); $r->print('</form>'); } elsif ($state eq 'cancel') { my $title; if ($env{'form.crstype'} eq 'community') { $title = &mt('Cancel community request'); } else { $title = &mt('Cancel course request'); } my ($result,$output) = &print_cancel_request($dom,$env{'form.origcnum'}); $r->print('<h3>'.$title.'</h3><div>'."\n".$form."\n". $output); my @excluded = &get_excluded_elements($dom,$states,'view','cancel', $showcredits); $r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'</div>'); my %navtxt = &Apache::lonlocal::texthash ( prev => 'Back', next => 'Confirm Cancellation', ); if ($result eq 'ok') { &display_navbuttons($r,$dom,$formname,$prev,$navtxt{'prev'},$next, $navtxt{'next'},$state); } else { &display_navbuttons($r,$dom,$formname,$prev,$navtxt{'prev'},undef, '',$state); } $r->print('</form>'); } 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('<h3>'.&mt('Request Cancellation').'</h3><div>'."\n".$form."\n". '<input type="hidden" name="state" value="'.$state.'" />'."\n". '<input type="hidden" name="action" value="'.$action.'" />'."\n". '<input type="hidden" name="showdom" value="'.$dom.'" />'."\n". '<input type="hidden" name="orignum" value="'.$cnum.'" />'."\n"); if ($result eq 'ok') { if ($env{'form.crstype'} eq 'community') { $r->print(&mt('Your community request has been cancelled.')); } else { $r->print(&mt('Your course request has been cancelled.')); } } else { $r->print('<div class="LC_error">'. &mt('The request cancellation process was not complete.'). '<br />'.$error.'</div>'); } $r->print('</form>'); } } elsif ($action eq 'display') { my $formname = 'requestcrs'; my (@codetitles,%cat_titles,%cat_order,@code_order,$instcode,$code_chk); if ($env{'form.crstype'} eq 'official') { &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, \%cat_order,\@code_order); } my ($title,$header); if ($env{'form.crstype'} eq 'community') { $title = 'Community Request'; $header = &mt('Community Request'); } else { $title = 'Course Request'; $header = &mt('Course Request'); } $r->print(&header($title,'','','',{ 'only_body' => 1}). $crumb."\n".'<h3>'.$header.'</h3>'. &print_review($dom,\@codetitles,\%cat_titles,\%cat_order, \@code_order,$uname,$udom,'','',$instcredits)."\n". '</div>'. &close_popup_form()); } $r->print(&Apache::loncommon::end_page()); return; } sub domcoord_display { my ($dom) = @_; my ($uname,$udom,$result,$warning); if (($dom eq $env{'request.role.domain'}) && (&Apache::lonnet::allowed('ccc',$dom))) { if ($env{'form.cnum'} ne '') { my $cnum = $env{'form.cnum'}; my $queue = $env{'form.queue'}; my $reqkey = $cnum.'_'.$queue; my $namespace = 'courserequestqueue'; my $domconfig = &Apache::lonnet::get_domainconfiguser($dom); my %queued = &Apache::lonnet::get($namespace,[$reqkey],$dom,$domconfig); if (ref($queued{$reqkey}) eq 'HASH') { $uname = $queued{$reqkey}{'ownername'}; $udom = $queued{$reqkey}{'ownerdom'}; if (($udom =~ /^$match_domain$/) && ($uname =~ /^$match_username$/)) { $result = &retrieve_settings($dom,$cnum,$udom,$uname); } else { if ($env{'form.crstype'} eq 'community') { $warning = &mt('Invalid username or domain for community requestor'); } else { $warning = &mt('Invalid username or domain for course requestor'); } } } else { if ($env{'form.crstype'} eq 'community') { $warning = &mt('No information was found for this community request.'); } else { $warning = &mt('No information was found for this course request.'); } } } else { $warning = &mt('No course request ID provided.'); } } else { if ($env{'form.crstype'} eq 'any') { $warning = &mt('You do not have rights to view course or community request information.'); } elsif ($env{'form.crstype'} eq 'community') { $warning = &mt('You do not have rights to view community request information.'); } else { $warning = &mt('You do not have rights to view course request information.'); } } return ($uname,$udom,$result,$warning); } sub enrollment_lcsec_js { my %alerts = §ion_check_alerts(); my $secname = $alerts{'badsec'}; my $secnone = $alerts{'reserved'}; &js_escape(\$secname); &js_escape(\$secnone); my $output = ' function validateEnrollSections(formname,nextstate) { var badsectotal = 0; var reservedtotal = 0; var secTest = ""; '; for (my $i=0; $i<$env{'form.sectotal'}; $i++) { $output .= " var selSec = 0; for (var j=0; j<document.requestcrs.sec_".$i.".length; j++) { if (document.requestcrs.sec_".$i."[j].checked) { selSec = document.requestcrs.sec_".$i."[j].value; } if (selSec == 1) { secTest = validsection(document.requestcrs.loncapasec_".$i."); if (secTest == 'badsec') { badsectotal++; } if (secTest == 'reserved') { reservedtotal++; } } } "; } for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) { $output .= " if (document.requestcrs.crosslist_".$i.".checked) { secTest = validsection(document.requestcrs.crosslist_".$i."_lcsec); if (secTest == 'badsec') { badsectotal++; } if (secTest == 'reserved') { reservedtotal++; } } "; } $output .= " if (badsectotal>0) { alert('$secname'); return false; } if (reservedtotal>0) { alert('$secnone'); return false; } formname.state.value= nextstate; formname.submit(); return; } "; return $output; } sub personnel_lcsec_js { my %alerts = §ion_check_alerts(); my $secname = $alerts{'badsec'}."\n".$alerts{'separate'}; my $secnone = $alerts{'reserved'}; &js_escape(\$secname); &js_escape(\$secnone); my $output = ' function validatePersonnelSections(formname,nextstate) { var badsectotal = 0; var reservedtotal = 0; var secTest = ""; '; for (my $i=0; $i<$env{'form.persontotal'}; $i++) { $output .= " if (document.requestcrs.person_".$i."_uname.value != '') { secTest = validsection(document.requestcrs.person_".$i."_newsec,'1'); if (secTest == 'badsec') { badsectotal++; } if (secTest == 'reserved') { reservedtotal++; } } "; } $output .= " if (badsectotal > 0) { alert('$secname'); return false; } else { if (reservedtotal > 0) { alert('$secnone'); return false; } } formname.state.value = nextstate; formname.submit(); return; } "; return $output; } sub section_check_alerts { my %lt = &Apache::lonlocal::texthash( reserved => "You need to change one or more LON-CAPA section names - none is a reserved word in the system, and may not be used.", badsec => 'You need to change one or more LON-CAPA section names - names may only contain letters or numbers.', separate => 'Separate multiple sections with a comma.' ); return %lt; } sub section_check_javascript { return <<"END"; function validsection(field,mult) { var str = field.value; var badsec=0; var reserved=0; if (window.RegExp) { var badsecnum=0; var reservednum=0; var pattern=/[^a-zA-Z0-9]/; str = str.replace(/(^\\s*)|(\\s*\$)/gi,""); str = str.replace(/[ ]{2,}/gi," "); if (mult == '1') { var sections = new Array(); sections = str.split(/\\s*[\\s,;:]\\s*/); var i; for (i=0; i<sections.length; i++) { if ((sections[i] != '') && (sections[i] != undefined) && (sections[i] != null)) { if (pattern.test(sections[i])) { badsecnum++; } else { if (sections[i] == 'none') { reservednum++; } } } } } else { if ((str != '') && (str != undefined) && (str != null)) { if (pattern.test(str)) { badsecnum++; } else { if (str == 'none') { reservednum++; } } } } if (badsecnum > 0) { return 'badsec'; } if (reservednum > 0) { return 'reserved'; } } return; } END } sub close_popup_form { my $close= &mt('Close Window'); return << "END"; <p><form name="displayreq" action="" method="post"> <input type="button" name="closeme" value="$close" onclick="javascript:self.close();" /> </form></p> END } sub get_instcode { my ($dom) = @_; my ($instcode,$numtitles); my (@codetitles,%cat_titles,%cat_order,@code_order,$instcode,$code_chk); &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, \%cat_order,\@code_order); $numtitles = scalar(@codetitles); if (@code_order > 0) { my $message; foreach my $item (@code_order) { $instcode .= $env{'form.instcode_'.$item}; } } return ($instcode,$numtitles); } sub print_request_form { my ($r,$action,$state,$page,$states,$dom,$newinstcode,$codechk,$checkedcode, $description,$showcredits,$instcredits,$invalidcrosslist) = @_; my $formname = 'requestcrs'; my ($next,$prev,$message,$output,$codepicker,$crstype); $prev = $states->{$action}[$page-1]; $next = $states->{$action}[$page+1]; my %navtxt = &Apache::lonlocal::texthash ( prev => 'Back', next => 'Next', ); $crstype = $env{'form.crstype'}; $r->print('<br /><form name="'.$formname.'" method="post" action="/adm/requestcourse">'); my (@codetitles,%cat_titles,%cat_order,@code_order,$instcode,$code_chk, @disallowed); if ($crstype eq 'official') { if ($env{'form.instcode'} ne '') { $instcode = $env{'form.instcode'}; } elsif ($newinstcode ne '') { $instcode = $newinstcode; } if ($checkedcode) { if ($codechk eq 'valid') { $message = '<div class="LC_info">'. &mt('The chosen course category [_1] is valid.','<b>'. $instcode.'</b>'). '<input type="hidden" name="instcode" value="'. $instcode.'" /></div>'; } else { $message = '<div class="LC_warning">'. &mt('No course was found matching your choice of institutional course category.'); if ($codechk ne '') { $message .= '<br />'.$codechk; } $message .= '</div>'; $prev = 'crstype'; } $r->print($message); } } if ($prev eq 'crstype') { if ($crstype eq 'official') { &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, \%cat_order,\@code_order); } if (@code_order > 0) { $codepicker = &coursecode_form($dom,'instcode',\@codetitles, \%cat_titles,\%cat_order); if ($codepicker) { $r->print(&mt('Specify the course to be created.'). '<div>'.&Apache::lonhtmlcommon::start_pick_box(). $codepicker. &Apache::lonhtmlcommon::end_pick_box().'</div>'); } else { $next = $states->{$action}[$page+2]; $r->print(&courseinfo_form($dom,$formname,$crstype,$next)); } } else { if ($crstype eq 'official') { $next = $states->{$action}[$page+2]; } $r->print(&courseinfo_form($dom,$formname,$crstype,$next)); } } elsif ($prev eq 'codepick') { if ($instcode eq '') { $prev = $states->{$action}[$page-2]; } $r->print(&courseinfo_form($dom,$formname,$crstype,$next,$description)); } elsif ($state eq 'enrollment') { if ($crstype eq 'official') { &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, \%cat_order,\@code_order); } $r->print(&print_enrollment_menu($formname,$instcode,$dom,\@codetitles, \%cat_titles,\%cat_order,\@code_order, $showcredits,$instcredits,$invalidcrosslist)); } elsif ($state eq 'personnel') { $r->print(&print_personnel_menu($dom,$formname,$crstype,$invalidcrosslist)); } elsif ($state eq 'review') { my (%alerts,%rulematch,%inst_results,%curr_rules,%got_rules,%disallowmsg); my $now = time; for (my $i=0; $i<$env{'form.persontotal'}; $i++) { my $personname = $env{'form.person_'.$i.'_uname'}; my $persondom = $env{'form.person_'.$i.'_dom'}; if (($personname =~ /^$match_username$/) && ($persondom =~ /^$match_domain$/)) { if (&Apache::lonnet::domain($persondom)) { my $personhome = &Apache::lonnet::homeserver($personname,$persondom); if ($personhome eq 'no_host') { if ($persondom ne $dom) { my $skipuser = 1; if ($env{'user.role.dc./'.$persondom.'/'}) { my ($start,$end) = split('.',$env{'user.role.dc./'.$persondom.'/'}); if (((!$start) || ($start < $now)) && ((!$end) || ($end > $now))) { $skipuser = 0; } } if ($skipuser) { push(@disallowed,$i); $disallowmsg{$i} = &mt('[_1] was excluded because new users need to be from the course domain','<tt>'.$personname.':'.$persondom.'</tt>'); next; } } my $usertype = &get_usertype($persondom,$personname,\%curr_rules,\%got_rules); if (&Apache::lonuserutils::can_create_user($dom,'requestcrs',$usertype)) { my ($allowed,$msg,$authtype,$authparam) = &check_newuser_rules($persondom,$personname, \%alerts,\%rulematch,\%inst_results, \%curr_rules,\%got_rules); if ($allowed) { my %domdefaults = &Apache::lonnet::get_domain_defaults($persondom); if ($usertype eq 'official') { if ($authtype eq '') { $authtype = $domdefaults{'auth_def'}; $authparam = $domdefaults{'auth_arg_def'}; } } elsif ($usertype eq 'unofficial') { if ($authtype eq '') { $authtype = 'internal'; $authparam = ''; } } else { $authtype = $domdefaults{'auth_def'}; $authparam = $domdefaults{'auth_arg_def'}; } if (($authtype eq '') || (($authtype =~/^krb/) && ($authparam eq ''))) { push(@disallowed,$i); $disallowmsg{$i} = &mt('[_1] was excluded because institutional information is incomplete for this new user.','<tt>'.$personname.':'.$persondom.'</tt>'); next; } if (ref($inst_results{$personname.':'.$persondom}) eq 'HASH') { if ($inst_results{$personname.':'.$persondom}{'lastname'} ne '') { $env{'form.person_'.$i.'_lastname'} = $inst_results{$personname.':'.$persondom}{'lastname'}; } if ($inst_results{$personname.':'.$persondom}{'firstname'} ne '') { $env{'form.person_'.$i.'_firstname'} = $inst_results{$personname.':'.$persondom}{'firstname'}; } if ($inst_results{$personname.':'.$persondom}{'permanentemail'} ne '') { $env{'form.person_'.$i.'_emailaddr'} = $inst_results{$personname.':'.$persondom}{'permanentemail'}; } } } else { push(@disallowed,$i); $disallowmsg{$i} = &mt('[_1] was excluded because the username violated format rules for the domain','<tt>'.$personname.':'.$persondom.'</tt>'); } } else { push(@disallowed,$i); $disallowmsg{$i} = &mt('[_1] was excluded because you may not request new users in the domain','<tt>'.$personname.':'.$persondom.'</tt>'); } } else { my %userenv = &Apache::lonnet::userenvironment($persondom,$personname,'lastname','firstname','permanentemail'); if ($env{'form.person_'.$i.'_lastname'} eq '') { $env{'form.person_'.$i.'_lastname'} = $userenv{'lastname'}; } if ($env{'form.person_'.$i.'_firstname'} eq '') { $env{'form.person_'.$i.'_firstname'} = $userenv{'firstname'}; } if ($env{'form.person_'.$i.'_emailaddr'} eq '') { $env{'form.person_'.$i.'_emailaddr'} = $userenv{'permanentemail'}; } } } elsif ($personname ne '') { push(@disallowed,$i); $disallowmsg{$i} = &mt('[_1] was excluded because the domain is invalid','<tt>'.$personname.':'.$persondom.'</tt>'); } } elsif ($personname ne '') { push(@disallowed,$i); $disallowmsg{$i} = &mt('[_1] was excluded because the username or domain is invalid.','<tt>'.$personname.':'.$persondom.'</tt>'); } } my $cnum; if ($env{'form.origcnum'} =~ /^($match_courseid)$/) { $cnum = $env{'form.origcnum'}; } else { my $gentype = 'Course'; if ($crstype eq 'community') { $gentype = 'Community'; } $cnum = &Apache::lonnet::generate_coursenum($dom,$gentype); } &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, \%cat_order,\@code_order); if ($crstype eq 'community') { $r->print('<h3>'.&mt('Review community request details before submission').'</h3>'); } else { $r->print('<h3>'.&mt('Review course request details before submission').'</h3>'); } $r->print(&print_review($dom,\@codetitles,\%cat_titles,\%cat_order,\@code_order,'','',\@disallowed,\%disallowmsg,$instcredits). '<input type="hidden" name="cnum" value="'.$cnum.'" />'); my $fullname = &Apache::loncommon::plainname($env{'user.name'}, $env{'user.domain'}); my $postprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,'review',$env{'user.name'}, $env{'user.domain'},$fullname,$env{'form.cdescr'}); if (ref($postprocess) eq 'HASH') { if ($postprocess->{'reviewweb'}) { $r->print($postprocess->{'reviewweb'}); } } if ($crstype eq 'community') { $navtxt{'next'} = &mt('Submit community request'); } else { $navtxt{'next'} = &mt('Submit course request'); } } elsif ($state eq 'process') { if ($crstype eq 'official') { &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles, \%cat_order,\@code_order); } my $lonhost = $r->dir_config('lonHostID'); my ($storeresult,$result,$customized) = &print_request_outcome($r,$lonhost,$dom,\@codetitles, \@code_order,$instcredits); $r->print($result); if (($storeresult eq 'ok') || ($storeresult eq 'created')) { if ($storeresult eq 'ok') { $r->print('<p><a href="/adm/requestcourse?action=view&state=details&showdom='.$dom.'&cnum='. $env{'form.cnum'}.'">'. &mt('Modify this request').'</a>'.(' 'x4). '<a href="/adm/requestcourse">'.&mt('Make another request').'</a></p>'); } if (&Apache::loncoursequeueadmin::author_prompt()) { unless ($customized) { &print_author_prompt($r,$env{'form.action'},$env{'form.cnum'},$env{'form.showdom'}, $env{'form.crstype'},$storeresult); } } elsif ($storeresult eq 'created') { unless ($customized) { $r->print('<p><a href="/adm/requestcourse">'.&mt('Make another request').'</a></p>'); } } } } elsif ($state eq 'reqauthor') { my ($result,@links); if ($env{'form.requestauthor'}) { $r->print(&Apache::loncoursequeueadmin::process_reqauthor(\$result)); if ($result eq 'created') { my $role = 'au'; my $spec = "$role./$env{'form.showdom'}/"; push(@links,&mt('Enter your Authoring Space with role: [_1]', '<a href="/adm/roles?selectrole=1&'.$spec.'=1">'. &Apache::lonnet::plaintext($role).'</a>')); } } if (($env{'form.disposition'} eq 'created') && ($env{'form.cnum'} =~ /^$match_courseid$/) && ($env{'form.showdom'} =~ /^$match_domain$/)) { my ($spec,$area,$role,$type); my $role = 'cc'; my $spec = "$role./$env{'form.showdom'}/$env{'form.cnum'}"; my $type = 'Course'; if ($env{'form.crstype'} eq 'community') { $type = 'Community'; } my $showrole = &Apache::lonnet::plaintext($role,$type); unshift(@links,&mt('Enter new course with role: [_1]', '<a href="/adm/roles?selectrole=1&'.$spec.'=1">'.$showrole.'</a>')); } if (@links > 1) { $r->print(&mt('New roles will be listed on your [_1]Roles[_2] page.', '<a href="/adm/roles">','</a>').' '.&mt('Choose a role:'). '<ul>'); foreach my $link (@links) { $r->print('<li>'.$link.'</li>'); } $r->print('</ul>'); } elsif (@links == 1) { $r->print('<p>'.$links[0].'</p>'); } } my @excluded = &get_excluded_elements($dom,$states,$action,$state,$showcredits); if ($state eq 'personnel') { push(@excluded,'persontotal'); } if ($state eq 'review') { if (@disallowed > 0) { my @items = qw(uname dom lastname firstname emailaddr hidedom role newsec); my @currsecs = ¤t_lc_sections(); if (@currsecs) { push(@items,'sec'); } my $count = 0; for (my $i=0; $i<$env{'form.persontotal'}; $i++) { unless ($env{'form.person_'.$i.'_uname'} eq '') { if (grep(/^$i$/,@disallowed)) { foreach my $item (@items) { $env{'form.person_'.$i.'_'.$item} = ''; } } else { foreach my $item (@items) { $env{'form.person_'.$count.'_'.$item} = $env{'form.person_'.$i.'_'.$item}; } } } $count ++; } $env{'form.persontotal'} = $count; } } if ($state eq 'enrollment') { push(@excluded,('sectotal','crosslisttotal')); } if (($state eq 'process') || ($state eq 'reqauthor')) { $r->print('</form>'); } else { $r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'</form>'); &display_navbuttons($r,$dom,$formname,$prev,$navtxt{'prev'},$next, $navtxt{'next'},$state); } return; } sub print_author_prompt { my ($r,$action,$cnum,$showdom,$crstype,$storeresult) = @_; $r->print('<h3>'.&mt('Access to Authoring Space').'</h3>'. '<p>'. &mt('Although assessment items can be created directly inside a course, such items only use part of the assessment capabilities of LON-CAPA.'). '<br />'. &mt('By contrast, items created in Authoring Space, then imported into a course, can use all of the features of the assessment engine.').'</p>'. '<p>'.&mt('Request Authoring Space access now?'). '<span class="LC_nobreak"> '. '<label><input type="radio" name="requestauthor" value="1" />'.&mt('Yes').'</label>'. (' 'x2). '<label><input type="radio" name="requestauthor" value="0" checked="checked"/>'.&mt('No').'</label>'. '</span></p>'. '<input type="submit" name="newauthor" value="'.&mt('Submit authoring request').'" />'. '<input type="hidden" name="state" value="reqauthor" />'. '<input type="hidden" name="action" value="'.$action.'" />'. '<input type="hidden" name="cnum" value="'.$cnum.'" />'. '<input type="hidden" name="showdom" value="'.$showdom.'" />'. '<input type="hidden" name="crstype" value="'.$crstype.'" />'. '<input type="hidden" name="disposition" value="'.$storeresult.'" />'. '<br />'); } sub get_usertype { my ($persondom,$personname,$curr_rules,$got_rules) = @_; my ($rules,$ruleorder) = &Apache::lonnet::inst_userrules($persondom,'username'); my $usertype = &Apache::lonuserutils::check_usertype($persondom,$personname, $rules,$curr_rules,$got_rules); return $usertype; } sub check_newuser_rules { my ($persondom,$personname,$alerts,$rulematch,$inst_results,$curr_rules, $got_rules) = @_; my $allowed = 1; my $newuser = 1; my ($checkhash,$userchkmsg,$authtype,$authparam); my $checks = { 'username' => 1 }; $checkhash->{$personname.':'.$persondom} = { 'newuser' => $newuser }; &Apache::loncommon::user_rule_check($checkhash,$checks,$alerts,$rulematch, $inst_results,$curr_rules,$got_rules); if (ref($alerts->{'username'}) eq 'HASH') { if (ref($alerts->{'username'}{$persondom}) eq 'HASH') { my $domdesc = &Apache::lonnet::domain($persondom,'description'); if ($alerts->{'username'}{$persondom}{$personname}) { if (ref($curr_rules->{$persondom}) eq 'HASH') { $userchkmsg = &Apache::loncommon::instrule_disallow_msg('username', $domdesc,1). &Apache::loncommon::user_rule_formats($persondom, $domdesc,$curr_rules->{$persondom}{'username'}, 'username'); } $allowed = 0; } } } if ($allowed) { if (ref($rulematch) eq 'HASH') { if (ref($rulematch->{$personname.':'.$persondom}) eq 'HASH') { my $matchedrule = $rulematch->{$personname.':'.$persondom}{'username'}; my ($rules,$ruleorder) = &Apache::lonnet::inst_userrules($persondom,'username'); if (ref($rules) eq 'HASH') { if (ref($rules->{$matchedrule}) eq 'HASH') { $authtype = $rules->{$matchedrule}{'authtype'}; $authparam = $rules->{$matchedrule}{'authparm'}; } } } } } return ($allowed,$userchkmsg,$authtype,$authparam); } sub get_excluded_elements { my ($dom,$states,$action,$state,$showcredits) = @_; my @excluded = ('counter'); my ($elements,$instcredits) = &form_elements($dom,$showcredits); 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) eq 'HASH') && (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, $showcredits,$instcredits,$invalidcrosslist) =@_; my ($sections,$autoenroll,$access_dates,$output,$hasauto,$hascredits, $creditsrow,$domdefcredits); 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 ($showcredits) { unless ($env{'form.crstype'} eq 'community') { my %domdefs = &Apache::lonnet::get_domain_defaults($dom); $domdefcredits = $domdefs{$env{'form.crstype'}.'credits'}; } } if ($env{'form.crstype'} eq 'official') { if (&Apache::lonnet::auto_run('',$dom)) { $output = &show_invalid_crosslists($invalidcrosslist); my ($section_form,$crosslist_form); if ($instcode ne '') { $section_form = &inst_section_selector($dom,$instcode); if ($section_form eq '') { my $sectotal = $env{'form.sectotal'}; if (!$sectotal) { $sectotal = 1; } if ($env{'form.addsection'}) { $sectotal ++; } for (my $i=0; $i<$sectotal; $i++) { $section_form .= §ions_form($dom,$instcode,$i); } if ($section_form) { $section_form .= &Apache::lonhtmlcommon::row_title(&mt('Add another')). '<input name="sectotal" type="hidden" value="'.$sectotal.'" />'. '<input name="addsection" type="checkbox" value="'.$sectotal.'"'. ' onclick="javascript:nextPage(document.'.$formname.",'".$env{'form.state'}. "'".');" />'.&mt('Add?').&Apache::lonhtmlcommon::row_closure(); } } } if ($section_form) { $sections = &Apache::lonhtmlcommon::row_headline(). '<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Sections'). ' '.&mt('Sections for auto-enrollment').'</h3>'. &Apache::lonhtmlcommon::row_closure(1). $section_form; } my $crosslisttotal = $env{'form.crosslisttotal'}; if (!$crosslisttotal) { $crosslisttotal = 1; } if ($env{'form.addcrosslist'}) { $crosslisttotal ++; } for (my $i=0; $i<$crosslisttotal; $i++) { $crosslist_form .= &coursecode_form($dom,'crosslist',$codetitles, $cat_titles,$cat_order,$i); } if ($crosslist_form) { $crosslist_form .= &Apache::lonhtmlcommon::row_title(&mt('Add another')). '<input name="crosslisttotal" type="hidden" value="'.$crosslisttotal.'" />'. '<input name="addcrosslist" type="checkbox" value="'.$crosslisttotal.'"'. ' onclick="javascript:nextPage(document.'.$formname.",'".$env{'form.state'}. "'".');" />'.&mt('Add?').&Apache::lonhtmlcommon::row_closure(); $sections .= &Apache::lonhtmlcommon::row_headline. '<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Crosslist').' '.&mt('Crosslisted courses for auto-enrollment').'</h3>'. &Apache::lonhtmlcommon::row_closure(1). $crosslist_form; } $hasauto = 1; $autoenroll = &Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic('Course_Request_Autoadd').' '.&mt('Add registered students automatically')). '<span class="LC_nobreak"><label>'. '<input type="radio" name="autoadds" value="1">'. &mt('Yes').'</label>'.(' 'x3).'<label>'. '<input type="radio" name="autoadds" value="0" checked="checked">'. &mt('No').'</label></span>'. &Apache::lonhtmlcommon::row_closure(1). &Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic('Course_Request_Autodrop').' '.&mt('Drop unregistered students automatically')). '<span class="LC_nobreak"><label>'. '<input type="radio" name="autodrops" value="1">'. &mt('Yes').'</label>'.(' 'x3).'<label>'. '<input type="radio" name="autodrops" value="0" checked="checked">'. &mt('No').'</label></span>'. &Apache::lonhtmlcommon::row_closure(1). &date_setting_table($starttime,$endtime,$formname,'enroll', $hasauto,undef,%enrolltitles); if ($showcredits) { if ($instcredits) { $creditsrow = &mt('[quant,_1,credit]',$instcredits); } else { $creditsrow = '<span class="LC_nobreak">'. '<input type="text" size="3" name="coursecredits"'. ' value="'.$domdefcredits.'" />'; } $hascredits = 1; } } } elsif (($env{'form.crstype'} eq 'unofficial') || ($env{'form.crstype'} eq 'textbook')) { if ($showcredits) { $creditsrow = '<span class="LC_nobreak">'. '<input type="text" size="3" name="coursecredits"'. ' value="'.$domdefcredits.'"/>'; $hascredits = 1; } } my $access_dates = &date_setting_table($starttime,$endtime,$formname,'access',$hasauto, $hascredits,%accesstitles); $output .= &Apache::lonhtmlcommon::start_pick_box(); if ($sections) { $output .= $sections; } if ($autoenroll) { $output .= &Apache::lonhtmlcommon::row_headline('Auto-enroll'). '<h3>'.&mt('Auto-enrollment settings').'</h3>'. &Apache::lonhtmlcommon::row_closure(1). $autoenroll; } if ($access_dates) { my $header = &mt('Access dates for students'); if ($env{'form.crstype'} eq 'community') { $header = &mt('Access dates for community members'); } $output .= &Apache::lonhtmlcommon::row_headline('Access'). '<h3>'.$header.'</h3>'. &Apache::lonhtmlcommon::row_closure(1). $access_dates; } if ($creditsrow) { $output .= &Apache::lonhtmlcommon::row_headline('Credits'). '<h3>'.&mt('Credits earned by students').'</h3>'. &Apache::lonhtmlcommon::row_closure(1). &Apache::lonhtmlcommon::row_title(&mt('Default credits')). $creditsrow. &Apache::lonhtmlcommon::row_closure(1); } return '<div>'.&Apache::lonhtmlcommon::start_pick_box().$output. &Apache::lonhtmlcommon::end_pick_box().'</div>'; } sub show_invalid_crosslists { my ($invalidcrosslist) = @_; my $output; if (ref($invalidcrosslist) eq 'ARRAY') { if (@{$invalidcrosslist} > 0) { $output = '<div class="LC_warning">'. &mt('The following crosslisted courses were invalid:').'<ul>'; foreach my $item (@{$invalidcrosslist}) { $output .= '<li>'.$item.'</li>'; } $output .= '</ul></div><br />'; } } return $output; } sub inst_section_selector { my ($dom,$instcode) = @_; my @sections = &Apache::lonnet::auto_get_sections(undef,$dom,$instcode); my $sectotal = scalar(@sections); my $output; if ($sectotal) { $output .= &Apache::lonhtmlcommon::row_title(&mt('Sections of [_1]',$instcode)). &Apache::loncommon::start_data_table(). &Apache::loncommon::start_data_table_row(). '<th>'.&mt('Include?').'<input type="hidden" name="sectotal" '. 'value="'.$sectotal.'" /></th>'. '<th>'.&mt('Institutional Section').'</th>'. '<th>'.&Apache::loncommon::help_open_topic('Course_Request_LCSection'). ' '.&mt('LON-CAPA section').'</th>'. &Apache::loncommon::end_data_table_row(); for (my $i=0; $i<@sections; $i++) { my $colflag = $i%2; my $secon = ' checked="checked"'; my $secoff = ''; if ($env{'form.origcnum'}) { $secoff = $secon; $secon=''; } $output .= &Apache::loncommon::start_data_table_row(). '<td><label><input type="radio" name="sec_'.$i. '"'.$secon.' value="1" />'.&mt('Yes').'</label>'. (' 'x2).'<label><input type="radio" name="sec_'.$i. '"'.$secoff.' value="0" />'.&mt('No').'</label></td>'. '<td align="center">'.$sections[$i]. '<input type="hidden" name="secnum_'.$i.'" value="'. $sections[$i].'" /></td>'. '<td><input type="text" size="10" name="loncapasec_'.$i. '" value="'.$sections[$i].'" /></td>'. &Apache::loncommon::end_data_table_row(); } $output .= &Apache::loncommon::end_data_table(). &Apache::lonhtmlcommon::row_closure(); } return $output; } sub date_setting_table { my ($starttime,$endtime,$formname,$prefix,$hasauto,$hascredits,%datetitles)=@_; my ($perpetual,$table); my $startform = &Apache::lonhtmlcommon::date_setter($formname,$prefix.'start', $starttime,'','','',1,'','','',1); my $endform = &Apache::lonhtmlcommon::date_setter($formname,$prefix.'end', $endtime,'','','',1,'','','',1); my $closure = ''; if ($prefix eq 'access') { $perpetual = ' <span class="LC_nobreak"><label>'. '<input type="checkbox" name="no_end_date" />'. &mt('No end date').'</label></span>'; unless ($hascredits) { $closure = '1'; } } my %help_item = ( access => { start => 'Course_Request_Access_Start', end => 'Course_Request_Access_End', }, enroll => { start => 'Course_Request_Enroll_Start', end => 'Course_Request_Enroll_End', }, ); if ($hasauto) { $help_item{'access'}{'start'} = 'Course_Request_RegAccess_Start'; $help_item{'access'}{'end'} = 'Course_Request_RegAccess_End'; } $table = &Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic($help_item{$prefix}{'start'}). ' '.&mt($datetitles{'start'})).$startform. &Apache::lonhtmlcommon::row_closure(1). &Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic($help_item{$prefix}{'end'}). ' '.&mt($datetitles{'end'})).$endform.$perpetual. &Apache::lonhtmlcommon::row_closure($closure); return $table; } sub print_personnel_menu { my ($dom,$formname,$crstype,$invalidcrosslist) = @_; my $output; if ($crstype eq 'official') { if (&Apache::lonnet::auto_run('',$dom)) { $output .= &show_invalid_crosslists($invalidcrosslist); } } $output .= '<div>'.&Apache::lonhtmlcommon::start_pick_box(); my $persontotal = $env{'form.persontotal'}; if ((!defined($persontotal)) || (!$persontotal)) { $persontotal = 1; } if ($env{'form.addperson'}) { $persontotal ++; } my @items = ('uname','dom','lastname','firstname','emailaddr','hidedom'); my $type = 'Course'; if ($crstype eq 'community') { $type = 'Community'; } my $roleoptions; my @roles = &Apache::lonuserutils::roles_by_context('course','',$type); foreach my $role (@roles) { my $plrole = &Apache::lonnet::plaintext($role,$type); $roleoptions .= ' <option value="'.$role.'">'.$plrole.'</option>'."\n"; } my %customroles=&Apache::lonuserutils::my_custom_roles(); if (keys(%customroles) > 0) { foreach my $cust (sort(keys(%customroles))) { my $custrole="cr/$env{'user.domain'}/$env{'user.name'}/$cust"; $roleoptions .= ' <option value="'.$custrole.'">'.$cust.'</option>'."\n"; } } my @currsecs = ¤t_lc_sections(); my ($existtitle,$existops,$existmult,$newtitle,$seccolspan); if (@currsecs) { my $existsize = scalar(@currsecs); if ($existsize > 3) { $existsize = 3; } if ($existsize > 1) { $existmult = ' multiple="multiple" size="'.$existsize.'" '; } @currsecs = sort { $a <=> $b } (@currsecs); $existtitle = &mt('Official').': '; $existops = '<option value="">'.&mt('None').'</option>'; foreach my $sec (@currsecs) { $existops .= '<option value="'.$sec.'">'.$sec.'</option>'."\n"; } $seccolspan = ' colspan="2"'; $newtitle = &mt('Other').': '; } if ($persontotal) { my %lt = &Apache::lonlocal::texthash( community => 'Requestor is automatically assigned Coordinator role.', official => 'Requestor is automatically assigned Course Coordinator role.', ); $lt{'unofficial'} = $lt{'official'}; $lt{'textbook'} = $lt{'textbook'}; $output .= &Apache::lonhtmlcommon::row_headline(). '<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Personnel').' '.$lt{$crstype}.' '.&mt('Include other personnel?').'</h3>'; } my $cansearch = 1; my @alldoms = &Apache::lonnet::all_domains(); if (@alldoms == 1) { my %domsrch = &Apache::lonnet::get_dom('configuration', ['directorysrch'],$alldoms[0]); if (ref($domsrch{'directorysrch'}) eq 'HASH') { if ((!$domsrch{'directorysrch'}{'available'}) && ($domsrch{'directorysrch'}{'lcavailable'} eq '0')) { $cansearch = 0; } } } for (my $i=0; $i<$persontotal; $i++) { my @linkargs = map { 'person_'.$i.'_'.$_ } (@items); my $linkargstr = join("','",@linkargs); my $uname_form = '<input type="text" name="person_'.$i.'_uname" value="" size="20" />'; my $onchange = 'javascript:fix_domain('."'$formname','person_".$i."_dom',". "'person_".$i."_hidedom','person_".$i."_uname'".');'; my $udom_form = &Apache::loncommon::select_dom_form($dom,'person_'.$i.'_dom','', 1,$onchange). '<input type="hidden" name="person_'.$i.'_hidedom" value="" />'; my %form_elems; foreach my $item (@items) { next if (($item eq 'dom') || ($item eq 'uname') || ($item eq 'hidedom')); $form_elems{$item} = '<input type="text" name="person_'.$i.'_'.$item.'" '. 'value="" readonly="readonly" />'; } my $roleselector = '<select name="person_'.$i.'_role">'."\n". $roleoptions.'</select>'; my $sectionselector; if (@currsecs) { $sectionselector = $existtitle.'<select name="person_'.$i.'_sec"'. $existmult.'>'."\n".$existops.'</select>'.(' ' x3); } $sectionselector .= $newtitle. '<input type="text" name="person_'.$i.'_newsec" size="15" value="" />'."\n"; my $usersrchlink; if ($cansearch) { my $usersrchlinktxt = &mt('Search for user'); $usersrchlink = &Apache::loncommon::selectuser_link($formname,@linkargs,$dom, $usersrchlinktxt); } else { $usersrchlink = ' '; } my $userchklinktxt = &mt('Check username'); my $userchklink = &Apache::loncommon::selectuser_link($formname,@linkargs,$dom, $userchklinktxt,'checkusername'); $output .= &Apache::lonhtmlcommon::row_title(&mt('Additional Personnel')). '<table><tr><td align="center" valign="middle"><b>'.$usersrchlink.'</b></td>'."\n". '<td align="left" valign="top" colspan="2"><span class="LC_nobreak">'. &mt('Username').': '.$uname_form.' '.$userchklink.'</span><br />'."\n". '<span class="LC_nobreak">'.&mt('Domain').': '.$udom_form.'</span></td>'. '</tr>'."\n".'<tr>'. '<td align="center" valign="top">'.&mt('First Name').'<br />'.$form_elems{'firstname'}.'</td>'."\n". '<td align="center" valign="top">'.&mt('Last Name').'<br />'.$form_elems{'lastname'}.'</td>'."\n". '<td align="center" valign="top">'.&mt('E-mail').'<br />'.$form_elems{'emailaddr'}.'</td></tr>'."\n". '<tr><td align="center" valign="top">'.&Apache::loncommon::help_open_topic('Course_Roles').' '.&mt('Role').'<br />'.$roleselector.'</td>'."\n". '<td'.$seccolspan.' align="center" valign="top">'. &Apache::loncommon::help_open_topic('Course_Request_Rolesection').' '.&mt('LON-CAPA Section(s)').'<br />'.$sectionselector.'</td>'."\n". '</tr></table>'.&Apache::lonhtmlcommon::row_closure(); } $output .= &Apache::lonhtmlcommon::row_title(&mt('Add another')). '<input name="persontotal" type="hidden" value="'.$persontotal.'" />'. '<input name="addperson" type="checkbox" value="'.$persontotal.'"'. ' onclick="javascript:nextPage(document.'.$formname.",'".$env{'form.state'}. "'".');" />'.&mt('Add?').&Apache::lonhtmlcommon::row_closure(1). &Apache::lonhtmlcommon::end_pick_box().'</div>'; if ($crstype eq 'community') { $output .= '<p>'.&mt('You may also add users later, once the community has been created, by using the "Manage community users" link, accessible from the "Main Menu".').'</p>'; } else { $output .= '<p>'.&mt('You may also add users later, once the course has been created, by using the "Manage course users" link, accessible from the "Main Menu".').'</p>'; } return $output; } sub current_lc_sections { my @currsecs; if ($env{'form.sectotal'}) { for (my $i=0; $i<$env{'form.sectotal'}; $i++) { if ($env{'form.sec_'.$i}) { if (defined($env{'form.loncapasec_'.$i})) { my $lcsec = $env{'form.loncapasec_'.$i}; unless (grep(/^\Q$lcsec\E$/,@currsecs)) { push(@currsecs,$lcsec); } } } } } return @currsecs; } sub sorted_request_history { my ($dom,$action,$curr_req) = @_; my ($after,$before,$statusfilter,$crstypefilter); if ($env{'form.status'} ne '') { $statusfilter = $env{'form.status'}; } if ($env{'form.crstype'} ne '') { $crstypefilter = $env{'form.crstype'}; } if (ref($curr_req) eq 'HASH') { $after = $curr_req->{'requested_after_date'}, $before = $curr_req->{'requested_before_date'}; $statusfilter = $curr_req->{'status'}; $crstypefilter = $curr_req->{'crstype'}; } my %statusinfo = &Apache::lonnet::dump('courserequests',$env{'user.domain'}, $env{'user.name'},'^status:'.$dom); my %queue_by_date; my ($types,$typenames) = &Apache::loncommon::course_types(); foreach my $key (keys(%statusinfo)) { if ($action eq 'view') { next unless (($statusinfo{$key} eq 'approval') || ($statusinfo{$key} eq 'pending')); } else { next unless (($statusfilter eq 'any') || ($statusfilter eq $statusinfo{$key})); } (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 $reqtime = $history{'reqtime'}; my $lastupdate = $history{'timestamp'}; my $crstype = $history{'crstype'}; my $disposition = $history{'disposition'}; my $status = $history{'status'}; my $uniquecode = $history{'code'}; if ($action eq 'view') { next if ((exists($history{'status'})) && ($history{'status'} eq 'created')); } else { next if (($reqtime < $after) || ($reqtime > $before)); } next unless (($crstypefilter eq 'any') || ($crstypefilter eq $crstype)); if ($action eq 'view') { next unless (($disposition eq 'approval') || ($disposition eq 'pending')); } if (ref($history{'details'}) eq 'HASH') { $entry = $requestkey.':'.$crstype.':'. &escape($history{'details'}{'cdescr'}); if ($action eq 'log') { $entry .= ':'.$uniquecode.':'.$lastupdate.':'; if ($statusinfo{$key} ne '') { $entry .= $statusinfo{$key}; } elsif ($status ne '') { $entry .= $status; } else { $entry .= $disposition; } } if ($crstype eq 'official') { $entry .= ':'.&escape($history{'details'}{'instcode'}); } } if ($entry ne '') { if (exists($queue_by_date{$reqtime})) { if (ref($queue_by_date{$reqtime}) eq 'ARRAY') { push(@{$queue_by_date{$reqtime}},$entry); } } else { @{$queue_by_date{$reqtime}} = ($entry); } } } } return %queue_by_date; } sub print_request_status { my ($dom,$action) = @_; my %queue_by_date = &sorted_request_history($dom,$action); my @sortedtimes = sort {$a <=> $b} (keys(%queue_by_date)); my $formname = 'requestcrs'; my ($types,$typenames) = &Apache::loncommon::course_types(); my $output = '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'."\n". '<input type="hidden" name="state" value="'.$env{'form.state'}.'" />'."\n". '<input type="hidden" name="crstype" value="'.$env{'form.crstype'}.'" />'."\n". '<input type="hidden" name="showdom" value="" />'."\n". '<input type="hidden" name="cnum" value="" />'."\n"; if (@sortedtimes > 0) { my $desctitle; if ($env{'form.crstype'} eq 'any') { $desctitle = &mt('Course/Community Description') } elsif ($env{'form.crstype'} eq 'community') { $desctitle = &mt('Community Description') } else { $desctitle = &mt('Course Description'); } $output .= &Apache::loncommon::start_data_table(). &Apache::loncommon::start_data_table_header_row(). '<th>'.&mt('Action').'</th>'. '<th>'.$desctitle.'</th>'. '<th>'.&mt('Domain').'</th>'; if ($env{'form.crstype'} eq 'any') { $output .= '<th>'.&mt('Type').'</th>'; } if (($env{'form.crstype'} eq 'any') || ($env{'form.crstype'} eq 'official')) { $output .= '<th>'.&mt('Institutional Code').'</th>'; } $output .= '<th>'.&mt('Date requested').'</th>'. &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(). '<td><input type="button" value="'.&mt('Select').'" onclick="javascript:chooseRequest('."'$cdom','$cnum'".')" /></td>'. '<td>'.&unescape($desc).'</td>'. '<td>'.$cdom.'</td>'; if ($env{'form.crstype'} eq 'any') { my $typename; if (ref($typenames) eq 'HASH') { $typename = &mt($typenames->{$type}); } if ($typename eq '') { $typename = &mt('Unknown type'); } $output .= '<td>'.$typename.'</td>'; } 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 .= '<td>'.$showinstcode.'</td>'; } $output .= '<td>'.$showtime.'</td>'. &Apache::loncommon::end_data_table_row(); } } } $output .= &Apache::loncommon::end_data_table(); } else { if ($env{'form.crstype'} eq 'any') { $output .= '<div>'.&mt('You have no matching course or community requests awaiting approval by a Domain Coordinator or held in a queue pending administrative action at your institution.').'</div>'; } elsif ($env{'form.crstype'} eq 'community') { $output .= '<div>'.&mt('You have no matching community requests awaiting approval by a Domain Coordinator or held in a queue pending administrative action at your institution.').'</div>'; } else { $output .= '<div>'.&mt('You have no matching course requests awaiting approval by a Domain Coordinator or held in a queue pending administrative action at your institution.').'</div>'; } } $output .= ' <br /><input type="button" name="prev" value="'.&mt('Back').'" onclick="javascript:backPage(document.'.$formname.",'crstype'".')" />'; return $output; } sub print_cancel_request { my ($dom,$cnum) = @_; my $requestkey = $dom.'_'.$cnum; my ($result,$output); if ($requestkey =~ /^($match_domain)_($match_courseid)$/) { my %history = &Apache::lonnet::restore($requestkey,'courserequests', $env{'user.domain'},$env{'user.name'}); my $timestamp = $history{'reqtime'}; my $crstype = $history{'crstype'}; my $status = $history{'status'}; if (($status eq 'cancelled') || ($status eq 'created')) { if ($status eq 'cancelled') { $output = &mt('This request has already been cancelled.'); } elsif ($status eq 'created') { $output = &mt('This request has already been processed, and a course created.'); } $output = &mt('No further action will be taken'); } elsif (ref($history{'details'}) eq 'HASH') { my ($types,$typename) = &Apache::loncommon::course_types(); my $showtype = $crstype; if (defined($typename->{$crstype})) { $showtype = $typename->{$crstype}; } $output = '<p>'.&Apache::loncommon::start_data_table(). &Apache::loncommon::start_data_table_header_row(). '<th>'.&mt('Description').'</th><th>'.&mt('Requested').'</th>'. '<th>'.&mt('Type').'</th>'. &Apache::loncommon::end_data_table_header_row(). &Apache::loncommon::start_data_table_row(). '<td>'.$history{details}{'cdescr'}.'</td><td>'. &Apache::lonlocal::locallocaltime($timestamp).'</td>'. '<td>'.&mt($showtype).'</td>'. &Apache::loncommon::end_data_table_row(). &Apache::loncommon::end_data_table(). '<br /><div class="LC_warning">'; if ($crstype eq 'community') { $output .= &mt('Cancelling the request will remove it from the queue of pending community requests').'</div>'; } else { $output .= &mt('Cancelling the request will remove it from the queue of pending course requests').'</div>'; } $result = 'ok'; } else { $output = '<div class="LC_error">'.&mt('No record exists for the course ID').'</div>'; } } else { $output = '<div class="LC_error">'.&mt('Invalid course ID').'</div>'; } 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". &mt('Your request will be removed.'); &js_escape(\$alert); return << "ENDJS"; function nextPage(formname,nextstate) { if (confirm('$alert')) { formname.state.value = nextstate; formname.submit(); } return; } ENDJS } sub print_request_logs { my ($r,$dom,$jscript,$loaditems,$crumb,$usetabs) = @_; my $title; if ($env{'form.crstype'} eq 'community') { $title = 'Community Request Logs'; } elsif ($env{'form.crstype'} eq 'any') { $title = 'Course/Community Request Logs'; } else { $title = 'Course Request Logs'; } $r->print(&header($title,$jscript,$loaditems).$crumb); if ($usetabs) { &startContentScreen($r,'textbooklogs'); } my $formname = 'requestcrs'; $r->print('<form action="/adm/requestcourse" method="post" name="'.$formname.'" onsubmit="javascript:setPage(this);">'."\n". '<input type="hidden" name="action" value="log" />'."\n". '<input type="hidden" name="state" value="display" />'."\n"); # set defaults my $now = time(); my $defstart = $now - (7*24*3600); #7 days ago my %defaults = ( page => '1', show => '10', crstype => 'any', status => 'any', requested_before_date => $now, requested_after_date => $defstart, ); my ($types,$typenames) = &Apache::loncommon::course_types(); my $more_records = 0; my %curr; foreach my $item ('show','page','crstype','status') { $curr{$item} = $env{'form.'.$item}; } $curr{'requested_after_date'} = &Apache::lonhtmlcommon::get_date_from_form('requested_after_date'); $curr{'requested_before_date'} = &Apache::lonhtmlcommon::get_date_from_form('requested_before_date'); foreach my $key (keys(%defaults)) { if ($curr{$key} eq '') { $curr{$key} = $defaults{$key}; } } my ($statuses,$statusnames) = &reqstatus_names($curr{'crstype'}); $r->print('<input type="hidden" name="page" value="'.$curr{'page'}.'" />'. &requestlog_display_filter($formname,\%curr)); my %queue_by_date = &sorted_request_history($dom,$env{'form.action'},\%curr); my @sortedtimes = sort {$a <=> $b} (keys(%queue_by_date)); my $showntablehdr = 0; my $tablehdr = &Apache::loncommon::start_data_table(). &Apache::loncommon::start_data_table_header_row(). '<th> </th><th>'.&mt('Request Date').'</th>'. '<th>'.&mt('Description').'</th>'; if ($curr{'crstype'} eq 'any') { $tablehdr .= '<th>'.&mt('Course Type').'</th>'; } if (($curr{'crstype'} eq 'official') || ($curr{'crstype'} eq 'any')) { $tablehdr .= '<th>'.&mt('Institutional Code').'</th>'; } my $showuniquecode; my %domconfig = &Apache::lonnet::get_dom('configuration',['requestcourses'],$dom); if (($curr{'status'} eq 'any') || ($curr{'status'} eq 'created')) { if (ref($domconfig{'requestcourses'}) eq 'HASH') { if (ref($domconfig{'requestcourses'}{'uniquecode'}) eq 'HASH') { if ($curr{'crstype'} eq 'any') { my @types = qw(official unofficial community textbook); foreach my $type (@types) { if ($domconfig{'requestcourses'}{'uniquecode'}{$type}) { $showuniquecode = 1; last; } } } elsif ($domconfig{'requestcourses'}{'uniquecode'}{$curr{'crstype'}}) { $showuniquecode = 1; } } } } if ($showuniquecode) { $tablehdr .= '<th>'.&mt('Unique Code').'</th>'; } if ($curr{'status'} eq 'any') { $tablehdr .= '<th>'.&mt('Status').'</th>'; } elsif ($curr{'status'} eq 'created') { $tablehdr .= '<th>'.&mt('Creation Date').'</th>'; } elsif ($curr{'status'} eq 'cancelled') { $tablehdr .= '<th>'.&mt('Cancellation Date').'</th>'; } elsif ($curr{'status'} eq 'rejected') { $tablehdr .= '<th>'.&mt('Rejection Date').'</th>'; } $tablehdr .= &Apache::loncommon::end_data_table_header_row(); my ($minshown,$maxshown); $minshown = 1; my $count = 0; if ($curr{'show'} ne &mt('all')) { $maxshown = $curr{'page'} * $curr{'show'}; if ($curr{'page'} > 1) { $minshown = 1 + ($curr{'page'} - 1) * $curr{'show'}; } } my $norecords; if (@sortedtimes > 0) { foreach my $item (@sortedtimes) { if ($curr{'show'} ne &mt('all')) { if ($count >= $curr{'page'} * $curr{'show'}) { $more_records = 1; last; } } $count ++; next if ($count < $minshown); if (!$showntablehdr) { $r->print($tablehdr); $showntablehdr = 1; } my $showtime = &Apache::lonlocal::locallocaltime($item); if (ref($queue_by_date{$item}) eq 'ARRAY') { foreach my $request (sort(@{$queue_by_date{$item}})) { my ($key,$crstype,$desc,$uniquecode,$timestamp,$status,$instcode) = split(':',$request); my ($cdom,$cnum) = split('_',$key); my $output = &Apache::loncommon::start_data_table_row(). '<td>'.$count.'</td>'. '<td>'.$showtime.'</td>'. '<td>'.&unescape($desc).'</td>'; if ($curr{'crstype'} eq 'any') { my $typename; if (ref($typenames) eq 'HASH') { $typename = &mt($typenames->{$crstype}); } if ($typename eq '') { $typename = &mt('Unknown type'); } $output .= '<td>'.$typename.'</td>'; } if (($curr{'crstype'} eq 'any') || ($curr{'crstype'} eq 'official')) { my $showinstcode; if ($crstype eq 'official') { $showinstcode = &unescape($instcode); } else { $showinstcode = &mt('Not applicable'); } $output .= '<td>'.$showinstcode.'</td>'; } if ($showuniquecode) { if ($status eq 'created') { $output .= '<td>'.$uniquecode.'</td>'; } else { $output .= '<td>'.&mt('Not applicable').'</td>'; } } if ($curr{'status'} eq 'any') { my $statusname = &mt('Unknown status'); if (ref($statusnames) eq 'HASH') { if ($statusnames->{$status} ne '') { $statusname = $statusnames->{$status}; } } if (($status eq 'created') || ($status eq 'cancelled') || ($status eq 'rejected')) { $statusname .= ' '.&Apache::lonlocal::locallocaltime($timestamp); } $output .= '<td>'.$statusname.'</td>'; } elsif (($status eq 'created') || ($status eq 'cancelled') || ($status eq 'rejected')) { $output .= '<td>'.&Apache::lonlocal::locallocaltime($timestamp).'</td>'; } $output .= &Apache::loncommon::end_data_table_row(); $r->print($output); } } } if ($showntablehdr) { $r->print(&Apache::loncommon::end_data_table()); if (($curr{'page'} > 1) || ($more_records)) { $r->print('<table><tr>'); if ($curr{'page'} > 1) { $r->print('<td><a href="javascript:chgPage('."'previous'".');">'.&mt('Previous [_1] changes',$curr{'show'}).'</a></td>'); } if ($more_records) { $r->print('<td><a href="javascript:chgPage('."'next'".');">'.&mt('Next [_1] changes',$curr{'show'}).'</a></td>'); } $r->print('</tr></table>'); $r->print(<<"ENDSCRIPT"); <script type="text/javascript"> // <![CDATA[ function chgPage(caller) { if (caller == 'previous') { document.$formname.page.value --; } if (caller == 'next') { document.$formname.page.value ++; } document.$formname.submit(); return; } // ]]> </script> ENDSCRIPT } } else { $norecords = 1; } } else { $norecords = 1; } if ($norecords) { $r->print('<p class="LC_info">'. &mt('There are no records to display'). '</p>'); } if ($usetabs) { $r->print('<input type="hidden" name="tabs" value="on" />'); } $r->print('</form>'); if ($usetabs) { &endContentScreen($r); } $r->print(&Apache::loncommon::end_page()); return; } sub reqstatus_names { my ($crstype) = @_; my @statuses = qw(created approval pending rejected cancelled); my %statusnames = &Apache::lonlocal::texthash ( created => 'Created', approval => 'Queued pending approval', pending => 'Queued pending validation', rejected => 'Request rejected', cancelled => 'Request cancelled', ); if (($crstype eq 'official') || ($crstype eq 'unofficial') || ($crstype eq 'textbook')) { $statusnames{'created'} = &mt('Course created'); } elsif ($crstype eq 'community') { $statusnames{'created'} = &mt('Community created'); } return (\@statuses,\%statusnames); } sub requestlog_display_filter { my ($formname,$curr) = @_; my $nolink = 1; my $output = '<table><tr><td valign="top">'. '<span class="LC_nobreak"><b>'.&mt('Records/page:').'</b></span><br />'. &Apache::lonmeta::selectbox('show',$curr->{'show'},undef, (&mt('all'),5,10,20,50,100,1000,10000)). '</td><td> </td>'; my $startform = &Apache::lonhtmlcommon::date_setter($formname,'requested_after_date', $curr->{'requested_after_date'},undef, undef,undef,undef,undef,undef,undef,$nolink); my $endform = &Apache::lonhtmlcommon::date_setter($formname,'requested_before_date', $curr->{'requested_before_date'},undef, undef,undef,undef,undef,undef,undef,$nolink); $output .= '<td valign="top"><b>'.&mt('Window during which course/community was requested:').'</b><br />'. '<table><tr><td>'.&mt('After:'). '</td><td>'.$startform.'</td></tr>'. '<tr><td>'.&mt('Before:').'</td>'. '<td>'.$endform.'</td></tr></table>'. '</td>'. '<td> </td>'; my ($types,$typenames) = &Apache::loncommon::course_types(); if (ref($types) eq 'ARRAY') { if (@{$types} > 1) { $output .= '<td valign="top"><b>'. &mt('Course Type:').'</b><br /><select name="crstype">'; my $selstr = ''; if ($curr->{'crstype'} eq 'any') { $selstr = ' selected="selected"'; } $output .= '<option value="any"'.$selstr.'>'.&mt('All types').'</option>'."\n"; foreach my $crstype (@{$types}) { my $selstr = ''; if ($curr->{'crstype'} eq $crstype) { $selstr = ' selected="selected"'; } my $typename = $crstype; if (ref($typenames) eq 'HASH') { if ($typenames->{$crstype} ne '') { $typename = $typenames->{$crstype}; } } $output .= '<option value="'.$crstype.'"'.$selstr.'>'.&mt($typename).'</option>'."\n"; } $output .= '</select></td>'; } } my ($statuses,$statusnames) = &reqstatus_names($curr->{'crstype'}); if (ref($statuses) eq 'ARRAY') { if (@{$statuses} > 1) { $output .= '<td valign="top"><b>'. &mt('Request Status:').'</b><br /><select name="status">'; my $selstr = ''; if ($curr->{'status'} eq 'any') { $selstr = ' selected="selected"'; } $output .= '<option value="any"'.$selstr.'>'.&mt('Any status').'</option>'."\n"; foreach my $status (@{$statuses}) { my $selstr = ''; if ($curr->{'status'} eq $status) { $selstr = ' selected="selected"'; } my $statusname = $status; if (ref($statusnames) eq 'HASH') { if ($statusnames->{$status} ne '') { $statusname = $statusnames->{$status}; } } $output .= '<option value="'.$status.'"'.$selstr.'>'.$statusname.'</option>'."\n"; } $output .= '</select></td>'; } } $output .= '</tr></table>'; # Update Display button $output .= '<p>'. '<input type="submit" value="'.&mt('Update Display').'" />'. '</p><hr />'; return $output; } sub print_review { my ($dom,$codetitles,$cat_titles,$cat_order,$code_order,$uname,$udom, $disallowed,$disallowmsg,$instcredits) = @_; my ($types,$typename) = &Apache::loncommon::course_types(); my ($owner,$ownername,$owneremail); if ($uname eq '' || $udom eq '') { $uname = $env{'user.name'}; $udom = $env{'user.domain'}; } $owner = $uname.':'.$udom; $ownername = &Apache::loncommon::plainname($uname,$udom,'first'); my %emails = &Apache::loncommon::getemails($uname,$udom); foreach my $email ('permanentemail','critnotification','notification') { $owneremail = $emails{$email}; last if ($owneremail ne ''); } my ($inst_headers,$inst_values,$crstypename,$enroll_headers,$enroll_values, $section_headers,$section_values,$personnel_headers,$personnel_values); $crstypename = $env{'form.crstype'}; if (ref($typename) eq 'HASH') { unless ($typename->{$env{'form.crstype'}} eq '') { $crstypename = &mt($typename->{$env{'form.crstype'}}); } } my $category = 'Course'; if ($env{'form.crstype'} eq 'community') { $category = 'Community'; } $inst_headers = '<th>'.&mt('Description').'</th><th>'.&mt('Type').'</th>'; $inst_values = '<td>'.$env{'form.cdescr'}.'</td><td>'.$crstypename.'</td>'; my $enrollrow_title = &mt('Default Access Dates').'<br />'. '('.&Apache::lonnet::plaintext('st',$category).')'; my $instcode; 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 .= '<th>'.$title.'</th>'; 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 .= '<td>'.$longitem.'</td>'; } } } if (ref($code_order) eq 'ARRAY') { foreach my $item (@{$code_order}) { $instcode .= $env{'form.instcode_'.$item}; } } $inst_headers .= '<th>'.&mt('Credits').'</th>'; if ($instcredits) { $inst_values .= '<td>'.$instcredits.'</td>'; } else { $inst_values .= '<td>'.$env{'form.coursecredits'}.'</td>'; } if (&Apache::lonnet::auto_run('',$dom)) { $enrollrow_title = &mt('Enrollment'); $enroll_headers = '<th>'.&mt('Automatic Adds').'</th>'. '<th>'.&mt('Automatic Drops').'</th>'. '<th>'.&mt('Enrollment Starts').'</th>'. '<th>'.&mt('Enrollment Ends').'</th>'; $section_headers = '<th>'.&mt('Sections').'</th>'. '<th>'.&mt('Crosslistings').'</th>'; my ($enrollstart,$enrollend) = &dates_from_form('enrollstart','enrollend'); my @autoroster = (&mt('No'),&mt('Yes')); $enroll_values = '<td>'.$autoroster[$env{'form.autoadds'}].'</td>'. '<td>'.$autoroster[$env{'form.autodrops'}].'</td>'. '<td>'.&Apache::lonlocal::locallocaltime($enrollstart).'</td>'. '<td>'.&Apache::lonlocal::locallocaltime($enrollend).'</td>'; $section_values = '<td><table class="LC_innerpickbox"><tr><th>'. &mt('Institutional section').'</th>'. '<th>'.&mt('LON-CAPA section').'</th></tr>'; my $secinfo; if ($env{'form.sectotal'} > 0) { for (my $i=0; $i<$env{'form.sectotal'}; $i++) { if ($env{'form.sec_'.$i}) { $secinfo .= '<tr><td>'.$env{'form.secnum_'.$i}.'</td><td>'; if ($env{'form.loncapasec_'.$i} ne '') { $secinfo .= $env{'form.loncapasec_'.$i}; } else { $secinfo .= &mt('None'); } $secinfo .= '</td></tr>'; } } } if ($secinfo eq '') { $secinfo = '<tr><td colspan="2">'.&mt('None').'</td></tr>'; } $section_values .= $secinfo.'</table></td><td>'. '<table class="LC_innerpickbox"><tr><th>'. &mt('Institutional course/section').'</th>'. '<th>'.&mt('LON-CAPA section').'</th></tr>'; my $xlistinfo; my $crosslisttotal = $env{'form.crosslisttotal'}; if (!$crosslisttotal) { $crosslisttotal = 1; } for (my $i=0; $i<$crosslisttotal; $i++) { if ($env{'form.crosslist_'.$i}) { $xlistinfo .= '<tr><td>'; 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'}.'</td><td>'; if ($env{'form.crosslist_'.$i.'_lcsec'}) { $xlistinfo .= $env{'form.crosslist_'.$i.'_lcsec'}; } else { $xlistinfo .= &mt('None'); } $xlistinfo .= '</td></tr>'; } } if ($xlistinfo eq '') { $xlistinfo = '<tr><td colspan="2">'.&mt('None').'</td></tr>'; } $section_values .= $xlistinfo; } $section_values .= '</table></td>'; } elsif (($env{'form.crstype'} eq 'unofficial') || ($env{'form.crstype'} eq 'textbook')) { $inst_headers .= '<th>'.&mt('Credits').'</th>'; $inst_values .= '<td>'.$env{'form.coursecredits'}.'</td>'; } my %ctxt = &clone_text(); $inst_headers .= '<th>'.&mt('Clone From').'</th>'; if (($env{'form.cloning'}) && ($env{'form.clonecrs'} =~ /^$match_name$/) && ($env{'form.clonedom'} =~ /^$match_domain$/)) { my $canclone = &Apache::loncoursequeueadmin::can_clone_course($uname, $udom,$env{'form.clonecrs'},$env{'form.clonedom'}, $env{'form.crstype'},$dom,$instcode); if ($canclone) { my %courseenv = &Apache::lonnet::userenvironment($env{'form.clonedom'}, $env{'form.clonecrs'},('description','internal.coursecode')); if (keys(%courseenv) > 0) { $inst_headers .= '<th>'.$ctxt{'dsh'}.'</th>'; $inst_values .= '<td>'.$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 .= '</td><td>'; 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 .= '</td>'; } else { $inst_values .= '<td>'.&mt('Unknown').'</td>'; } } else { $inst_values .= '<td>'.&mt('Not permitted'),'</td>'; } } else { $inst_values .= '<td>'.&mt('None').'</td>'; } $enroll_headers .= '<th>'.&mt('Access Starts').'</th>'. '<th>'.&mt('Access Ends').'</th>'; my ($accessstart,$accessend) = &dates_from_form('accessstart','accessend'); $enroll_values .= '<td>'.&Apache::lonlocal::locallocaltime($accessstart).'</td>'; if ($accessend == 0) { $enroll_values .= '<td>'.&mt('No end date').'</td>'; } else { $enroll_values .= '<td>'.&Apache::lonlocal::locallocaltime($accessend).'</td>'; } my $container = 'Course'; my $ccrole = 'cc'; if ($env{'form.crstype'} eq 'community') { $container = 'Community'; $ccrole = 'co'; } $personnel_headers = '<th>'.&mt('Name').'</th><th>'.&mt('Username:Domain'). '</th><th>'.&mt('Role').'</th><th>'.&mt('LON-CAPA Sections'). '</th>'; $personnel_values .= '<tr><td>'.$ownername.'</td><td>'.$owner.'</td>'. '<td>'.&Apache::lonnet::plaintext($ccrole,$container).'</td>'. '<td>'.&mt('None').'</td></tr>'; for (my $i=0; $i<$env{'form.persontotal'}; $i++) { if ($env{'form.person_'.$i.'_uname'} ne '') { if (ref($disallowed) eq 'ARRAY') { next if (grep(/^$i$/,@{$disallowed})); } my @officialsecs = &Apache::loncommon::get_env_multiple('form.person_'.$i.'_sec'); my @allsecs; foreach my $sec (@officialsecs) { next unless ($sec =~ /\w/); next if ($sec =~ /\W/); next if ($sec eq 'none'); push(@allsecs,$sec); } my $newsec = $env{'form.person_'.$i.'_newsec'}; $newsec =~ s/^\s+//; $newsec =~s/\s+$//; my @newsecs = split(/\s*[\s,;:]\s*/,$newsec); foreach my $sec (@newsecs) { next unless ($sec =~ /\w/); next if ($sec =~ /\W/); next if ($sec eq 'none'); if ($sec ne '') { unless (grep(/^\Q$sec\E$/,@allsecs)) { push(@allsecs,$sec); } } } my $showsec; if (@allsecs) { $showsec = join(', ',@allsecs); } if ($showsec eq '') { $showsec = &mt('None'); } if ($env{'form.person_'.$i.'_role'} eq $ccrole) { $showsec = &mt('None'); } my $role = $env{'form.person_'.$i.'_role'}; $personnel_values .= '<tr><td>'.$env{'form.person_'.$i.'_firstname'}.' '. $env{'form.person_'.$i.'_lastname'}.'</td>'. '<td>'.$env{'form.person_'.$i.'_uname'}.':'. $env{'form.person_'.$i.'_dom'}.'</td>'. '<td>'.&Apache::lonnet::plaintext($role,$container).'</td>'. '<td>'.$showsec.'</td></tr>'; } } my $output; if (ref($disallowed) eq 'ARRAY') { if (@{$disallowed} > 0) { if (ref($disallowmsg) eq 'HASH') { $output = '<p class="LC_warning">'. &mt('Not all requested personnel could be included.').'<ul>'; foreach my $item (@{$disallowed}) { $output .= '<li>'.$disallowmsg->{$item}.'</li>'; } $output .= '</ul></p>'; } } } $output .= '<div>'.&Apache::lonhtmlcommon::start_pick_box(). &Apache::lonhtmlcommon::row_title(&mt('Owner')). '<table class="LC_innerpickbox"><tr>'. '<th>'.&mt('Name').'</th>'. '<th>'.&mt('Username:Domain').'</th>'. '<th>'.&mt('E-mail address').'</th>'. '</tr><tr>'."\n". '<td>'.$ownername.'</td><td>'.$owner.'</td>'. '<td>'.$owneremail.'</td>'. '</tr></table>'."\n". &Apache::lonhtmlcommon::row_closure(). &Apache::lonhtmlcommon::row_title(&mt('Description')). '<table class="LC_innerpickbox"><tr>'.$inst_headers.'</tr>'."\n". '<tr>'.$inst_values.'</tr></table>'."\n". &Apache::lonhtmlcommon::row_closure(). &Apache::lonhtmlcommon::row_title($enrollrow_title). '<table class="LC_innerpickbox"><tr>'.$enroll_headers.'</tr>'."\n". '<tr>'.$enroll_values.'</tr></table>'."\n". &Apache::lonhtmlcommon::row_closure(); if ($section_headers ne '') { $output .= &Apache::lonhtmlcommon::row_title(&mt('Sections')). '<table class="LC_innerpickbox"><tr>'.$section_headers.'</tr>'."\n". '<tr>'.$section_values.'</tr></table>'."\n". &Apache::lonhtmlcommon::row_closure(); } $output .= &Apache::lonhtmlcommon::row_title(&mt('Personnel')). '<table class="LC_innerpickbox"><tr>'.$personnel_headers.'</tr>'."\n". $personnel_values.'</table>'."\n". &Apache::lonhtmlcommon::row_closure(1). &Apache::lonhtmlcommon::end_pick_box().'</div>'; return $output; } sub dates_from_form { my ($startname,$endname) = @_; my $startdate = &Apache::lonhtmlcommon::get_date_from_form($startname); my $enddate = &Apache::lonhtmlcommon::get_date_from_form($endname); if ($endname eq 'accessend') { if (exists($env{'form.no_end_date'}) ) { $enddate = 0; } } return ($startdate,$enddate); } sub courseinfo_form { my ($dom,$formname,$crstype,$next,$description) = @_; my %js_lt = &Apache::lonlocal::texthash( official => 'You must provide a (brief) course description.', community => 'You must provide a (brief) community description.' ); &js_escape(\%js_lt); $js_lt{'unofficial'} = $js_lt{'official'}; $js_lt{'textbook'} = $js_lt{'official'}; my $js_validate = <<"ENDJS"; <script type="text/javascript"> // <![CDATA[' function validateForm() { if ((document.$formname.cdescr.value == "") || (document.$formname.cdescr.value == "undefined")) { alert('$js_lt{$crstype}'); return; } nextPage(document.$formname,'$next'); } function toggleCloning() { var willclone; if (document.$formname.cloning.length > 1) { for (var i=0; i<document.$formname.cloning.length; i++) { if (document.$formname.cloning[i].checked) { willclone = document.$formname.cloning[i].value; } } } if (willclone == 1) { document.getElementById('cloneoptions').style.display="block"; } else { document.getElementById('cloneoptions').style.display="none"; document.$formname.clonecrs.value = ''; } } // ]] </script> ENDJS my $title = &mt('Brief Course Description'); my $clonetitle = &mt('Clone content and settings from an existing course?'); if ($crstype eq 'community') { $title = &mt('Brief Community Description'); $clonetitle = &mt('Clone content and settings from an existing community?'); } my $output .= $js_validate."\n".&Apache::lonhtmlcommon::start_pick_box(). &Apache::lonhtmlcommon::row_headline(). '<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Description').' '.$title.'</h3>'. &Apache::lonhtmlcommon::row_closure(1). &Apache::lonhtmlcommon::row_title(&mt('Description')). '<input type="text" size="60" name="cdescr" value="'.$description.'" />'; my ($home_server_pick,$numlib) = &Apache::loncommon::home_server_form_item($dom,'chome', 'default','hide'); if ($numlib > 1) { $output .= &Apache::lonhtmlcommon::row_closure(). &Apache::lonhtmlcommon::row_title(&mt('Home Server for Course')); } $output .= $home_server_pick. &Apache::lonhtmlcommon::row_closure(). &Apache::lonhtmlcommon::row_headline(). '<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Clone').' '.$clonetitle. &Apache::lonhtmlcommon::row_closure(1). &Apache::lonhtmlcommon::row_title(&mt('Clone?')). '<label><input type="radio" name="cloning" value="1" '. 'onclick="javascript:toggleCloning()" />'. &mt('Yes').(' 'x2).'</label><label>'. '<input type="radio" name="cloning" value="0" checked="checked" '. 'onclick="javascript:toggleCloning()" />'.&mt('No').'</label>'. '</h3>'. &Apache::lonhtmlcommon::row_closure(1). &Apache::lonhtmlcommon::row_headline(). '<div id="cloneoptions" style="display: none" >'. &Apache::lonhtmlcommon::start_pick_box(). &clone_form($dom,$formname,$crstype). &Apache::lonhtmlcommon::end_pick_box().'</div>'. &Apache::lonhtmlcommon::end_pick_box()."\n"; return $output; } sub clone_form { my ($dom,$formname,$crstype) = @_; my $type = 'Course'; if ($crstype eq 'community') { $type = 'Community'; } my %lt = &clone_text(); my $output .= &Apache::lonhtmlcommon::row_title($lt{'dmn'}).'<label>'. &Apache::loncommon::select_dom_form($dom,'clonedom').'</label>'. &Apache::lonhtmlcommon::row_closure(1). &Apache::lonhtmlcommon::row_title($lt{'cid'}).'<label>'. '<input type="text" size="25" name="clonecrs" value="" onfocus="this.blur();opencrsbrowser('."'$formname','clonecrs','clonedom','','','','$type'".')" />'. '</label> '. &Apache::loncommon::selectcourse_link($formname,'clonecrs','clonedom','','','',$type). &Apache::lonhtmlcommon::row_closure(1). &Apache::lonhtmlcommon::row_title($lt{'dsh'}).'<label>'. '<input type="radio" name="datemode" value="delete" /> '.$lt{'ncd'}. '</label><br /><label>'. '<input type="radio" name="datemode" value="preserve" /> '.$lt{'prd'}. '</label><br /><label>'. '<input type="radio" name="datemode" value="shift" checked="checked" /> '. $lt{'shd'}.'</label>'. '<input type="text" size="5" name="dateshift" value="364" />'. &Apache::lonhtmlcommon::row_closure(1); return $output; } sub clone_text { return &Apache::lonlocal::texthash( 'cid' => 'Course ID', 'dmn' => 'Domain', 'dsh' => 'Date Shift', 'ncd' => 'Do not clone date parameters', 'prd' => 'Clone date parameters as-is', 'shd' => 'Shift date parameters by number of days', ); } sub coursecode_form { my ($dom,$context,$codetitles,$cat_titles,$cat_order,$num) = @_; my $output; my %rowtitle = &Apache::lonlocal::texthash ( instcode => 'Course Category', crosslist => 'Cross Listed Course', ); my %helpitem = ( instcode => 'Course_Request_Category', ); 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').'<br />'. '<input type="text" size="10" name="'.$sel.'_instsec" />'; $lcsec = &mt('LON-CAPA section').'<br />'. '<input type="text" size="10" name="'.$sel.'_lcsec" />'; } if (@{$codetitles} > 0) { my $lastitem = pop(@{$codetitles}); my $lastinput = '<input type="text" size="5" name="'.$sel.'_'.$lastitem.'" />'; if (@{$codetitles} > 0) { my $helplink; if (defined($helpitem{$context})) { $helplink = &Apache::loncommon::help_open_topic($helpitem{$context}).' '; } $output = &Apache::lonhtmlcommon::row_title($helplink.$rowtitle{$context}). '<table><tr>'; if ($context eq 'crosslist') { $output .= '<td>'.&mt('Include?').'<br />'. '<input type="checkbox" name="'.$sel.'" value="1" /></td>'; } foreach my $title (@{$codetitles}) { if (ref($cat_order->{$title}) eq 'ARRAY') { if (@{$cat_order->{$title}} > 0) { $output .= '<td align="center">'.$title.'<br />'."\n". '<select name="'.$sel.'_'.$title.'">'."\n". ' <option value="" selected="selected">'. &mt('Select').'</option>'."\n"; foreach my $item (@{$cat_order->{$title}}) { my $longitem = $item; if (ref($cat_titles->{$title}) eq 'HASH') { if ($cat_titles->{$title}{$item} ne '') { $longitem = $cat_titles->{$title}{$item}; } } $output .= '<option value="'.$item.'">'.$longitem. '</option>'."\n"; } } $output .= '</select></td>'."\n"; } } if ($context eq 'crosslist') { $output .= '<td align="center">'.$lastitem.'<br />'."\n". $lastinput.'</td><td align="center">'.$instsec.'</td>'. '<td align="center">'.$lcsec.'</td></tr></table>'; } else { $output .= '</tr></table>'. &Apache::lonhtmlcommon::row_closure(). &Apache::lonhtmlcommon::row_title('Course '.$lastitem). $lastinput; } } else { if ($context eq 'crosslist') { $output .= &Apache::lonhtmlcommon::row_title($rowtitle{$context}). '<table><tr>'. '<td align="center">'.$lastitem.'<br />'.$lastinput.'</td>'. '<td align="center">'.$instsec.'</td><td>'.$lcsec.'</td>'. '</tr></table>'; } 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}). '<table><tr><td align="center">'. '<span class="LC_nobreak">'.&mt('Include?'). '<input type="checkbox" name="'.$sel.'" value="1" /></span>'. '</td><td align="center">'.&mt('Institutional ID').'<br />'. '<input type="text" size="10" name="'.$sel.'_instsec" />'. '</td><td align="center">'.$lcsec.'</td></tr></table>'. &Apache::lonhtmlcommon::row_closure(1); } } return $output; } sub sections_form { my ($dom,$instcode,$num) = @_; my $rowtitle; if ($instcode eq '') { $rowtitle = &mt('Sections'); } else { $rowtitle = &mt('Sections of [_1]',$instcode); } return &Apache::lonhtmlcommon::row_title($rowtitle). '<table><tr><td align="center">'. '<span class="LC_nobreak">'.&mt('Include?'). '<input type="checkbox" name="sec_'.$num.'" value="1" /></span>'. '</td><td align="center">'.&mt('Institutional section').'<br />'. '<input type="text" size="10" name="secnum_'.$num.'" />'. '</td><td align="center">'.&mt('LON-CAPA section').'<br />'. '<input type="text" size="10" name="loncapasec_'.$num.'" />'. '</td></tr></table>'. &Apache::lonhtmlcommon::row_closure(1); } sub get_course_dom { my $codedom = &Apache::lonnet::default_login_domain(); if ($env{'form.showdom'} ne '') { if (&Apache::lonnet::domain($env{'form.showdom'}) ne '') { return $env{'form.showdom'}; } } if (($env{'user.domain'} ne '') && ($env{'user.domain'} ne 'public')) { my ($types,$typename) = &Apache::loncommon::course_types(); if (ref($types) eq 'ARRAY') { foreach my $type (@{$types}) { if (&Apache::lonnet::usertools_access($env{'user.name'}, $env{'user.domain'},$type, undef,'requestcourses')) { return $env{'user.domain'}; } } my @possible_doms; foreach my $type (@{$types}) { my $dom_str = $env{'environment.reqcrsotherdom.'.$type}; if ($dom_str ne '') { my @domains = split(',',$dom_str); foreach my $entry (@domains) { my ($extdom,$extopt) = split(':',$entry); if ($extdom eq $env{'request.role.domain'}) { return $extdom; } unless(grep(/^\Q$extdom\E$/,@possible_doms)) { push(@possible_doms,$extdom); } } } } if (@possible_doms) { @possible_doms = sort(@possible_doms); return $possible_doms[0]; } } $codedom = $env{'user.domain'}; if ($env{'request.role.domain'} ne '') { $codedom = $env{'request.role.domain'}; } } return $codedom; } sub display_navbuttons { my ($r,$dom,$formname,$prev,$prevtext,$next,$nexttext,$state,$other,$othertext) = @_; $r->print('<div class="LC_navbuttons">'); if ($prev) { $r->print('<input type="button" name="previous" value = "'.$prevtext.'" '. 'onclick="javascript:backPage('."document.$formname,'$prev'".')"/>'. (' 'x3)); } elsif ($prevtext) { $r->print('<input type="button" name="previous" value = "'.$prevtext.'" '. 'onclick="javascript:history.back()"/>'.(' 'x3)); } if ($state eq 'details') { $r->print(' <input type="button" name="other" value="'.$othertext.'" '. 'onclick="javascript:nextPage('."document.$formname,'$other'". ')" />'); } my $gotnext; if ($state eq 'courseinfo') { $r->print('<input type="button" name="next" value="'.$nexttext.'" '. 'onclick="javascript:validateForm();" />'); $gotnext = 1; } elsif ($state eq 'enrollment') { if (($env{'form.crstype'} eq 'official') && (&Apache::lonnet::auto_run('',$dom))) { $r->print('<input type="button" name="next" value="'.$nexttext.'" '. 'onclick="javascript:validateEnrollSections('."document.$formname,'$next'".');" />'); $gotnext = 1; } } elsif ($state eq 'personnel') { if ($env{'form.persontotal'} > 0) { $r->print('<input type="button" name="next" value="'.$nexttext.'" '. 'onclick="javascript:validatePersonnelSections('."document.$formname,'$next'".');" />'); $gotnext = 1; } } unless ($gotnext) { if ($next) { $r->print(' <input type="button" name="next" value="'.$nexttext.'" '. 'onclick="javascript:nextPage('."document.$formname,'$next'".')" />'); } } $r->print('</div>'); } sub print_request_outcome { my ($r,$lonhost,$dom,$codetitles,$code_order,$instcredits) = @_; my ($output,$cnum,$now,$req_notifylist,$crstype,$enrollstart,$enrollend, %sections,%crosslistings,%personnel,@baduname,@missingdom,%domconfig, $uniquecode); my $sectotal = $env{'form.sectotal'}; my $crosslisttotal = 0; $cnum = $env{'form.cnum'}; unless ($cnum =~ /^$match_courseid$/) { $output = &mt('Invalid LON-CAPA course number for the new course')."\n"; return $output; } $crstype = $env{'form.crstype'}; my %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'}; } if (ref($domconfig{'requestcourses'}{'uniquecode'}) eq 'HASH') { $uniquecode = $domconfig{'requestcourses'}{'uniquecode'}{$crstype}; } } $now = time; my $ccrole = 'cc'; if ($crstype eq 'community') { $ccrole = 'co'; } 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}; $sections{$i}{'loncapa'} =~ s/\W//g; if ($sections{$i}{'loncapa'} eq 'none') { $sections{$i}{'loncapa'} = ''; } } } } for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) { if ($env{'form.crosslist_'.$i}) { my $xlistinfo = ''; if (ref($code_order) eq 'ARRAY') { if (@{$code_order} > 0) { foreach my $item (@{$code_order}) { $xlistinfo .= $env{'form.crosslist_'.$i.'_'.$item}; } } } $crosslistings{$i}{'instcode'} = $xlistinfo; if ($xlistinfo ne '') { $crosslisttotal ++; } $crosslistings{$i}{'instsec'} = $env{'form.crosslist_'.$i.'_instsec'}; $crosslistings{$i}{'loncapa'} = $env{'form.crosslist_'.$i.'_lcsec'}; } } } else { $enrollstart = ''; $enrollend = ''; } my (%alerts,%rulematch,%inst_results,%curr_rules,%got_rules,%disallowmsg,%skipped); 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'}, }; if (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') { my $usertype = &get_usertype($udom,$uname,\%curr_rules,\%got_rules); if (&Apache::lonuserutils::can_create_user($udom,'requestcrs',$usertype)) { my ($allowed,$msg,$authtype,$authparam) = &check_newuser_rules($udom,$uname,\%alerts,\%rulematch, \%inst_results,\%curr_rules,\%got_rules); if ($allowed) { my %domdefaults = &Apache::lonnet::get_domain_defaults($udom); if ($usertype eq 'official') { if ($authtype eq '') { $authtype = $domdefaults{'auth_def'}; $authparam = $domdefaults{'auth_arg_def'}; } else { if ($authtype eq 'loc') { $authtype = 'localauth'; } elsif ($authtype eq 'int') { $authtype = 'internal'; } if ($authtype !~ /^(krb4|krb5|internal|localauth)$/) { $authtype = $domdefaults{'auth_def'}; $authparam = $domdefaults{'auth_arg_def'}; } } } elsif ($usertype eq 'unofficial') { if ($authtype eq '') { $authtype = 'internal'; $authparam = ''; } } else { $authtype = $domdefaults{'auth_def'}; $authparam = $domdefaults{'auth_arg_def'}; } if (($authtype eq '') || (($authtype =~/^krb(4|5)$/) && ($authparam eq '')) || ($authtype !~ /^(krb4|krb5|internal|localauth)$/)) { $skipped{$uname.':'.$udom} = 1; next; } else { $personnel{$uname.':'.$udom}{'authtype'} = $authtype; $personnel{$uname.':'.$udom}{'autharg'} = $authparam; } } else { $skipped{$uname.':'.$udom} = 1; next; } } else { $skipped{$uname.':'.$udom} = 1; next; } } } 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 $ccrole) { @{$personnel{$uname.':'.$udom}{$role}{'usec'}} = (); } else { my @currsec = &Apache::loncommon::get_env_multiple('form.person_'.$i.'_sec'); my @allsecs; foreach my $sec (@currsec) { next unless ($sec =~ /\w/); next if ($sec =~ /\W/); next if ($sec eq 'none'); push(@allsecs,$sec); } my $newsec = $env{'form.person_'.$i.'_newsec'}; $newsec =~ s/^\s+//; $newsec =~s/\s+$//; my @newsecs = split(/[\s,;]+/,$newsec); foreach my $sec (@newsecs) { next if ($sec =~ /\W/); next if ($sec eq 'none'); if ($sec ne '') { unless (grep(/^\Q$sec\E$/,@allsecs)) { push(@allsecs,$sec); } } } @{$personnel{$uname.':'.$udom}{$role}{'usec'}} = @allsecs; } } } else { push(@missingdom,$uname.':'.$udom); } } else { push(@baduname,$uname.':'.$udom); } } if (keys(%skipped)) { foreach my $key (keys(%skipped)) { delete($personnel{$key}); } } 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'}) { $autoadds = $env{'form.autoadds'}; } my $instcode = ''; if (exists($env{'form.instcode'})) { $instcode = $env{'form.instcode'}; } my $credits; if ($instcredits) { $credits = $instcredits; } elsif (exists($env{'form.coursecredits'})) { $credits = $env{'form.coursecredits'}; } my $clonecrs = ''; my $clonedom = ''; if (($env{'form.cloning'}) && ($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'}, $crstype,$dom,$instcode); if ($canclone) { $clonecrs = $env{'form.clonecrs'}; $clonedom = $env{'form.clonedom'}; } } } if ($env{'form.chome'} eq 'default') { my %servers = &Apache::lonnet::get_servers($dom,'library'); my $numlib = keys(%servers); if ($numlib) { my $loadm=10000000; my $chome; foreach my $tryserver (keys(%servers)) { ($chome,$loadm) = &Apache::lonnet::compare_server_load($tryserver,$chome,$loadm); } $env{'form.chome'} = $chome; } } 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, defaultcredits => $credits, uniquecode => $uniquecode, 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 ($result,$output,$customized) = &process_request($r,$lonhost,$dom,$cnum,$crstype,$now,$details, $instcode,$req_notifylist,\@instsections,\%domconfig); return ($result,$output,$customized); } sub process_request { my ($r,$lonhost,$dom,$cnum,$crstype,$now,$details,$instcode,$req_notifylist,$instsections, $domconfig) = @_; my (@inststatuses,$storeresult,$creationresult,$output,$customized); my $val = &Apache::loncoursequeueadmin::get_processtype('course',$env{'user.name'}, $env{'user.domain'},$env{'user.adv'}, $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'); } elsif ($crstype eq 'textbook') { $output = &mt('You are not permitted to request creation of textbook courses'); } else { $output = &mt('Unrecognized course type: [_1]',$crstype); } $storeresult = 'notpermitted'; } else { my ($disposition,$message,$reqstatus,$coursedesc,$accessstart,$accessend,%customvalidation); my %reqhash = ( reqtime => $now, crstype => $crstype, details => $details, ); my $requestkey = $dom.'_'.$cnum; my $validationerror; my $fullname = &Apache::loncommon::plainname($env{'user.name'}, $env{'user.domain'}); if (ref($details) eq 'HASH') { $coursedesc = $details->{'cdescr'}; $accessstart = $details->{'accessstart'}; $accessend = $details->{'accessend'}; } if ($val eq 'autolimit=') { $disposition = 'process'; } elsif ($val =~ /^autolimit=(\d+)$/) { my $limit = $1; $disposition = &check_autolimit($env{'user.name'},$env{'user.domain'}, $dom,$crstype,$limit,\$message); } elsif ($val eq 'validate') { my ($inststatuslist,$validationchk,$validation); if (ref($details) eq 'HASH') { if ($details->{'clonecrs'}) { $customvalidation{'_LC_clonefrom'} = $details->{'clonedom'}.'_'.$details->{'clonecrs'}; } } if (@inststatuses > 0) { $inststatuslist = join(',',@inststatuses); } my $instseclist; if (ref($instsections) eq 'ARRAY') { if (@{$instsections} > 0) { $instseclist = join(',',@{$instsections}); } } # # Retrieve any custom form information used for validation # my $preprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,'prevalidate',$env{'user.name'}, $env{'user.domain'},$fullname,$coursedesc); if (ref($preprocess) eq 'HASH') { &custom_formitems($preprocess,\%customvalidation); } $validationchk = &Apache::lonnet::auto_courserequest_validation($dom, $env{'user.name'}.':'.$env{'user.domain'},$crstype, $inststatuslist,$instcode,$instseclist,\%customvalidation); if ($validationchk =~ /:/) { ($validation,$message) = split(':',$validationchk); } else { $validation = $validationchk; } if ($validation =~ /^error(.*)$/) { $disposition = 'approval'; $validationerror = $1; } else { $disposition = $validation; } } else { $disposition = 'approval'; } $reqhash{'disposition'} = $disposition; $reqstatus = $disposition; my ($modified,$queued,$token,%customitems); unless ($disposition eq 'rejected') { my $inprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,'process',$env{'user.name'}, $env{'user.domain'},$fullname,$coursedesc,undef, undef,undef,\%customvalidation); # # Retrieve any custom form information submitted with review page and include in request details. # if (ref($inprocess) eq 'HASH') { &custom_formitems($inprocess,\%customitems); foreach my $key (keys(%customitems)) { $reqhash{'custom'}{$key} = $customitems{$key}; } } } if ($disposition eq 'rejected') { if ($crstype eq 'community') { $output = &mt('Your community request was rejected.'); } else { $output = &mt('Your course request was rejected.'); } if ($message) { $output .= '<div class="LC_warning">'.$message.'</div>'; } $storeresult = 'rejected'; } elsif ($disposition eq 'process') { my %domdefs = &Apache::lonnet::get_domain_defaults($dom); my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg,%longroles,$code); my $type = 'Course'; if ($crstype eq 'community') { $type = 'Community'; } my @roles = &Apache::lonuserutils::roles_by_context('course','',$type); foreach my $role (@roles) { $longroles{$role}=&Apache::lonnet::plaintext($role,$type); } my $preamble = '<div id="LC_update" class="LC_info">'. '<br />'. &mt("Please be patient while your request is processed"). '<br /></div>'. '<div style="padding:0;clear:both;margin:0;border:0"></div>'; my $closure = <<ENDCLOSE; <script type="text/javascript"> // <![CDATA[ \$("#LC_update").hide('slow'); // ]]> </script> ENDCLOSE my %prog_state = &Apache::lonhtmlcommon::Create_PrgWin($r,undef,$preamble); &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Processing ...')); $r->rflush(); if (ref($details) eq 'HASH') { if ($details->{'clonecrs'}) { $customitems{'_LC_clonefrom'} = $details->{'clonedom'}.'_'.$details->{'clonecrs'}; } } $customitems{'_LC_ownerfullname'} = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'},'first'); my $owneremail; my %emails = &Apache::loncommon::getemails(); foreach my $email ('permanentemail','critnotification','notification') { $owneremail = $emails{$email}; last if ($owneremail ne ''); } if ($owneremail ne '') { $customitems{'_LC_owneremail'} = $owneremail; } $customitems{'_LC_coursedomainname'} = &Apache::lonnet::domain($dom,'description'); $customitems{'_LC_coursedescription'} = $coursedesc; $customitems{'_LC_coursestartdate'} = $accessstart; $customitems{'_LC_courseenddate'} = $accessend; my ($result,$postprocess) = &Apache::loncoursequeueadmin::course_creation($dom,$cnum, 'autocreate',$details,\$logmsg,\$newusermsg,\$addresult, \$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles, \$code,\%customitems); &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Finished!')); &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); if (ref($postprocess) eq 'HASH') { $customized = $postprocess->{'createdcustomized'}; } if ($result eq 'created') { $disposition = 'created'; $reqstatus = 'created'; my $role_result = &update_requestors_roles($dom,$cnum,$crstype,$details, \%longroles); if ($crstype eq 'community') { $output = '<p>'.&mt('Your community request has been processed and the community has been created.'); } else { $output = '<p>'.&mt('Your course request has been processed and the course has been created.'); } if (($code) || ((ref($postprocess) eq 'HASH') && (($postprocess->{'createdweb'}) || ($postprocess->{'createdmsg'})))) { $output .= ¬ification_information($disposition,$env{'user.name'}.':'.$env{'user.domain'}, $dom,$cnum,$now,$code,$postprocess); } if ($code) { $reqhash{'code'} = $code; } if (ref($postprocess) eq 'HASH') { if (ref($postprocess->{'createdactions'}) eq 'HASH') { if (ref($postprocess->{'createdactions'}{'environment'}) eq 'HASH') { &Apache::loncoursequeueadmin::postprocess_crsenv($dom,$cnum, $postprocess->{'createdactions'}{'environment'}); } } } unless ($customized) { $output .= '<br />'.$role_result; } $output .= '</p>'; $creationresult = 'created'; # Flush the course logs so reverse user roles immediately updated unless ($registered_flush) { my $handlers = $r->get_handlers('PerlCleanupHandler'); $r->set_handlers('PerlCleanupHandler' => [\&Apache::lonnet::flushcourselogs,@{$handlers}]); $registered_flush=1; } if ($instcode ne '') { &Apache::lonnet::devalidate_cache_new('instcats',$dom); # Update cache of self-cataloging courses on institution's server(s). if (&Apache::lonnet::shared_institution($dom)) { unless ($registered_instcats) { my $handlers = $r->get_handlers('PerlCleanupHandler'); $r->set_handlers('PerlCleanupHandler' => [\&devalidate_remote_instcats,@{$handlers}]); $registered_instcats=1; $modified_dom = $dom; } } } } else { $output = '<span class="LC_error">'; if ($crstype eq 'community') { $output .= &mt('An error occurred when processing your community request.'); } else { $output .= &mt('An error occurred when processing your course request.'); } $output .= '<br />'. &mt('You may want to review the request details and submit the request again.'). '</span>'; $creationresult = 'error'; } } else { my $requestid = $cnum.'_'.$disposition; my $request = { $requestid => { timestamp => $now, crstype => $crstype, ownername => $env{'user.name'}, ownerdom => $env{'user.domain'}, description => $env{'form.cdescr'}, lonhost => $lonhost, }, }; if ($crstype eq 'official') { $request->{$requestid}->{'instcode'} = $instcode; } my $statuskey = 'status:'.$dom.':'.$cnum; my %userreqhash = &Apache::lonnet::get('courserequests',[$statuskey], $env{'user.domain'},$env{'user.name'}); if ($userreqhash{$statuskey} ne '') { $modified = 1; my $uname = &Apache::lonnet::get_domainconfiguser($dom); my %queuehash = &Apache::lonnet::get('courserequestqueue', [$cnum.'_approval', $cnum.'_pending'],$dom,$uname); if (($queuehash{$cnum.'_approval'} ne '') || ($queuehash{$cnum.'_pending'} ne '')) { $queued = 1; if (ref($queuehash{$cnum.'_pending'}) eq 'HASH') { $token = $queuehash{$cnum.'_pending'}{'token'}; } } } unless ($queued) { if (($disposition eq 'pending') && ($crstype ne 'official')) { my %reqinfo = ( $cnum.':'.$dom => $now.':'.$env{'user.name'}.':'.$env{'user.domain'}, ); $token = &Apache::lonnet::tmpput(\%reqinfo,$lonhost); $request->{$requestid}->{'token'} = $token; } my $putresult = &Apache::lonnet::newput_dom('courserequestqueue',$request, $dom); if ($putresult eq 'ok') { if ($crstype eq 'community') { $output .= &mt('Your community request has been recorded.'); } else { $output .= &mt('Your course request has been recorded.') } unless ($disposition eq 'pending') { $output .= '<br />'. ¬ification_information($disposition,$req_notifylist, $dom,$cnum,$now); } } else { $reqstatus = 'domainerror'; $reqhash{'disposition'} = $disposition; my $warning = &mt('An error occurred saving your request in the pending requests queue.'); $output = '<span class"LC_warning">'.$warning.'</span><br />'; } } } ($storeresult,my $updateresult) = &Apache::loncoursequeueadmin::update_coursereq_status(\%reqhash,$dom, $cnum,$reqstatus,'request',$env{'user.domain'},$env{'user.name'}); if ($storeresult eq 'ok') { my $postprocess; if (($disposition eq 'approval') || ($disposition eq 'pending')) { my $updateaction = $disposition; if ($disposition eq 'approval') { $updateaction = 'queued'; } my $fullname = &Apache::loncommon::plainname($env{'user.name'}, $env{'user.domain'}); $postprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,$updateaction,$env{'user.name'}, $env{'user.domain'},$fullname,$env{'form.cdescr'}); } if ($modified && $queued) { if ($crstype eq 'community') { $output .= '<p>'.&mt('Your community request has been updated').'</p>'; } else { $output .= '<p>'.&mt('Your course request has been updated').'</p>'; } if ($disposition eq 'approval') { $output .= ¬ification_information($disposition,$req_notifylist,$dom,$cnum,$now); } } if ($disposition eq 'approval') { if ((ref($postprocess) eq 'HASH') && ((ref($postprocess->{'queuedmsg'}) eq 'HASH') || ($postprocess->{'queuedweb'}))) { ¬ification_information($disposition,undef,$dom,$cnum,$now,undef,$postprocess); $customized = $postprocess->{'createdcustomized'}; } } elsif ($disposition eq 'pending') { my $pendingform; if ($crstype ne 'official') { $pendingform = &pending_validation_form($r,$dom,$cnum,$crstype,$now,$token, $lonhost,$env{'form.cdescr'}); } if ($pendingform) { $output .= $pendingform; } else { $output .= ¬ification_information($disposition,undef,$dom,$cnum,$now,undef,$postprocess); } if (ref($postprocess) eq 'HASH') { $customized = $postprocess->{'createdcustomized'}; } } } if ($validationerror ne '') { $output .= '<p class="LC_warning">'.&mt('An error occurred validating your request with institutional data sources: [_1].',$validationerror).'</p>'; } if ($updateresult) { $output .= $updateresult; } } if ($creationresult ne '') { return ($creationresult,$output,$customized); } else { return ($storeresult,$output,$customized); } } sub devalidate_remote_instcats { if ($modified_dom ne '') { my %servers = &Apache::lonnet::internet_dom_servers($modified_dom); my %thismachine; map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids(); if (keys(%servers)) { foreach my $server (keys(%servers)) { next if ($thismachine{$server}); &Apache::lonnet::remote_devalidate_cache($server,['instcats:'.$modified_dom]); } } $modified_dom = ''; } return; } sub custom_formitems { my ($preprocess,$customhash) = @_; return unless ((ref($preprocess) eq 'HASH') && (ref($customhash) eq 'HASH')); if (ref($preprocess->{'formitems'}) eq 'HASH') { foreach my $key (keys(%{$preprocess->{'formitems'}})) { if ($preprocess->{'formitems'}->{$key} eq 'multiple') { if (exists($env{'form.'.$key})) { my @items = &Apache::loncommon::get_env_multiple($env{'form.'.$key}); foreach my $item (@items) { $item =~ s/(`)/'/g; $item =~ s/\$/\(\$\)/g; push(@{$customhash->{$key}},$item); } } } else { if (exists($env{'form.'.$key})) { $customhash->{$key} = $env{'form.'.$key}; $customhash->{$key} =~ s/(`)/'/g; $customhash->{$key} =~ s/\$/\(\$\)/g; } } } } } sub update_requestors_roles { my ($dom,$cnum,$crstype,$details,$longroles) = @_; my $now = time; my ($active,$future,$numactive,$numfuture,$output); my $owner = $env{'user.name'}.':'.$env{'user.domain'}; if (ref($details) eq 'HASH') { if (ref($details->{'personnel'}) eq 'HASH') { my $ccrole = 'cc'; if ($crstype eq 'community') { $ccrole = 'co'; } unless (ref($details->{'personnel'}{$owner}) eq 'HASH') { $details->{'personnel'}{$owner} = { 'roles' => [$ccrole], $ccrole => { 'usec' => [] }, }; } my @roles; if (ref($details->{'personnel'}{$owner}{'roles'}) eq 'ARRAY') { @roles = sort(@{$details->{'personnel'}{$owner}{'roles'}}); unless (grep(/^\Q$ccrole\E$/,@roles)) { push(@roles,$ccrole); } } else { @roles = ($ccrole); } foreach my $role (@roles) { my $refresh=$env{'user.refresh.time'}; if ($refresh eq '') { $refresh = $env{'user.login.time'}; } if ($refresh eq '') { $refresh = $now; } my $start = $refresh-1; my $end = '0'; if ($role eq 'st') { if ($details->{'accessstart'} ne '') { $start = $details->{'accessstart'}; } if ($details->{'accessend'} ne '') { $end = $details->{'accessend'}; } } my @usecs; if ($role ne $ccrole) { if (ref($details->{'personnel'}{$owner}{$role}{'usec'}) eq 'ARRAY') { @usecs = @{$details->{'personnel'}{$owner}{$role}{'usec'}}; } } if ($role eq 'st') { if (@usecs > 1) { my $firstsec = $usecs[0]; @usecs = ($firstsec); } } if (@usecs == 0) { push(@usecs,''); } foreach my $usec (@usecs) { my (%userroles,%newrole,%newgroups,$spec,$area); my $area = '/'.$dom.'/'.$cnum; my $spec = $role.'.'.$area; if ($usec ne '') { $spec .= '/'.$usec; $area .= '/'.$usec; } if ($role =~ /^cr\//) { &Apache::lonnet::custom_roleprivs(\%newrole,$role,$dom, $cnum,$spec,$area); } else { &Apache::lonnet::standard_roleprivs(\%newrole,$role,$dom, $spec,$cnum,$area); } &Apache::lonnet::set_userprivs(\%userroles,\%newrole, \%newgroups); $userroles{'user.role.'.$spec} = $start.'.'.$end; &Apache::lonnet::appenv(\%userroles,[$role,'cm']); if (($end == 0) || ($end > $now)) { my $showrole = $role; if ($role =~ /^cr\//) { $showrole = &Apache::lonnet::plaintext($role,$crstype); } elsif (ref($longroles) eq 'HASH') { if ($longroles->{$role} ne '') { $showrole = $longroles->{$role}; } } if ($start <= $now) { $active .= '<li><a href="/adm/roles?selectrole=1&'. $spec.'=1">'.$showrole; if ($usec ne '') { $active .= ' - '.&mt('section:').' '.$usec; } $active .= '</a></li>'; $numactive ++; } else { $future .= '<li>'.$showrole; if ($usec ne '') { $future .= ' - '.&mt('section:').' '.$usec; } $future .= '</li>'; $numfuture ++; } } } } } } if ($active) { if ($numactive == 1) { if ($crstype eq 'Community') { $output = &mt('Use the following link to enter the community:'); } else { $output = &mt('Use the following link to enter the course:'); } } else { if ($crstype eq 'Community') { $output = &mt('Use the following links to your new roles to enter the community:'); } else { $output = &mt('Use the following links to your new roles to enter the course:'); } } $output .= ' <ul>'.$active.'</ul><br />'; } if ($future) { if ($crstype eq 'Community') { $output .= &mt('The following community [quant,_1,role] will become available for selection from your [_2]roles page[_3], once the default student access start date - [_4] - has been reached:',$numfuture,'<a href="/adm/roles">','</a>',&Apache::lonlocal::locallocaltime($details->{'accessstart'})) } else { $output .= &mt('The following course [quant,_1,role] will become available for selection from your [_2]roles page[_3], once the default student access start date - [_4] - has been reached:',$numfuture,'<a href="/adm/roles">','</a>',&Apache::lonlocal::locallocaltime($details->{'accessstart'})); } $output .= ' <ul>'.$future.'</ul>'; } return $output; } sub notification_information { my ($disposition,$req_notifylist,$dom,$cnum,$now,$code,$postprocess) = @_; 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.').'<br />'. &mt('To access your LON-CAPA message, go to the Main Menu and click on "Send and Receive Messages".').'<br />'; if ($address ne '') { $output.= &mt('An e-mail will also be sent to: [_1] when this occurs.',$address).'<br />'; } 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'})", 'undef',$env{'form.cdescr'},$now,'coursereq',$sender); } if (ref($postprocess) eq 'HASH') { if (ref($postprocess->{'queuedmsg'}) eq 'ARRAY') { if (scalar(@{$postprocess->{'queuedmsg'}}) > 0) { my $recipient = $env{'user.name'}.':'.$env{'user.domain'}; my $sender = $recipient; my $addmsg = []; foreach my $item (@{$postprocess->{'queuedmsg'}}) { if (ref($item) eq 'HASH') { if ($item->{'mt'} ne '') { push(@{$addmsg},$item); } } } if (scalar(@{$addmsg}) > 0) { &Apache::loncoursequeueadmin::send_selfserve_notification($recipient,$addmsg,undef, $env{'form.cdescr'},$now, 'queuedcrsreq',$sender); } } } if ($postprocess->{'queuedweb'}) { $output .= $postprocess->{'queuedweb'}; } } } elsif ($disposition eq 'pending') { my $pending_default = '<div class="LC_info">'. &mt('Your request has been placed in a queue pending administrative action.').'<br />'. &mt("Usually this means that your institution's information systems do not list you among the instructional personnel for this course.").'<br />'. &mt('The list of instructional personnel for the course will be automatically checked daily, and once you are listed the request will be processed.'). '</div>'; if (ref($postprocess) eq 'HASH') { if ($postprocess->{'pendingweb'}) { $output .= $postprocess->{'pendingweb'}; } else { $output .= $pending_default; } } else { $output .= $pending_default; } } elsif ($disposition eq 'created') { if (($code) || ((ref($postprocess) eq 'HASH') && ((ref($postprocess->{'createdmsg'}) eq 'ARRAY') || ($postprocess->{'createdweb'})))) { my $addmsg = []; my $recipient = $env{'user.name'}.':'.$env{'user.domain'}; my $sender = $recipient; if ($code) { push(@{$addmsg},{ mt => 'Students can automatically select your course: "[_1]" by entering this code: [_2]', args => [$env{'form.cdescr'},$code], }); $output .= '<p>'. &mt('Students can automatically select your course by entering this code: [_1].','<b>'.$code.'</b>'). '<br />'. &mt('A message has been sent to your LON-CAPA account with this information.'); if ($address ne '') { $output.= '<br />'.&mt('An e-mail has also been sent to: [_1] with this code.',$address); } $output .= '</p>'; } if (ref($postprocess) eq 'HASH') { if (ref($postprocess->{'createdmsg'}) eq 'ARRAY') { foreach my $item (@{$postprocess->{'createdmsg'}}) { if (ref($item) eq 'HASH') { if ($item->{'mt'} ne '') { push(@{$addmsg},$item); } } } } if ($postprocess->{'createdweb'}) { $output .= $postprocess->{'createdweb'} } } if (scalar(@{$addmsg}) > 0) { my $type = 'createdcrsreq'; if ($code) { $type = 'uniquecode'; } &Apache::loncoursequeueadmin::send_selfserve_notification($recipient,$addmsg,$dom.'_'.$cnum,$env{'form.cdescr'}, $now,$type,$sender); } } } else { $output .= '<div class="LC_warning">'. &mt('Your request status is: [_1].',$disposition). '</div>'; } return $output; } sub pending_validation_form { my ($r,$cdom,$cnum,$crstype,$now,$token,$lonhost,$cdesc) = @_; my $output; my %postvalues = ( 'owner' => $env{'user.name'}.':'.$env{'user.domain'}, 'course' => $cdom.'_'.$cnum, 'coursetype' => $crstype, ); my %domconfig = &Apache::lonnet::get_dom('configuration',['requestcourses'],$cdom); if (ref($domconfig{'requestcourses'}) eq 'HASH') { my ($url,$buttontext,$code,@fields); if (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') { $postvalues{'description'} = $cdesc; $url = $domconfig{'requestcourses'}{'validation'}{'url'}; if (ref($domconfig{'requestcourses'}{'validation'}{'fields'}) eq 'ARRAY') { @fields = @{$domconfig{'requestcourses'}{'validation'}{'fields'}}; } $buttontext = $domconfig{'requestcourses'}{'validation'}{'button'}; $output .= $domconfig{'requestcourses'}{'validation'}{'markup'}; if (($url =~ m{^(https?\://|/)}) && (@fields > 0)) { $output .= '<form name="crsreqvalidation" action="'.$url.'" method="post">'."\n"; foreach my $field (@fields) { if ($postvalues{$field}) { $output .= '<input type="hidden" name="'.$field.'" value="'.$postvalues{$field}.'" />'."\n"; } } if ($buttontext eq '') { if ($crstype eq 'community') { $buttontext = &mt('Create community'); } else { $buttontext = &mt('Create course'); } } my $hostname = &Apache::lonnet::hostname($lonhost); my $protocol = $Apache::lonnet::protocol{$lonhost}; $protocol = 'http' if ($protocol ne 'https'); my $alias = &Apache::lonnet::use_proxy_alias($r,$lonhost); $hostname = $alias if ($alias ne ''); my $crscreator = $protocol.'://'.$hostname.'/cgi-bin/createpending.pl'; $output .= '<input type="hidden" name="crscreator" value="'.$crscreator.'" />'."\n". '<input type="hidden" name="token" value="'.$token.'" />'."\n". '<input type="submit" name="validate" value="'.$buttontext.'" />'."\n". '</form>'."\n"; } } } return $output; } 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','co'],[$dom]); my ($types,$typename) = &Apache::loncommon::course_types(); my %requests = &Apache::lonnet::dumpstore('courserequests',$udom,$uname); my $count = 0; foreach my $key (keys(%requests)) { my ($cdom,$cnum) = split('_',$key); if (ref($requests{$key}) eq 'HASH') { next if ($requests{$key}{'crstype'} ne $crstype); if (($crstype eq 'community') && (exists($crsroles{$cnum.':'.$cdom.':co'}))) { $count ++; } elsif ((($crstype eq 'official') || ($crstype eq 'unofficial') || ($crstype eq 'textbook')) && (exists($crsroles{$cnum.':'.$cdom.':cc'}))) { $count ++; } } } if ($count < $limit) { return 'process'; } else { if (ref($typename) eq 'HASH') { if ($crstype eq 'community') { $$message = &mt('Your request has not been processed because you have reached the limit for the number of communities.'). '<br />'.&mt("Your limit is [_1].",$limit); } else { $$message = &mt('Your request has not been processed because you have reached the limit for the number of courses of this type.'). '<br />'.&mt("Your $typename->{$crstype} limit is [_1].",$limit); } } return 'rejected'; } return; } sub retrieve_settings { my ($dom,$cnum,$udom,$uname) = @_; if ($udom eq '' || $uname eq '') { $udom = $env{'user.domain'}; $uname = $env{'user.name'}; } my ($result,%reqinfo) = &get_request_settings($dom,$cnum,$udom,$uname); if ($result eq 'ok') { if (($udom eq $reqinfo{'domain'}) && ($uname eq $reqinfo{'owner'})) { $env{'form.chome'} = $reqinfo{'coursehome'}; $env{'form.cdescr'} = $reqinfo{'cdescr'}; $env{'form.crstype'} = $reqinfo{'crstype'}; &generate_date_items($reqinfo{'accessstart'},'accessstart'); &generate_date_items($reqinfo{'accessend'},'accessend'); if ($reqinfo{'accessend'} == 0) { $env{'form.no_end_date'} = 1; } if (($reqinfo{'crstype'} eq 'official') && (&Apache::lonnet::auto_run('',$dom))) { &generate_date_items($reqinfo{'enrollstart'},'enrollstart'); &generate_date_items($reqinfo{'enrollend'},'enrollend'); } $env{'form.clonecrs'} = $reqinfo{'clonecrs'}; $env{'form.clonedom'} = $reqinfo{'clonedom'}; if (($reqinfo{'clonecrs'} ne '') && ($reqinfo{'clonedom'} ne '')) { $env{'form.cloning'} = 1; } $env{'form.datemode'} = $reqinfo{'datemode'}; $env{'form.dateshift'} = $reqinfo{'dateshift'}; if ($reqinfo{'crstype'} eq 'official') { $env{'form.autoadds'} = $reqinfo{'autoadds'}; $env{'form.autodrops'} = $reqinfo{'autodrops'}; if ($reqinfo{'instcode'} ne '') { $env{'form.sectotal'} = $reqinfo{'sectotal'}; $env{'form.crosslisttotal'} = $reqinfo{'crosslisttotal'}; $env{'form.instcode'} = $reqinfo{'instcode'}; my $crscode = { $cnum => $reqinfo{'instcode'}, }; &extract_instcode($dom,'instcode',$crscode,$cnum); (undef,undef,my $instcredits) = &Apache::lonnet::auto_validate_instcode(undef,$dom, $reqinfo{'instcode'}); if ($instcredits ne $reqinfo{'defaultcredits'}) { $env{'form.coursecredits'} = $reqinfo{'defaultcredits'}; } } } elsif (($reqinfo{'crstype'} eq 'unofficial') || ($reqinfo{'crstype'} eq 'textbook')) { $env{'form.coursecredits'} = $reqinfo{'defaultcredits'}; } my @currsec; if (ref($reqinfo{'sections'}) eq 'HASH') { foreach my $i (sort(keys(%{$reqinfo{'sections'}}))) { if (ref($reqinfo{'sections'}{$i}) eq 'HASH') { my $sec = $reqinfo{'sections'}{$i}{'inst'}; $env{'form.secnum_'.$i} = $sec; $env{'form.sec_'.$i} = '1'; if (!grep(/^\Q$sec\E$/,@currsec)) { push(@currsec,$sec); } $env{'form.loncapasec_'.$i} = $reqinfo{'sections'}{$i}{'loncapa'}; } } } if (ref($reqinfo{'crosslists'}) eq 'HASH') { foreach my $i (sort(keys(%{$reqinfo{'crosslists'}}))) { if (ref($reqinfo{'crosslists'}{$i}) eq 'HASH') { $env{'form.crosslist_'.$i} = '1'; $env{'form.crosslist_'.$i.'_instsec'} = $reqinfo{'crosslists'}{$i}{'instsec'}; $env{'form.crosslist_'.$i.'_lcsec'} = $reqinfo{'crosslists'}{$i}{'loncapa'}; if ($reqinfo{'crosslists'}{$i}{'instcode'} ne '') { my $key = $cnum.$i; my $crscode = { $key => $reqinfo{'crosslists'}{$i}{'instcode'}, }; &extract_instcode($dom,'crosslist',$crscode,$key,$i); } } } } if (ref($reqinfo{'personnel'}) eq 'HASH') { my $i = 0; foreach my $user (sort(keys(%{$reqinfo{'personnel'}}))) { my ($uname,$udom) = split(':',$user); if (ref($reqinfo{'personnel'}{$user}) eq 'HASH') { if (ref($reqinfo{'personnel'}{$user}{'roles'}) eq 'ARRAY') { foreach my $role (sort(@{$reqinfo{'personnel'}{$user}{'roles'}})) { $env{'form.person_'.$i.'_role'} = $role; $env{'form.person_'.$i.'_firstname'} = $reqinfo{'personnel'}{$user}{'firstname'}; $env{'form.person_'.$i.'_lastname'} = $reqinfo{'personnel'}{$user}{'lastname'}; ; $env{'form.person_'.$i.'_emailaddr'} = $reqinfo{'personnel'}{$user}{'emailaddr'}; $env{'form.person_'.$i.'_uname'} = $uname; $env{'form.person_'.$i.'_dom'} = $udom; if (ref($reqinfo{'personnel'}{$user}{$role}) eq 'HASH') { if (ref($reqinfo{'personnel'}{$user}{$role}{'usec'}) eq 'ARRAY') { my @usecs = @{$reqinfo{'personnel'}{$user}{$role}{'usec'}}; my @newsecs; if (@usecs > 0) { foreach my $sec (@usecs) { if (grep(/^\Q$sec\E/,@currsec)) { $env{'form.person_'.$i.'_sec'} = $sec; } else { push(@newsecs,$sec); } } } if (@newsecs > 0) { $env{'form.person_'.$i.'_newsec'} = join(',',@newsecs); } } } $i ++; } } } } $env{'form.persontotal'} = $i; } } } return $result; } sub get_request_settings { my ($dom,$cnum,$udom,$uname) = @_; my $requestkey = $dom.'_'.$cnum; my ($result,%reqinfo); if ($requestkey =~ /^($match_domain)_($match_courseid)$/) { my %history = &Apache::lonnet::restore($requestkey,'courserequests',$udom,$uname); my $disposition = $history{'disposition'}; if (($disposition eq 'approval') || ($disposition eq 'pending')) { if (ref($history{'details'}) eq 'HASH') { %reqinfo = %{$history{'details'}}; $result = 'ok'; } else { $result = 'nothash'; } } else { $result = 'notqueued'; } } else { $result = 'invalid'; } return ($result,%reqinfo); } sub extract_instcode { my ($cdom,$element,$crscode,$crskey,$counter) = @_; my (%codes,@codetitles,%cat_titles,%cat_order); if (&Apache::lonnet::auto_instcode_format('requests',$cdom,$crscode,\%codes, \@codetitles,\%cat_titles, \%cat_order) eq 'ok') { if (ref($codes{$crskey}) eq 'HASH') { if (@codetitles > 0) { my $sel = $element; if ($element eq 'crosslist') { $sel .= '_'.$counter; } foreach my $title (@codetitles) { $env{'form.'.$sel.'_'.$title} = $codes{$crskey}{$title}; } } } } return; } sub generate_date_items { my ($currentval,$item) = @_; if ($currentval =~ /\d+/) { my ($tzname,$sec,$min,$hour,$mday,$month,$year) = &Apache::lonhtmlcommon::get_timedates($currentval); $env{'form.'.$item.'_day'} = $mday; $env{'form.'.$item.'_month'} = $month+1; $env{'form.'.$item.'_year'} = $year; } return; } sub print_textbook_form { my ($r,$dom,$incdoms,$domdefs,$settings,$can_request) = @_; my (%prefab,%ordered,%numprefab); my $crstype = 'textbook'; # # Retrieve list of prefabricated courses (textbook courses and templates) cloneable by user # foreach my $type ('textbooks','templates') { $numprefab{$type} = 0; if (ref($settings) eq 'HASH') { $prefab{$type} = $settings->{$type}; if (ref($prefab{$type}) eq 'HASH') { foreach my $item (keys(%{$prefab{$type}})) { my ($clonedom,$clonecrs) = split(/_/,$item); if (ref($prefab{$type}{$item}) eq 'HASH') { if (&Apache::loncoursequeueadmin::can_clone_course($env{'user.name'}, $env{'user.domain'},$clonecrs,$clonedom,$crstype,$dom)) { my $num = $prefab{$type}{$item}{'order'}; $ordered{$type}{$num} = $item; $numprefab{$type} ++; } } } } } } # # Check if domain has multiple library servers # my ($home_server_pick,$numlib) = &Apache::loncommon::home_server_form_item($dom,'chome', 'default','hide'); if ($numlib > 1) { $home_server_pick = &mt('Home Server for Course').': '.$home_server_pick.'<br />'; } # # Retrieve information about courses owned by user, or in which user has an active # Course Coordinator role # my $numcurrent; my %cloneable = &Apache::lonnet::courseiddump($dom,'.',1,'.',$env{'user.name'}.':'.$env{'user.domain'}, '.',undef,undef,'Course'); my %ccroles = &Apache::lonnet::get_my_roles($env{'user.name'},$env{'user.domain'},'userroles', ['active'],['cc']); my $cc_clone = ''; foreach my $role (keys(%ccroles)) { my ($cnum,$cdom,$rest) = split(/:/,$role,3); $cc_clone .= $cdom.':'.$cnum.'&'; unless (exists($cloneable{$cdom.'_'.$cnum})) { my %courseinfo = &Apache::lonnet::coursedescription($cdom.'_'.$cnum,{'one_time' => 1}); $cloneable{$cdom.'_'.$cnum} = { context => $courseinfo{'internal.creationcontext'}, created => $courseinfo{'internal.created'}, creator => $courseinfo{'internal.creator'}, description => $courseinfo{'description'}, inst_code => $courseinfo{'coursecode'}, owner => $courseinfo{'internal.courseowner'}, releaserequired => $courseinfo{'internal.releaserequired'}, type => $courseinfo{'type'}, }; } } my $numcurrent = scalar(keys(%cloneable)); # # Retrieve information about courses from user's domain which user can clone, but which not owned # or cloneable based on Course Coordinator role. # my ($numdomcourses,%domcloneable); my %allcloneable = &Apache::lonnet::courseiddump($dom,'.',1,'.','.','.',undef,undef,'Course', undef,undef,undef,undef,undef, $env{'user.name'}.':'.$env{'user.domain'}, $cc_clone,1); foreach my $cid (keys(%allcloneable)) { unless (exists($cloneable{$cid})) { $domcloneable{$cid} = $allcloneable{$cid}; } } $numdomcourses = scalar(keys(%domcloneable)); my $fullname = &Apache::loncommon::plainname($env{'user.name'}, $env{'user.domain'}); # # Retrieve any custom form information prior to rendering page # my $initprocess = &Apache::lonnet::auto_crsreq_update($dom,undef,$crstype,'initializereview',$env{'user.name'}, $env{'user.domain'},$fullname); my %custominit; if (ref($initprocess) eq 'HASH') { &custom_formitems($initprocess,\%custominit); } # # Retrieve any custom onload actions or javascript used for page before rendering # my ($customonload,$customjs,$customvalidationjs); my $inprocess = &Apache::lonnet::auto_crsreq_update($dom,undef,$crstype,'prereview',$env{'user.name'}, $env{'user.domain'},$fullname,undef,undef, undef,undef,\%custominit); if (ref($inprocess) eq 'HASH') { $customonload = $inprocess->{'onload'}; $customjs = $inprocess->{'javascript'}; $customvalidationjs = $inprocess->{'validationjs'}; } my $postprocess = &Apache::lonnet::auto_crsreq_update($dom,undef,$crstype,'review', $env{'user.name'}, $env{'user.domain'},$fullname,undef,undef, undef,undef,\%custominit); my $jscript = &textbook_request_javascript(\%numprefab,$numcurrent,$numdomcourses,$customvalidationjs); $jscript .= $customjs; my %loaditems; $loaditems{'onload'} = 'javascript:uncheckAllRadio();'.$customonload; $r->print(&header('Course Request',$jscript,\%loaditems)); if (ref($can_request) eq 'HASH') { unless ((scalar(keys(%{$can_request})) == 1) && ($can_request->{'textbook'})) { &Apache::lonhtmlcommon::add_breadcrumb( { href => '/adm/requestcourse', text => 'Pick action', }); } } &Apache::lonhtmlcommon::add_breadcrumb({text=>'Course Request'}); $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests')); &startContentScreen($r,'textbookrequests'); # # Show domain selector form, if required. # if (@{$incdoms} > 1) { my $onchange = 'this.form.submit()'; $r->print('<form name="domforcourse" method="post" action="/adm/requestcourse">'. '<div><fieldset><legend>'.&mt('Domain').'</legend>'. &Apache::loncommon::select_dom_form($dom,'showdom','',1,$onchange,$incdoms). '</fieldset></form>'); } # # Course request form # # # Course Title # $r->print('<form name="requestcourse" method="post" action="/adm/requestcourse" onsubmit="return validTextbookReq();">'. '<div>'. '<fieldset>'. '<legend>'.&mt('Course Information').'</legend>'. '<span class="LC_nobreak">'.&mt('Title').': '. '<input type="text" size="60" name="cdescr" value="" /></span><br />'. $home_server_pick.'<br /></fieldset>'. '</div>'); # # Content source selection, if more than one available # if (keys(%cloneable) || keys(%ordered) || keys(%domcloneable)) { $r->print('<div>'. '<fieldset><legend>'.&mt('Course Content').'</legend>'); if (keys(%ordered)) { if (ref($ordered{'textbooks'}) eq 'HASH') { $r->print('<span class="LC_nobreak"><label>'. '<input type="radio" name="cloning" value="textbook" onclick="javascript:cloneChoice();" />'. &mt('Load textbook content').'</span>'.(' 'x2).' '); } if (ref($ordered{'templates'}) eq 'HASH') { $r->print('<span class="LC_nobreak"><label>'. '<input type="radio" name="cloning" value="template" onclick="javascript:cloneChoice();" />'. &mt('Load pre-existing template').'</span>'.(' 'x2).' '); } } if (keys(%cloneable)) { $r->print('<span class="LC_nobreak"><label>'. '<input type="radio" name="cloning" value="existing" onclick="javascript:cloneChoice();" />'. &mt('Copy one of your courses').'</label></span>'.(' 'x2).' '); } if (keys(%domcloneable)) { $r->print('<span class="LC_nobreak"><label>'. '<input type="radio" name="cloning" value="colleague" onclick="javascript:cloneChoice();" />'. &mt("Copy a colleague's course").'</label></span>'.(' 'x2).' '); } $r->print('<span class="LC_nobreak"><label>'. '<input type="radio" name="cloning" value="none" checked="checked" onclick="javascript:cloneChoice();" />'. &mt('Empty course shell').'</label></span>'); } else { $r->print('<input type="hidden" name="cloning" value="none" />'); } # # Table of cloneable textbook courses # if (keys(%ordered)) { foreach my $type ('textbooks','templates') { my $divid = 'showtextbook'; my $radioid = 'book'; if ($type eq 'templates') { $divid = 'showtemplate'; $radioid = 'template'; } if (ref($ordered{$type}) eq 'HASH') { $r->print('<div id="'.$divid.'" style="display:none">'. &Apache::loncommon::start_data_table(). &Apache::loncommon::start_data_table_header_row(). '<th>'.&mt('Title').'</th>'); if ($type eq 'textbooks') { $r->print('<th>'.&mt('Author(s)').'</th>'); } $r->print('<th>'.&mt('Subject').'</th>'); if ($type eq 'textbooks') { $r->print('<th>'.&mt('Publisher').'</th>'. '<th>'.&mt('Book').'</th>'); } $r->print(&Apache::loncommon::end_data_table_header_row()); my @items = sort { $a <=> $b } keys(%{$ordered{$type}}); foreach my $num (@items) { my $item = $ordered{$type}{$num}; my $cleantitle=&HTML::Entities::encode($prefab{$type}{$item}{'title'},'<>&"'); $cleantitle=~s/'/\\'/g; $cleantitle =~ s/^\s+//; $r->print(&Apache::loncommon::start_data_table_row(). '<td><label><input type="radio" name="'.$radioid.'" value="'.$item.'" />'. $cleantitle.'</label></td>'); if ($type eq 'textbooks') { $r->print('<td>'.$prefab{$type}{$item}{'author'}.'</td>'); } $r->print('<td>'.$prefab{$type}{$item}{'subject'}.'</td>'); if ($type eq 'textbooks') { $r->print('<td>'.$prefab{$type}{$item}{'publisher'}.'</td>'. '<td><img border="0" src="'.$prefab{$type}{$item}{'image'}. '" alt="'.$cleantitle.'" /></td>'); } $r->print(&Apache::loncommon::end_data_table_row()); } $r->print(&Apache::loncommon::end_data_table(). '</div>'); } } } # # Table of user's current courses (owner and/or course coordinator) # my %lt = &clone_text(); if (keys(%cloneable)) { $r->print('<div id="showexisting" style="display:none">'. &clone_selection_table($dom,'owned',\%cloneable). '<p><input type="radio" name="owndatemode" value="delete" /> '.$lt{'ncd'}. '</label><br /><label>'. '<input type="radio" name="owndatemode" value="preserve" /> '.$lt{'prd'}. '</label><br /><label>'. '<input type="radio" name="owndatemode" value="shift" checked="checked" /> '. $lt{'shd'}.'</label>'. '<input type="text" size="5" name="owndateshift" value="364" />'. '</div>'); } # # Table of other cloneable courses from user's domain (exclude own courses) # if (keys(%domcloneable)) { $r->print('<div id="showcolleague" style="display:none">'. &clone_selection_table($dom,'colleague',\%domcloneable). '<p><input type="radio" name="colldatemode" value="delete" /> '.$lt{'ncd'}. '</label><br /><label>'. '<input type="radio" name="colldatemode" value="preserve" /> '.$lt{'prd'}. '</label><br /><label>'. '<input type="radio" name="colldatemode" value="shift" checked="checked" /> '. $lt{'shd'}.'</label>'. '<input type="text" size="5" name="colldateshift" value="364" />'. '</div>'); } # # End of content selector # if (keys(%cloneable) || keys(%domcloneable) || keys(%ordered)) { $r->print('</fieldset></div>'); } my %accesstitles = ( 'start' => 'Default start access', 'end' => 'Default end access', ); my %help_item = ( start => 'Course_Request_Access_Start', end => 'Course_Request_Access_End', ); my $starttime = time; my $endtime = time+(6*30*24*60*60); # 6 months from now, approx my $startform = &Apache::lonhtmlcommon::date_setter('requestcourse','accessstart', $starttime,'','','',1,'','','',1); my $endform = &Apache::lonhtmlcommon::date_setter('requestcourse','accessend', $endtime,'','','',1,'','','',1); # # Set default start and end dates for student access # $r->print('<div>'. '<fieldset><legend>'.&mt('Student Access Dates').'</legend>'. &Apache::loncommon::help_open_topic($help_item{'start'}). ' '.&mt($accesstitles{'start'}).$startform.'<br />'. &Apache::loncommon::help_open_topic($help_item{'end'}). ' '.&mt($accesstitles{'end'}).$endform.'<br /></div>'); # # Display any custom fields for this course type # if (ref($postprocess) eq 'HASH') { if ($postprocess->{'reviewweb'}) { $r->print($postprocess->{'reviewweb'}); } } # # Submit button # $r->print('<input type="hidden" name="crstype" value="textbook" />'. '<input type="hidden" name="action" value="process" />'. '<input type="submit" value="'.&mt('Create course').'" />'); # # End request form # $r->print('</form>'); &endContentScreen($r). $r->print(&Apache::loncommon::end_page()); return; } sub clone_selection_table { my ($dom,$name,$cloneableref) = @_; return unless ((ref($cloneableref) eq 'HASH') && (($name eq 'owned') || ($name eq 'colleague'))); my %allownernames; my %sortbytitle; my $output; foreach my $cid (sort(keys(%{$cloneableref}))) { if (ref($cloneableref->{$cid}) eq 'HASH') { my $cdesc = $cloneableref->{$cid}{'description'}; $cdesc =~ s/`/'/g; if ($cdesc ne '') { push(@{$sortbytitle{$cdesc}},$cid); } } } foreach my $title (sort(keys(%sortbytitle))) { if (ref($sortbytitle{$title}) eq 'ARRAY') { foreach my $cid (sort(@{$sortbytitle{$title}})) { my $cleantitle=&HTML::Entities::encode($title,'<>&"'); $cleantitle=~s/'/\\'/g; $cleantitle =~ s/^\s+//; my ($namestr,@owners,%ownernames); if ($cloneableref->{$cid}{'owner'} ne '') { push(@owners,$cloneableref->{$cid}{'owner'}); } if ($cloneableref->{$cid}{'co-owners'} ne '') { foreach my $item (split(/,/,$cloneableref->{$cid}{'co-owners'})) { if (($item ne '') && (!grep(/^\Q$item\E$/,@owners))) { push(@owners,$item); } } } foreach my $owner (@owners) { my ($ownername,$ownerdom); if ($owner =~ /:/) { ($ownername,$ownerdom) = split(/:/,$owner); } else { $ownername = $owner; if ($owner ne '') { $ownerdom = $dom; } } if ($ownername ne '' && $ownerdom ne '') { if (exists($allownernames{$ownername.':'.$ownerdom})) { $ownernames{$ownername.':'.$ownerdom} = $allownernames{$ownername.':'.$ownerdom}; } else { my %namehash=&Apache::loncommon::getnames($ownername,$ownerdom); $ownernames{$ownername.':'.$ownerdom} = \%namehash; $allownernames{$ownername.':'.$ownerdom} = $ownernames{$ownername.':'.$ownerdom}; } } } my @lastnames; foreach my $owner (keys(%ownernames)) { if (ref($ownernames{$owner}) eq 'HASH') { push(@lastnames,$ownernames{$owner}{'lastname'}); } } if (@lastnames) { $namestr = join(', ',sort(@lastnames)); } $output .= &Apache::loncommon::start_data_table_row(). '<td><label><input type="radio" name="'.$name.'" value="'.$cid.'" />'. ' '.$cleantitle.'</label></td>'. '<td>'.$namestr.'</td>'. &Apache::loncommon::end_data_table_row(); } } } if ($output) { return &Apache::loncommon::start_data_table(). &Apache::loncommon::start_data_table_header_row(). '<th>'.&mt('Title').'</th>'. '<th>'.&mt('Owner/co-owner(s)').'</th>'. &Apache::loncommon::end_data_table_header_row(). $output. &Apache::loncommon::end_data_table(); } return; } sub process_textbook_request { my ($r,$dom,$action,$domdefs,$domconfig,$can_request) = @_; my ($uniquecode,$req_notifylist); my $crstype = 'textbook'; if (ref($domconfig) eq 'HASH') { if (ref($domconfig->{'requestcourses'}) eq 'HASH') { if (ref($domconfig->{'requestcourses'}{'notify'}) eq 'HASH') { $req_notifylist = $domconfig->{'requestcourses'}{'notify'}{'approval'}; } if (ref($domconfig->{'requestcourses'}{'uniquecode'}) eq 'HASH') { $uniquecode = $domconfig->{'requestcourses'}{'uniquecode'}{$crstype}; } } } my $now = time; my $reqtype = $env{'form.cloning'}; my (@inststatuses,$storeresult,$creationresult); my $cnum = &Apache::lonnet::generate_coursenum($dom,'Course'); my ($clonefrom,$clonedom,$clonecrs); if ($reqtype eq 'textbook') { $clonefrom = $env{'form.book'}; } elsif ($reqtype eq 'template') { $clonefrom = $env{'form.template'}; } elsif ($reqtype eq 'existing') { $clonefrom = $env{'form.owned'}; } elsif ($reqtype eq 'colleague') { $clonefrom = $env{'form.colleague'}; } my ($accessstart,$accessend) = &dates_from_form('accessstart','accessend'); if ($clonefrom) { ($clonedom,$clonecrs) = split(/_/,$clonefrom); if (&Apache::lonnet::homeserver($clonecrs,$clonedom) ne 'no_host') { my $canclone = &Apache::loncoursequeueadmin::can_clone_course($env{'user.name'}, $env{'user.domain'},$clonecrs,$clonedom,$crstype,$dom); unless ($canclone) { undef($clonecrs); undef($clonedom); } } else { undef($clonecrs); undef($clonedom); } } $r->print(&header('Course Creation')); if (ref($can_request) eq 'HASH') { unless ((scalar(keys(%{$can_request})) == 1) && ($can_request->{'textbook'})) { &Apache::lonhtmlcommon::add_breadcrumb( { href => '/adm/requestcourse', text => 'Pick action', }); } } &Apache::lonhtmlcommon::add_breadcrumb( { href => '/adm/requestcourse', text => "Create Course", } ); &Apache::lonhtmlcommon::add_breadcrumb({text=>'Request Processed'}); $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests')); &startContentScreen($r,'textbookrequests'); my $details = { owner => $env{'user.name'}, domain => $env{'user.domain'}, cdom => $dom, cnum => $cnum, coursehome => $env{'form.chome'}, cdescr => $env{'form.cdescr'}, crstype => $crstype, uniquecode => $uniquecode, clonedom => $clonedom, clonecrs => $clonecrs, accessstart => $accessstart, accessend => $accessend, personnel => {}, }; if (($clonecrs ne '') && ($clonedom ne '')) { if ($reqtype eq 'existing') { $details->{datemode} = $env{'form.owndatemode'}; if ($details->{datemode} eq 'shift') { $details->{dateshift} = $env{'form.owndateshift'}; } else { $details->{dateshift} = ''; } } elsif ($reqtype eq 'colleague') { $details->{datemode} = $env{'form.colldatemode'}; if ($details->{datemode} eq 'shift') { $details->{dateshift} = $env{'form.colldateshift'}; } else { $details->{dateshift} = ''; } } elsif (($reqtype eq 'textbook') || ($reqtype eq 'template')) { $details->{datemode} = 'delete'; $details->{dateshift} = ''; } if ($details->{dateshift} ne '') { $details->{dateshift} =~ s/[^\d\.]+//g; } } else { $details->{datemode} = ''; $details->{dateshift} = ''; } my $lonhost = $r->dir_config('lonHostID'); $r->rflush(); my ($result,$output,$customized) = &process_request($r,$lonhost,$dom,$cnum,$crstype,$now,$details, '',$req_notifylist,[],$domconfig); $r->print($output); if (&Apache::loncoursequeueadmin::author_prompt()) { unless ($customized) { &print_author_prompt($r,$action,$cnum,$dom,$crstype,$result); } } elsif ($result eq 'created') { unless ($customized) { $r->print('<p><a href="/adm/requestcourse">'.&mt('Create another course').'</a></p>'); } } &endContentScreen($r); $r->print(&Apache::loncommon::end_page()); } sub textbook_request_javascript { my ($numprefab,$numcurrent,$numcolleague,$customvalidationjs) = @_; return unless (ref($numprefab) eq 'HASH'); return if (!$numprefab->{'textbooks'} && !$numprefab->{'templates'} && !$numcurrent && !$numcolleague); my %js_lt = &Apache::lonlocal::texthash( choose => 'Please select a content option.', textbook => 'Please select a textbook, or choose a different option.', template => 'Please select a template, or choose a different option.', existing => 'Please select one of your existing courses to copy, or choose a different option.', colleague => "Please select a colleague's course to copy, or choose a different option.", title => 'Please enter a course title.', ); &js_escape(\%js_lt); return <<"ENDSCRIPT"; function cloneChoice() { if (document.requestcourse.cloning) { var radioLength = document.requestcourse.cloning.length; if (radioLength == undefined) { var val = document.requestcourse.cloning.value; if ((val == 'textbook') || (val == 'template') || (val == 'existing') || (val == 'colleague')) { var elem = document.getElementById('show'+val); if (document.requestcourse.cloning.checked) { elem.style.display = 'block'; } else { uncheckRadio(val); elem.style.display = 'none'; } } } else { for (var i=0; i<radioLength; i++) { var val = document.requestcourse.cloning[i].value; if ((val == 'textbook') || (val == 'template') || (val == 'existing') || (val == 'colleague')) { var elem = document.getElementById('show'+val); if (document.requestcourse.cloning[i].checked) { elem.style.display = 'block'; } else { if (val == 'textbook') { uncheckRadio('book'); } if (val == 'template') { uncheckRadio('template'); } if (val == 'existing') { uncheckRadio('owned'); } if (val == 'colleague') { uncheckRadio('colleague'); } elem.style.display = 'none'; } } } } } return; } function uncheckRadio(radioGroupName) { var group = document.getElementsByName(radioGroupName); var radioLength = group.length; if (radioLength == undefined) { group.checked = false; } else { for (var i=0; i<radioLength; i++) { group[i].checked = false; } } return; } function uncheckAllRadio() { uncheckRadio('cloning'); var numbook = $numprefab->{'textbooks'}; var numtemplate = $numprefab->{'templates'}; var numcurrent = $numcurrent; var numcolleague = $numcolleague; if (numbook > 0) { uncheckRadio('textbook'); } if (numtemplate > 0) { uncheckRadio('template'); } if (numcurrent > 0) { uncheckRadio('existing'); } if (numcolleague > 0) { uncheckRadio('colleague'); } return; } function validTextbookReq() { if (document.requestcourse.cloning) { var cloneChoice = 0; var radioLength = document.requestcourse.cloning.length; if (radioLength == undefined) { if (document.requestcourse.cloning.checked == false) { alert("$js_lt{'choose'}"); return false; } else { cloneChoice = document.requestcourse.cloning.value; } } else { for (var i=0; i<radioLength; i++) { if (document.requestcourse.cloning[i].checked) { cloneChoice = document.requestcourse.cloning[i].value; break; } } if (cloneChoice == 0) { alert("$js_lt{'choose'}"); return false; } } var group; if ((cloneChoice == 'textbook') || (cloneChoice == 'template') || (cloneChoice == 'existing') || (cloneChoice == 'colleague')) { var group; if (cloneChoice == 'textbook') { group = document.getElementsByName('book'); } else { if (cloneChoice == 'template') { group = document.getElementsByName('template'); } else { if (cloneChoice == 'existing') { group = document.getElementsByName('owned'); } else { group = document.getElementsByName('colleague'); } } } var groupLength = group.length; var chosen = 0; if (groupLength == undefined) { if (group.checked) { chosen = 1; } } else { for (var j=0; j<groupLength; j++) { if (group[j].checked) { chosen = 1; break; } } } if (chosen == 0) { if (cloneChoice == 'textbook') { alert("$js_lt{'textbook'}"); } else { if (cloneChoice == 'template') { alert("$js_lt{'template'}"); } else { if (cloneChoice == 'existing') { alert("$js_lt{'existing'}"); } else { alert("$js_lt{'colleague'}"); } } } return false; } } } if (document.requestcourse.cdescr.value == '') { alert("$js_lt{'title'}"); return false; } $customvalidationjs return true; } ENDSCRIPT } sub textbook_request_disabled { my ($r,$dom,$action,$can_request) = @_; if (ref($can_request) eq 'HASH') { if ($action eq 'process') { unless ((scalar(keys(%{$can_request})) == 1)) { &Apache::lonhtmlcommon::add_breadcrumb( { href => '/adm/requestcourse', text => 'Pick action', }); } } } $r->print(&header('Course Request')); &Apache::lonhtmlcommon::add_breadcrumb({text=>'Course Request'}); $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests'). '<div>'. '<p class="LC_info">'.&mt('You do not have privileges to request creation of textbook courses.').'</p>'); if (ref($can_request) eq 'HASH') { if (scalar(keys(%{$can_request})) > 1) { $r->print('<a href="/adm/requestcourse">'.&mt('Go back').'</a>'); } } $r->print('</div>'. &Apache::loncommon::end_page()); return; } sub startContentScreen { my ($r,$mode)=@_; $r->print("\n".'<ul class="LC_TabContentBigger" id="textbookreq">'."\n"); $r->print('<li'.(($mode eq 'textbookrequests')?' class="active"':'').'><a href="/adm/requestcourse"><b> '.&mt('Request a Course').' </b></a></li>'."\n"); $r->print('<li'.(($mode eq 'textbooklogs')?' class="active"':'').'><a href="/adm/requestcourse?action=log&crstype=textbook&tabs=on"><b> '.&mt('Course Request History').' </b></a></li>'."\n"); $r->print("\n".'</ul>'."\n"); $r->print('<div class="LC_Box" style="clear:both;margin:0;"><div id="mainbox" style="margin:0 0;padding:0 0;"><div class="LC_ContentBox" id="maincontentbox" style="display: block;">'); } sub endContentScreen { my ($r)=@_; $r->print('</div></div></div>'); } 1;