--- loncom/interface/lonmodifycourse.pm 2010/03/29 17:32:28 1.52 +++ loncom/interface/lonmodifycourse.pm 2022/02/20 19:22:30 1.79.2.9.2.2 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # handler for DC-only modifiable course settings # -# $Id: lonmodifycourse.pm,v 1.52 2010/03/29 17:32:28 raeburn Exp $ +# $Id: lonmodifycourse.pm,v 1.79.2.9.2.2 2022/02/20 19:22:30 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -34,23 +34,36 @@ use Apache::loncommon; use Apache::lonhtmlcommon; use Apache::lonlocal; use Apache::lonuserutils; +use Apache::loncreateuser; use Apache::lonpickcourse; use lib '/home/httpd/lib/perl'; -use LONCAPA; +use LONCAPA qw(:DEFAULT :match); + +my $registered_cleanup; +my $modified_dom; sub get_dc_settable { - my ($type) = @_; + my ($type,$cdom) = @_; if ($type eq 'Community') { - return ('courseowner'); + return ('courseowner','selfenrollmgrdc','selfenrollmgrcc'); } else { - return ('courseowner','coursecode','authtype','autharg'); + my @items = ('courseowner','coursecode','authtype','autharg','selfenrollmgrdc', + 'selfenrollmgrcc','mysqltables'); + if (&showcredits($cdom)) { + push(@items,'defaultcredits'); + } + my %passwdconf = &Apache::lonnet::get_passwdconf($cdom); + if (($passwdconf{'crsownerchg'}) && ($type ne 'Placement')) { + push(@items,'nopasswdchg'); + } + return @items; } } sub autoenroll_keys { - my $internals = ['coursecode','courseowner','authtype','autharg','autoadds','autodrops', - 'autostart','autoend','sectionnums','crosslistings', - 'co-owners']; + my $internals = ['coursecode','courseowner','authtype','autharg','defaultcredits', + 'autoadds','autodrops','autostart','autoend','sectionnums', + 'crosslistings','co-owners','autodropfailsafe']; my $accessdates = ['default_enrollment_start_date','default_enrollment_end_date']; return ($internals,$accessdates); } @@ -88,6 +101,7 @@ sub get_enrollment_settings { @items = map { 'internal.'.$_; } (@{$internals}); push(@items,@{$accessdates}); } + push(@items,'internal.nopasswdchg'); my %settings = &Apache::lonnet::get('environment',\@items,$cdom,$cnum); my %enrollvar; $enrollvar{'autharg'} = ''; @@ -112,8 +126,13 @@ sub get_enrollment_settings { $enrollvar{$type} =~ s/,/, /g; } elsif ($type eq "authtype" || $type eq "autharg" || $type eq "coursecode" - || $type eq "crosslistings") { + || $type eq "crosslistings" || $type eq "selfenrollmgr" + || $type eq "autodropfailsafe" || $type eq 'nopasswdchg') { $enrollvar{$type} = $settings{$item}; + } elsif ($type eq 'defaultcredits') { + if (&showcredits($cdom)) { + $enrollvar{$type} = $settings{$item}; + } } elsif ($type eq 'courseowner') { if ($settings{$item} =~ /^[^:]+:[^:]+$/) { $enrollvar{$type} = $settings{$item}; @@ -145,165 +164,490 @@ sub print_course_search_page { $type = 'Course'; } &print_header($r,$type); - my $filterlist = ['descriptfilter', - 'instcodefilter','ownerfilter', - 'coursefilter']; - my $filter = {}; - my ($numtitles,$cctitle,$dctitle); + my ($filterlist,$filter) = &get_filters($dom); + my ($numtitles,$cctitle,$dctitle,@codetitles); my $ccrole = 'cc'; if ($type eq 'Community') { $ccrole = 'co'; } $cctitle = &Apache::lonnet::plaintext($ccrole,$type); $dctitle = &Apache::lonnet::plaintext('dc'); - $r->print(&Apache::lonpickcourse::js_changer()); + $r->print(&Apache::loncommon::js_changer()); if ($type eq 'Community') { $r->print('

'.&mt('Search for a community in the [_1] domain',$domdesc).'

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

'.&mt('Search for a course in the [_1] domain',$domdesc).'

'); - } - $r->print(&Apache::lonpickcourse::build_filters($filterlist,$type, - undef,undef,$filter,$action,\$numtitles,'modifycourse')); + } + $r->print(&Apache::loncommon::build_filters($filterlist,$type,undef,undef,$filter,$action, + \$numtitles,'modifycourse',undef,undef,undef, + \@codetitles,$dom)); + + my ($actiontext,$roleoption,$settingsoption); if ($type eq 'Community') { - $r->print(&mt('Actions available after searching for a community:').''); - } else { - $r->print(&mt('Actions available after searching for a course:').''); + $actiontext = &mt('Actions available after searching for a community:'); + } else { + $actiontext = &mt('Actions available after searching for a course:'); } + if (&Apache::lonnet::allowed('ccc',$dom)) { + if ($type eq 'Community') { + $roleoption = &mt('Enter the community with the role of [_1]',$cctitle); + $settingsoption = &mt('View or modify community settings which only a [_1] may modify.',$dctitle); + } else { + $roleoption = &mt('Enter the course with the role of [_1]',$cctitle); + $settingsoption = &mt('View or modify course settings which only a [_1] may modify.',$dctitle); + } + } elsif (&Apache::lonnet::allowed('rar',$dom)) { + my ($roles_by_num,$description,$accessref,$accessinfo) = &Apache::lonnet::get_all_adhocroles($dom); + if ((ref($roles_by_num) eq 'ARRAY') && (ref($description) eq 'HASH')) { + if (@{$roles_by_num} > 1) { + if ($type eq 'Community') { + $roleoption = &mt('Enter the community with one of the available ad hoc roles'); + } else { + $roleoption = &mt('Enter the course with one of the available ad hoc roles.'); + } + } else { + my $rolename = $description->{$roles_by_num->[0]}; + if ($type eq 'Community') { + $roleoption = &mt('Enter the community with the ad hoc role of: [_1]',$rolename); + } else { + $roleoption = &mt('Enter the course with the ad hoc role of: [_1]',$rolename); + } + } + } + if ($type eq 'Community') { + $settingsoption = &mt('View community settings which only a [_1] may modify.',$dctitle); + } else { + $settingsoption = &mt('View course settings which only a [_1] may modify.',$dctitle); + } + } + $r->print($actiontext.''); + return; } sub print_course_selection_page { - my ($r,$dom,$domdesc) = @_; + my ($r,$dom,$domdesc,$permission) = @_; my $type = $env{'form.type'}; if (!defined($type)) { $type = 'Course'; } &print_header($r,$type); -# Criteria for course search - my $filterlist = ['descriptfilter', - 'instcodefilter','ownerfilter', - 'ownerdomfilter','coursefilter']; - my %filter; + if ($permission->{'adhocrole'} eq 'custom') { + my %lt = &Apache::lonlocal::texthash( + title => 'Ad hoc role selection', + preamble => 'Please choose an ad hoc role in the course.', + cancel => 'Click "OK" to enter the course, or "Cancel" to choose a different course.', + ); + my %jslt = &Apache::lonlocal::texthash ( + none => 'You are not eligible to use an ad hoc role for the selected course', + ok => 'OK', + exit => 'Cancel', + ); + &js_escape(\%jslt); + $r->print(<<"END"); + + + +END + } elsif ($permission->{'adhocrole'} eq 'coord') { + $r->print(<<"END"); + +END + } + +# Criteria for course search + my ($filterlist,$filter) = &get_filters(); my $action = '/adm/modifycourse'; my $dctitle = &Apache::lonnet::plaintext('dc'); - my $numtitles; - $r->print(&Apache::lonpickcourse::js_changer()); + my ($numtitles,@codetitles); + $r->print(&Apache::loncommon::js_changer()); $r->print(&mt('Revise your search criteria for this domain').' ('.$domdesc.').
'); - $r->print(&Apache::lonpickcourse::build_filters($filterlist,$type, - undef,undef,\%filter,$action,\$numtitles)); - $filter{'domainfilter'} = $dom; - my %courses = &Apache::lonpickcourse::search_courses($r,$type,0, - \%filter,$numtitles); + $r->print(&Apache::loncommon::build_filters($filterlist,$type,undef,undef,$filter,$action, + \$numtitles,'modifycourse',undef,undef,undef, + \@codetitles,$dom,$env{'form.form'})); + my %courses = &Apache::loncommon::search_courses($dom,$type,$filter,$numtitles, + undef,undef,undef,\@codetitles); &Apache::lonpickcourse::display_matched_courses($r,$type,0,$action,undef,undef,undef, - %courses); + $dom,undef,%courses); return; } +sub get_filters { + my ($dom) = @_; + my @filterlist = ('descriptfilter','instcodefilter','ownerfilter', + 'ownerdomfilter','coursefilter','sincefilter'); + # created filter + my $loncaparev = &Apache::lonnet::get_server_loncaparev($dom); + if ($loncaparev ne 'unknown_cmd') { + push(@filterlist,'createdfilter'); + } + my %filter; + foreach my $item (@filterlist) { + $filter{$item} = $env{'form.'.$item}; + } + return (\@filterlist,\%filter); +} + sub print_modification_menu { - my ($r,$cdesc,$domdesc,$dom,$type) = @_; + my ($r,$cdesc,$domdesc,$dom,$type,$cid,$coursehash,$permission) = @_; &print_header($r,$type); - my ($ccrole,$setquota_text,$setparams_text,$cat_text); + my ($ccrole,$categorytitle,$setquota_text,$setuploadquota_text,$cdom,$cnum); + if (ref($coursehash) eq 'HASH') { + $cdom = $coursehash->{'domain'}; + $cnum = $coursehash->{'num'}; + } else { + ($cdom,$cnum) = split(/_/,$cid); + } if ($type eq 'Community') { $ccrole = 'co'; } else { $ccrole = 'cc'; - } - my $action = '/adm/modifycourse'; + } + my %linktext; + if ($permission->{'setparms'} eq 'edit') { + %linktext = ( + 'setquota' => 'View/Modify quotas for group portfolio files, and for uploaded content', + 'setanon' => 'View/Modify responders threshold for anonymous survey submissions display', + 'selfenroll' => 'View/Modify Self-Enrollment configuration', + 'setpostsubmit' => 'View/Modify submit button behavior, post-submission', + 'setltiauth' => 'View/Modify re-authentication requirement for LTI launch of deep-linked item', + ); + } else { + %linktext = ( + 'setquota' => 'View quotas for group portfolio files, and for uploaded content', + 'setanon' => 'View responders threshold for anonymous survey submissions display', + 'selfenroll' => 'View Self-Enrollment configuration', + 'setpostsubmit' => 'View submit button behavior, post-submission', + 'setltiauth' => 'View re-authentication requirement for LTI launch of deep-linked item', + ); + } if ($type eq 'Community') { + if ($permission->{'setparms'} eq 'edit') { + $categorytitle = 'View/Modify Community Settings'; + $linktext{'setparms'} = 'View/Modify community owner'; + $linktext{'catsettings'} = 'View/Modify catalog settings for community'; + } else { + $categorytitle = 'View Community Settings'; + $linktext{'setparms'} = 'View community owner'; + $linktext{'catsettings'} = 'View catalog settings for community'; + } $setquota_text = &mt('Total disk space allocated for storage of portfolio files in all groups in a community.'); - $setparams_text = 'View/Modify community owner'; - $cat_text = 'View/Modify catalog settings for community'; + $setuploadquota_text = &mt('Disk space allocated for storage of content uploaded directly to a community via Content Editor.'); } else { + if ($permission->{'setparms'} eq 'edit') { + $categorytitle = 'View/Modify Course Settings'; + $linktext{'catsettings'} = 'View/Modify catalog settings for course'; + if (($type ne 'Placement') && (&showcredits($dom))) { + $linktext{'setparms'} = 'View/Modify course owner, institutional code, default authentication, credits, self-enrollment and table lifetime'; + } else { + $linktext{'setparms'} = 'View/Modify course owner, institutional code, default authentication, self-enrollment and table lifetime'; + } + } else { + $categorytitle = 'View Course Settings'; + $linktext{'catsettings'} = 'View catalog settings for course'; + if (($type ne 'Placement') && (&showcredits($dom))) { + $linktext{'setparms'} = 'View course owner, institutional code, default authentication, credits, self-enrollment and table lifetime'; + } else { + $linktext{'setparms'} = 'View course owner, institutional code, default authentication, self-enrollment and table lifetime'; + } + } $setquota_text = &mt('Total disk space allocated for storage of portfolio files in all groups in a course.'); - $setparams_text = 'View/Modify course owner, institutional code, and default authentication'; - $cat_text = 'View/Modify catalog settings for course'; + $setuploadquota_text = &mt('Disk space allocated for storage of content uploaded directly to a course via Content Editor.'); } - my @menu = - ( - { text => $setparams_text, - phase => 'setparms', - }, - { text => 'View/Modify quota for group portfolio files', - phase => 'setquota', - } - ); + my $anon_text = &mt('Responder threshold required to display anonymous survey submissions.'); + my $postsubmit_text = &mt('Override defaults for submit button behavior post-submission for this specific course.'); + my $mysqltables_text = &mt('Override default for lifetime of "temporary" MySQL tables containing student performance data.'); + my $ltiauth_text = &mt('Override default for requirement for re-authentication for LTI-limited launch of deep-linked item'); + $linktext{'viewparms'} = 'Display current settings for automated enrollment'; + my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$dom); my @additional_params = &catalog_settable($domconf{'coursecategories'},$type); - if (@additional_params > 0) { - push (@menu, { text => $cat_text, - phase => 'catsettings', - }); + + sub manage_selfenrollment { + my ($cdom,$cnum,$type,$coursehash,$permission) = @_; + if ($permission->{'selfenroll'}) { + my ($managed_by_cc,$managed_by_dc) = &Apache::lonuserutils::selfenrollment_administration($cdom,$cnum,$type,$coursehash); + if (ref($managed_by_dc) eq 'ARRAY') { + if (@{$managed_by_dc}) { + return 1; + } + } + } + return 0; } - unless ($type eq 'Community') { - push(@menu, - { text => 'Display current settings for automated enrollment', - phase => 'viewparms', - } - ); + + sub phaseurl { + my $phase = shift; + return "javascript:changePage(document.menu,'$phase')" } - my $menu_html = '

'.&mt('View/Modify settings for: '). - ' '.$cdesc.'

'."\n"; + my @menu = + ({ categorytitle => $categorytitle, + items => [ + { + linktext => $linktext{'setparms'}, + url => &phaseurl('setparms'), + permission => $permission->{'setparms'}, + #help => '', + icon => 'crsconf.png', + linktitle => '' + }, + { + linktext => $linktext{'setquota'}, + url => &phaseurl('setquota'), + permission => $permission->{'setquota'}, + #help => '', + icon => 'groupportfolioquota.png', + linktitle => '' + }, + { + linktext => $linktext{'setanon'}, + url => &phaseurl('setanon'), + permission => $permission->{'setanon'}, + #help => '', + icon => 'anonsurveythreshold.png', + linktitle => '' + }, + { + linktext => $linktext{'catsettings'}, + url => &phaseurl('catsettings'), + permission => (($permission->{'catsettings'}) && (@additional_params > 0)), + #help => '', + icon => 'ccatconf.png', + linktitle => '' + }, + { + linktext => $linktext{'viewparms'}, + url => &phaseurl('viewparms'), + permission => ($permission->{'viewparms'} && ($type ne 'Community')), + #help => '', + icon => 'roles.png', + linktitle => '' + }, + { + linktext => $linktext{'selfenroll'}, + icon => 'self_enroll.png', + #help => 'Course_Self_Enrollment', + url => &phaseurl('selfenroll'), + permission => &manage_selfenrollment($cdom,$cnum,$type,$coursehash,$permission), + linktitle => 'Configure user self-enrollment.', + }, + { + linktext => $linktext{'setpostsubmit'}, + icon => 'emblem-readonly.png', + #help => '', + url => &phaseurl('setpostsubmit'), + permission => $permission->{'setpostsubmit'}, + linktitle => '', + }, + { + linktext => $linktext{'setltiauth'}, + icon => 'system-lock-screen.png', + #help => '', + url => &phaseurl('setltiauth'), + permission => $permission->{'setltiauth'}, + linktitle => '', + }, + ] + }, + ); + + my $menu_html = + '

' + .&mt('View/Modify settings for: [_1]', + ''.$cdesc.'') + .'

'."\n".'

'; if ($type eq 'Community') { $menu_html .= &mt('Although almost all community settings can be modified by a Coordinator, the following may only be set or modified by a Domain Coordinator:'); } else { $menu_html .= &mt('Although almost all course settings can be modified by a Course Coordinator, the following may only be set or modified by a Domain Coordinator:'); } - $menu_html .= '

' + .'' + ."\n" + .&hidden_form_elements(); $r->print($menu_html); + $r->print(&Apache::lonhtmlcommon::generate_menu(@menu)); + $r->print(''); return; } -sub print_ccrole_selected { - my ($r,$type) = @_; +sub print_adhocrole_selected { + my ($r,$type,$permission) = @_; &print_header($r,$type); my ($cdom,$cnum) = split(/_/,$env{'form.pickedcourse'}); - $r->print('
- - + my ($newrole,$selectrole); + if ($permission->{'adhocrole'} eq 'coord') { + if ($type eq 'Community') { + $newrole = "co./$cdom/$cnum"; + } else { + $newrole = "cc./$cdom/$cnum"; + } + $selectrole = 1; + } elsif ($permission->{'adhocrole'} eq 'custom') { + my ($okroles,$description) = &Apache::lonnet::get_my_adhocroles($env{'form.pickedcourse'},1); + if (ref($okroles) eq 'ARRAY') { + my $possrole = $env{'form.adhocrole'}; + if (($possrole ne '') && (grep(/^\Q$possrole\E$/,@{$okroles}))) { + my $confname = &Apache::lonnet::get_domainconfiguser($cdom); + $newrole = "cr/$cdom/$confname/$possrole./$cdom/$cnum"; + $selectrole = 1; + } + } + } + if ($selectrole) { + $r->print(' + +
'); + } else { + $r->print('
'. + '
'); + } + return; } sub print_settings_display { - my ($r,$cdom,$cnum,$cdesc,$type) = @_; + my ($r,$cdom,$cnum,$cdesc,$type,$permission) = @_; my %enrollvar = &get_enrollment_settings($cdom,$cnum); my %longtype = &course_settings_descrip($type); my %lt = &Apache::lonlocal::texthash( @@ -319,7 +663,7 @@ sub print_settings_display { } my $cctitle = &Apache::lonnet::plaintext($ccrole,$type); my $dctitle = &Apache::lonnet::plaintext('dc'); - my @modifiable_params = &get_dc_settable($type); + my @modifiable_params = &get_dc_settable($type,$cdom); my ($internals,$accessdates) = &autoenroll_keys(); my @items; if ((ref($internals) eq 'ARRAY') && (ref($accessdates) eq 'ARRAY')) { @@ -332,9 +676,34 @@ sub print_settings_display { "$lt{'dcon'}\n". &Apache::loncommon::end_data_table_header_row()."\n"; foreach my $item (@items) { + my $shown = $enrollvar{$item}; + if ($item eq 'crosslistings') { + my (@xlists,@lcsecs); + foreach my $entry (split(/,/,$enrollvar{$item})) { + my ($xlist,$lc_sec) = split(/:/,$entry); + push(@xlists,$xlist); + push(@lcsecs,$lc_sec); + } + if (@xlists) { + my $crskey = $cnum.':'.$enrollvar{'coursecode'}; + my %reformatted = + &Apache::lonnet::auto_instsec_reformat($cdom,'declutter', + {$crskey => \@xlists}); + if (ref($reformatted{$crskey}) eq 'ARRAY') { + my @show; + my @xlcodes = @{$reformatted{$crskey}}; + for (my $i=0; $i<@xlcodes; $i++) { + push(@show,$xlcodes[$i].':'.$lcsecs[$i]); + } + if (@show) { + $shown = join(',',@show); + } + } + } + } $disp_table .= &Apache::loncommon::start_data_table_row()."\n". "$longtype{$item}\n". - "$enrollvar{$item}\n"; + "$shown\n"; if (grep(/^\Q$item\E$/,@modifiable_params)) { $disp_table .= ''.&mt('Yes').''."\n"; } else { @@ -344,48 +713,90 @@ sub print_settings_display { } $disp_table .= &Apache::loncommon::end_data_table()."\n"; &print_header($r,$type); - my $newrole = $ccrole.'./'.$cdom.'/'.$cnum; - my $escuri = &HTML::Entities::encode('/adm/roles?selectrole=1&'.$newrole. - '=1&destinationurl=/adm/populate','&<>"'); + my ($enroll_link_start,$enroll_link_end,$setparms_link_start,$setparms_link_end); + if (&Apache::lonnet::allowed('ccc',$cdom)) { + my $newrole = $ccrole.'./'.$cdom.'/'.$cnum; + my $escuri = &HTML::Entities::encode('/adm/roles?selectrole=1&'.$newrole. + '=1&destinationurl=/adm/populate','&<>"'); + $enroll_link_start = ''; + $enroll_link_end = ''; + } + if ($permission->{'setparms'}) { + $setparms_link_start = ''; + $setparms_link_end = ''; + } $r->print('

'.&mt('Current automated enrollment settings for:'). ' '.$cdesc.'

'. '
'."\n". '

'.$lt{'cose'}.'

'. + '
  • '.&mt('Settings modifiable by a [_1] via the [_2]Automated Enrollment Manager[_3] in a course.', + $cctitle,$enroll_link_start,$enroll_link_end).'
    • '); + if (&showcredits($cdom)) { + $r->print('
  • '.&mt('Settings modifiable by a [_1] via [_2]View/Modify course owner, institutional code, default authentication, credits, and self-enrollment[_3].',$dctitle,$setparms_link_start,$setparms_link_end)."\n"); + } else { + $r->print('
  • '.&mt('Settings modifiable by a [_1] via [_2]View/Modify course owner, institutional code, default authentication, and self-enrollment[_3].',$dctitle,$setparms_link_start,$setparms_link_end)."\n"); + } + $r->print('

    • '. '

    '.$lt{'cour'}.'

    '.$disp_table.'

    '. ''.$lt{'back'}.''."\n". &hidden_form_elements(). '

    ' - ); + ); } sub print_setquota { - my ($r,$cdom,$cnum,$cdesc,$type) = @_; + my ($r,$cdom,$cnum,$cdesc,$type,$readonly) = @_; + my $lctype = lc($type); + my $headline = &mt("Set disk space quotas for $lctype: [_1]", + ''.$cdesc.''); my %lt = &Apache::lonlocal::texthash( - 'cquo' => 'Disk space for storage of group portfolio files for:', - 'gpqu' => 'Course portfolio files disk space', + 'gpqu' => 'Disk space for storage of group portfolio files', + 'upqu' => 'Disk space for storage of content directly uploaded to course via Content Editor', 'modi' => 'Save', 'back' => 'Pick another action', ); - if ($type eq 'Community') { - $lt{'gpqu'} = &mt('Community portfolio files disk space'); - } - my %settings = &Apache::lonnet::get('environment',['internal.coursequota'],$cdom,$cnum); + my %staticdefaults = ( + coursequota => 20, + uploadquota => 500, + ); + my %settings = &Apache::lonnet::get('environment',['internal.coursequota','internal.uploadquota','internal.coursecode'], + $cdom,$cnum); my $coursequota = $settings{'internal.coursequota'}; + my $uploadquota = $settings{'internal.uploadquota'}; if ($coursequota eq '') { - $coursequota = 20; + $coursequota = $staticdefaults{'coursequota'}; + } + if ($uploadquota eq '') { + my %domdefs = &Apache::lonnet::get_domain_defaults($cdom); + my $quotatype = &Apache::lonuserutils::get_extended_type($cdom,$cnum,$type,\%settings); + $uploadquota = $domdefs{$quotatype.'quota'}; + if ($uploadquota eq '') { + $uploadquota = $staticdefaults{'uploadquota'}; + } } &print_header($r,$type); my $hidden_elements = &hidden_form_elements(); - my $helpitem = &Apache::loncommon::help_open_topic('Modify_Course_Quota'); + my $porthelpitem = &Apache::loncommon::help_open_topic('Modify_Course_Quota'); + my $uploadhelpitem = &Apache::loncommon::help_open_topic('Modify_Course_Upload_Quota'); + my ($disabled,$submit); + if ($readonly) { + $disabled = ' disabled="disabled"'; + } else { + $submit = ''; + } $r->print(< -

    $lt{'cquo'} $cdesc

    +
    +

    $headline

    +

    +$porthelpitem $lt{'gpqu'}: MB + +
    + +$uploadhelpitem $lt{'upqu'}: MB + +

    -$helpitem $lt{'gpqu'}: Mb      - +$submit

    $hidden_elements $lt{'back'} @@ -394,8 +805,151 @@ ENDDOCUMENT return; } +sub print_set_anonsurvey_threshold { + my ($r,$cdom,$cnum,$cdesc,$type,$readonly) = @_; + my %lt = &Apache::lonlocal::texthash( + 'resp' => 'Responder threshold for anonymous survey submissions display:', + 'sufa' => 'Anonymous survey submissions displayed when responders exceeds', + 'modi' => 'Save', + 'back' => 'Pick another action', + ); + my %settings = &Apache::lonnet::get('environment',['internal.anonsurvey_threshold'],$cdom,$cnum); + my $threshold = $settings{'internal.anonsurvey_threshold'}; + if ($threshold eq '') { + my %domconfig = + &Apache::lonnet::get_dom('configuration',['coursedefaults'],$cdom); + if (ref($domconfig{'coursedefaults'}) eq 'HASH') { + $threshold = $domconfig{'coursedefaults'}{'anonsurvey_threshold'}; + if ($threshold eq '') { + $threshold = 10; + } + } else { + $threshold = 10; + } + } + &print_header($r,$type); + my $hidden_elements = &hidden_form_elements(); + my ($disabled,$submit); + if ($readonly) { + $disabled = ' disabled="disabled"'; + } else { + $submit = ''; + } + my $helpitem = &Apache::loncommon::help_open_topic('Modify_Anonsurvey_Threshold'); + $r->print(< +

    $lt{'resp'} $cdesc

    +

    +$helpitem $lt{'sufa'}:      +$submit +

    +$hidden_elements +$lt{'back'} + +ENDDOCUMENT + return; +} + +sub print_postsubmit_config { + my ($r,$cdom,$cnum,$cdesc,$type,$readonly) = @_; + my %lt = &Apache::lonlocal::texthash ( + 'conf' => 'Configure submit button behavior after student makes a submission', + 'disa' => 'Disable submit button/keypress following student submission', + 'nums' => 'Number of seconds submit is disabled', + 'modi' => 'Save', + 'back' => 'Pick another action', + 'yes' => 'Yes', + 'no' => 'No', + ); + my %settings = &Apache::lonnet::get('environment',['internal.postsubmit','internal.postsubtimeout', + 'internal.coursecode','internal.textbook'],$cdom,$cnum); + my $postsubmit = $settings{'internal.postsubmit'}; + if ($postsubmit eq '') { + my %domconfig = + &Apache::lonnet::get_dom('configuration',['coursedefaults'],$cdom); + $postsubmit = 1; + if (ref($domconfig{'coursedefaults'}) eq 'HASH') { + if (ref($domconfig{'coursedefaults'}{'postsubmit'}) eq 'HASH') { + if ($domconfig{'coursedefaults'}{'postsubmit'}{'client'} eq 'off') { + $postsubmit = 0; + } + } + } + } + my ($checkedon,$checkedoff,$display); + if ($postsubmit) { + $checkedon = 'checked="checked"'; + $display = 'block'; + } else { + $checkedoff = 'checked="checked"'; + $display = 'none'; + } + my $postsubtimeout = $settings{'internal.postsubtimeout'}; + my $default = &domain_postsubtimeout($cdom,$type,\%settings); + my $zero = &mt('(Enter 0 to disable until next page reload, or leave blank to use the domain default: [_1])',$default); + if ($postsubtimeout eq '') { + $postsubtimeout = $default; + } + &print_header($r,$type); + my $hidden_elements = &hidden_form_elements(); + my ($disabled,$submit); + if ($readonly) { + $disabled = ' disabled="disabled"'; + } else { + $submit = ''; + } + my $helpitem = &Apache::loncommon::help_open_topic('Modify_Postsubmit_Config'); + $r->print(< +

    $lt{'conf'} ($cdesc)

    +

    +$helpitem $lt{'disa'}: +   + +

    +$lt{'nums'}
    +$zero
    +
    +$submit +

    +$hidden_elements +$lt{'back'} + +ENDDOCUMENT + return; +} + +sub domain_postsubtimeout { + my ($cdom,$type,$settings) = @_; + return unless (ref($settings) eq 'HASH'); + my $lctype = lc($type); + unless ($type eq 'Community') { + $lctype = 'unofficial'; + if ($settings->{'internal.coursecode'}) { + $lctype = 'official'; + } elsif ($settings->{'internal.textbook'}) { + $lctype = 'textbook'; + } + } + my %domconfig = + &Apache::lonnet::get_dom('configuration',['coursedefaults'],$cdom); + my $postsubtimeout = 60; + if (ref($domconfig{'coursedefaults'}) eq 'HASH') { + if (ref($domconfig{'coursedefaults'}{'postsubmit'}) eq 'HASH') { + if (ref($domconfig{'coursedefaults'}{'postsubmit'}{'timeout'}) eq 'HASH') { + if ($domconfig{'coursedefaults'}{'postsubmit'}{'timeout'}{$lctype} ne '') { + $postsubtimeout = $domconfig{'coursedefaults'}{'postsubmit'}{'timeout'}{$lctype}; + } + } + } + } + return $postsubtimeout; +} + sub print_catsettings { - my ($r,$cdom,$cnum,$cdesc,$type) = @_; + my ($r,$cdom,$cnum,$cdesc,$type,$readonly) = @_; &print_header($r,$type); my %lt = &Apache::lonlocal::texthash( 'back' => 'Pick another action', @@ -416,6 +970,10 @@ sub print_catsettings { my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$cdom); my @cat_params = &catalog_settable($domconf{'coursecategories'},$type); if (@cat_params > 0) { + my $disabled; + if ($readonly) { + $disabled = ' disabled="disabled"'; + } my %currsettings = &Apache::lonnet::get('environment',['hidefromcat','categories'],$cdom,$cnum); if (grep(/^togglecats$/,@cat_params)) { @@ -427,7 +985,7 @@ sub print_catsettings { } $r->print('

    '.$lt{'visi'}.'

    '. $lt{'exclude'}. - '    

    '); + '    

    '); if ($type eq 'Community') { $r->print(&mt("If a community has been categorized using at least one of the categories defined for communities in the domain, it will be listed in the domain's publicly accessible Course/Community Catalog, unless excluded.")); } else { @@ -444,7 +1002,7 @@ sub print_catsettings { if (ref($cathash) eq 'HASH') { $r->print($lt{'assi'}.'

    '. &Apache::loncommon::assign_categories_table($cathash, - $currsettings{'categories'},$type)); + $currsettings{'categories'},$type,$disabled)); } else { $r->print(&mt('No categories defined for this domain')); } @@ -455,8 +1013,10 @@ sub print_catsettings { $r->print('

    '.&mt('If auto-cataloging based on institutional code is enabled in the domain, a course will continue to be listed in the catalog of official courses, in addition to receiving a listing under any manually assigned categor(ies).').'

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

    '); + unless ($readonly) { + $r->print('

    '); + } } else { $r->print(''); if ($type eq 'Community') { @@ -473,7 +1033,7 @@ sub print_catsettings { } sub print_course_modification_page { - my ($r,$cdom,$cnum,$cdesc,$type) = @_; + my ($r,$cdom,$cnum,$cdesc,$crstype,$readonly) = @_; my %lt=&Apache::lonlocal::texthash( 'actv' => "Active", 'inac' => "Inactive", @@ -483,17 +1043,32 @@ sub print_course_modification_page { 'stus' => "Status", 'nocc' => 'There is currently no owner set for this course.', 'gobt' => "Save", + 'sett' => 'Setting', + 'domd' => 'Domain default', + 'whom' => 'Who configures', ); - my ($ownertable,$ccrole,$javascript_validations,$authenitems,$ccname); + my ($ownertable,$ccrole,$javascript_validations,$authenitems,$ccname,$disabled); my %enrollvar = &get_enrollment_settings($cdom,$cnum); - if ($type eq 'Community') { + my %settings = &Apache::lonnet::get('environment',['internal.coursecode','internal.textbook', + 'internal.selfenrollmgrdc','internal.selfenrollmgrcc', + 'internal.mysqltables'],$cdom,$cnum); + my $type = &Apache::lonuserutils::get_extended_type($cdom,$cnum,$crstype,\%settings); + my @specific_managebydc = split(/,/,$settings{'internal.selfenrollmgrdc'}); + my @specific_managebycc = split(/,/,$settings{'internal.selfenrollmgrcc'}); + my %domdefaults = &Apache::lonnet::get_domain_defaults($cdom); + my %passwdconf = &Apache::lonnet::get_passwdconf($cdom); + my @default_managebydc = split(/,/,$domdefaults{$type.'selfenrolladmdc'}); + if ($crstype eq 'Community') { $ccrole = 'co'; $lt{'nocc'} = &mt('There is currently no owner set for this community.'); } else { $ccrole ='cc'; - ($javascript_validations,$authenitems) = &gather_authenitems($cdom,\%enrollvar); + ($javascript_validations,$authenitems) = &gather_authenitems($cdom,\%enrollvar,$readonly); + } + $ccname = &Apache::lonnet::plaintext($ccrole,$crstype); + if ($readonly) { + $disabled = ' disabled="disabled"'; } - $ccname = &Apache::lonnet::plaintext($ccrole,$type); my %roleshash = &Apache::lonnet::get_my_roles($cnum,$cdom,'','',[$ccrole]); my (@local_ccs,%cc_status,%pname); foreach my $item (keys(%roleshash)) { @@ -534,9 +1109,9 @@ sub print_course_modification_page { foreach my $cc (@local_ccs) { $ownertable .= &Apache::loncommon::start_data_table_row()."\n"; if ($cc eq $enrollvar{'courseowner'}) { - $ownertable .= ''."\n"; + $ownertable .= ''."\n"; } else { - $ownertable .= ''."\n"; + $ownertable .= ''."\n"; } $ownertable .= ''.$pname{$cc}.''."\n". @@ -546,44 +1121,250 @@ sub print_course_modification_page { } $ownertable .= &Apache::loncommon::end_data_table(); } - &print_header($r,$type,$javascript_validations); + &print_header($r,$crstype,$javascript_validations); my $dctitle = &Apache::lonnet::plaintext('dc'); - my $mainheader = &modifiable_only_title($type); + my $mainheader = &modifiable_only_title($crstype); my $hidden_elements = &hidden_form_elements(); $r->print('
    '."\n". '

    '.$mainheader.' '.$cdesc.'

    '. &Apache::lonhtmlcommon::start_pick_box()); - if ($type eq 'Community') { + if ($crstype eq 'Community') { $r->print(&Apache::lonhtmlcommon::row_title( &Apache::loncommon::help_open_topic('Modify_Community_Owner'). - ' '.&mt('Community Owner'))."\n"); + ' '.&mt('Community Owner'))."\n". + $ownertable."\n".&Apache::lonhtmlcommon::row_closure()); } else { $r->print(&Apache::lonhtmlcommon::row_title( &Apache::loncommon::help_open_topic('Modify_Course_Instcode'). ' '.&mt('Course Code'))."\n". - ''. - &Apache::lonhtmlcommon::row_closure(). - &Apache::lonhtmlcommon::row_title( - &Apache::loncommon::help_open_topic('Modify_Course_Defaultauth'). - ' '.&mt('Default Authentication method'))."\n". + ''. + &Apache::lonhtmlcommon::row_closure()); + if (&showcredits($cdom)) { + $r->print(&Apache::lonhtmlcommon::row_title( + &Apache::loncommon::help_open_topic('Modify_Course_Credithours'). + ' '.&mt('Credits (students)'))."\n". + ''. + &Apache::lonhtmlcommon::row_closure()); + } + $r->print(&Apache::lonhtmlcommon::row_title( + &Apache::loncommon::help_open_topic('Modify_Course_Defaultauth'). + ' '.&mt('Default Authentication method'))."\n". $authenitems."\n". &Apache::lonhtmlcommon::row_closure(). &Apache::lonhtmlcommon::row_title( &Apache::loncommon::help_open_topic('Modify_Course_Owner'). - ' '.&mt('Course Owner'))."\n"); + ' '.&mt('Course Owner'))."\n". + $ownertable."\n".&Apache::lonhtmlcommon::row_closure()); + if (($passwdconf{'crsownerchg'}) && ($type ne 'Placement')) { + my $checked; + if ($enrollvar{'nopasswdchg'}) { + $checked = ' checked="checked"'; + } + $r->print(&Apache::lonhtmlcommon::row_title( + &Apache::loncommon::help_open_topic('Modify_Course_Chgpasswd'). + ' '.&mt('Changing passwords (internal)'))."\n". + '

    '.$hidden_elements. - 'print('this.form.submit();"'); + $cctitle = &mt('Community personnel'); + } else { + $cctitle = &mt('Course personnel'); + } + + $r->print(&Apache::lonhtmlcommon::row_title( + &Apache::loncommon::help_open_topic('Modify_Course_Selfenrolladmin'). + ' '.&mt('Self-enrollment configuration')). + &Apache::loncommon::start_data_table()."\n". + &Apache::loncommon::start_data_table_header_row()."\n". + ''.$lt{'sett'}.''. + ''.$lt{'domd'}.''. + ''.$lt{'whom'}.''. + &Apache::loncommon::end_data_table_header_row()."\n"); + my %optionname; + $optionname{''} = &mt('Use domain default'); + $optionname{'0'} = $dctitle; + $optionname{'1'} = $cctitle; + foreach my $item (@{$selfenrollrows}) { + my %checked; + my $default = $cctitle; + if (grep(/^\Q$item\E$/,@default_managebydc)) { + $default = $dctitle; + } + if (grep(/^\Q$item\E$/,@specific_managebydc)) { + $checked{'0'} = ' checked="checked"'; + } elsif (grep(/^\Q$item\E$/,@specific_managebycc)) { + $checked{'1'} = ' checked="checked"'; + } else { + $checked{''} = ' checked="checked"'; + } + $r->print(&Apache::loncommon::start_data_table_row()."\n". + ''.$selfenrolltitles->{$item}.''."\n". + ''.&mt('[_1] configures',$default).''."\n". + ''); + foreach my $option ('','0','1') { + $r->print('
    '); + } + $r->print(''."\n". + &Apache::loncommon::end_data_table_row()."\n"); + } + $r->print(&Apache::loncommon::end_data_table()."\n". + '
    '.&Apache::lonhtmlcommon::row_closure(). + &Apache::lonhtmlcommon::row_title( + &Apache::loncommon::help_open_topic('Modify_Course_Table_Lifetime'). + ' '.&mt('"Temporary" Tables Lifetime (s)'))."\n". + ''. + &Apache::lonhtmlcommon::row_closure(1). + &Apache::lonhtmlcommon::end_pick_box().'

    '.$hidden_elements); + unless ($readonly) { + $r->print('print('this.form.submit();"'); + } else { + $r->print('javascript:verify_message(this.form);"'); + } + $r->print(' value="'.$lt{'gobt'}.'" />'); + } + $r->print('

    '); + return; +} + +sub print_selfenrollconfig { + my ($r,$type,$cdesc,$coursehash,$readonly) = @_; + return unless(ref($coursehash) eq 'HASH'); + my $cnum = $coursehash->{'num'}; + my $cdom = $coursehash->{'domain'}; + my %currsettings = &get_selfenroll_settings($coursehash); + &print_header($r,$type); + $r->print('

    '.&mt('Self-enrollment with a student role in: [_1]', + ''.$cdesc.'').'

    '."\n"); + &Apache::loncreateuser::print_selfenroll_menu($r,'domain',$env{'form.pickedcourse'}, + $cdom,$cnum,\%currsettings, + &hidden_form_elements(),$readonly); + return; +} + +sub print_set_ltiauth { + my ($r,$cdom,$cnum,$cdesc,$type,$readonly) = @_; + my %lt = &Apache::lonlocal::texthash( + 'requ' => 'Requirement for re-authentication for student LTI-limited launch of deep-linked item', + 'link' => 'Link protection can be set to accept username for an enrolled student (if sent by Consumer)', + 'logi' => 'Login needed, regardless of user information sent by LTI Consumer in (signed) parameters', + 'used' => 'Use domain default', + 'cour' => 'Use course-specific setting', + 'curd' => 'Current domain default is', + 'valu' => 'Value for this course', + 'modi' => 'Save', + 'back' => 'Pick another action', + ); + my ($domdef,$checkeddom,$checkedcrs,$domdefdisplay,$divsty,$authok,$authno); + $domdef = 0; + $checkeddom = 'checked="checked "'; + $domdefdisplay = $lt{'logi'}; + $divsty = 'display:none'; + $authno = 'checked="checked" '; + my %domconfig = + &Apache::lonnet::get_dom('configuration',['coursedefaults'],$cdom); + if (ref($domconfig{'coursedefaults'}) eq 'HASH') { + $domdef = $domconfig{'coursedefaults'}{'ltiauth'}; + } + if ($domdef) { + $domdefdisplay = $lt{'link'}; + } + my %settings = &Apache::lonnet::get('environment',['internal.ltiauth'],$cdom,$cnum); + my $ltiauth = $settings{'internal.ltiauth'}; + + if ($ltiauth ne '') { + $checkedcrs = $checkeddom; + $checkeddom = ''; + $divsty = 'display:inline-block'; + if ($ltiauth) { + $authok = 'checked="checked "'; + } + } + &print_header($r,$type); + my $hidden_elements = &hidden_form_elements(); + my ($disabled,$submit); + if ($readonly) { + $disabled = ' disabled="disabled"'; } else { - $r->print('javascript:verify_message(this.form);"'); + $submit = ''; } - $r->print('value="'.$lt{'gobt'}.'" />

    '); + my $helpitem = &Apache::loncommon::help_open_topic('Modify_Course_LTI_Authen'); + $r->print(< +

    $helpitem $lt{'requ'} $cdesc

    +

    $lt{'curd'}: $domdefdisplay +

    +
    + + +

    +$lt{'valu'} + + +
    + + + +
    +$submit +

    +$hidden_elements +$lt{'back'} + +ENDDOCUMENT return; } +sub modify_selfenrollconfig { + my ($r,$type,$cdesc,$coursehash) = @_; + return unless(ref($coursehash) eq 'HASH'); + my $cnum = $coursehash->{'num'}; + my $cdom = $coursehash->{'domain'}; + my %currsettings = &get_selfenroll_settings($coursehash); + &print_header($r,$type); + $r->print('

    '.&mt('Self-enrollment with a student role in: [_1]', + ''.$cdesc.'').'

    '."\n"); + $r->print('
    '."\n". + &hidden_form_elements().'
    '); + &Apache::loncreateuser::update_selfenroll_config($r,$env{'form.pickedcourse'}, + $cdom,$cnum,'domain',$type,\%currsettings); + $r->print('
    '); + return; +} + +sub get_selfenroll_settings { + my ($coursehash) = @_; + my %currsettings; + if (ref($coursehash) eq 'HASH') { + %currsettings = ( + selfenroll_types => $coursehash->{'internal.selfenroll_types'}, + selfenroll_registered => $coursehash->{'internal.selfenroll_registered'}, + selfenroll_section => $coursehash->{'internal.selfenroll_section'}, + selfenroll_notifylist => $coursehash->{'internal.selfenroll_notifylist'}, + selfenroll_approval => $coursehash->{'internal.selfenroll_approval'}, + selfenroll_limit => $coursehash->{'internal.selfenroll_limit'}, + selfenroll_cap => $coursehash->{'internal.selfenroll_cap'}, + selfenroll_start_date => $coursehash->{'internal.selfenroll_start_date'}, + selfenroll_end_date => $coursehash->{'internal.selfenroll_end_date'}, + selfenroll_start_access => $coursehash->{'internal.selfenroll_start_access'}, + selfenroll_end_access => $coursehash->{'internal.selfenroll_end_access'}, + default_enrollment_start_date => $coursehash->{'default_enrollment_start_date'}, + default_enrollment_end_date => $coursehash->{'default_enrollment_end_date'}, + uniquecode => $coursehash->{'internal.uniquecode'}, + ); + } + return %currsettings; +} + sub modifiable_only_title { my ($type) = @_; my $dctitle = &Apache::lonnet::plaintext('dc'); @@ -595,7 +1376,7 @@ sub modifiable_only_title { } sub gather_authenitems { - my ($cdom,$enrollvar) = @_; + my ($cdom,$enrollvar,$readonly) = @_; my ($krbdef,$krbdefdom)=&Apache::loncommon::get_kerberos_defaults($cdom); my $curr_authtype = ''; my $curr_authfield = ''; @@ -619,7 +1400,8 @@ sub gather_authenitems { kerb_def_auth => $krbdef, mode => 'modifycourse', curr_authtype => $curr_authtype, - curr_autharg => $enrollvar->{'autharg'} + curr_autharg => $enrollvar->{'autharg'}, + readonly => $readonly, ); my (%authform,$authenitems); $authform{'krb'} = &Apache::loncommon::authform_kerberos(%param); @@ -637,16 +1419,25 @@ sub modify_course { my ($r,$cdom,$cnum,$cdesc,$domdesc,$type) = @_; my %longtype = &course_settings_descrip($type); my @items = ('internal.courseowner','description','internal.co-owners', - 'internal.pendingco-owners'); + 'internal.pendingco-owners','internal.selfenrollmgrdc', + 'internal.selfenrollmgrcc','internal.mysqltables'); + my ($selfenrollrows,$selfenrolltitles) = &Apache::lonuserutils::get_selfenroll_titles(); unless ($type eq 'Community') { push(@items,('internal.coursecode','internal.authtype','internal.autharg', 'internal.sectionnums','internal.crosslistings')); + if (&showcredits($cdom)) { + push(@items,'internal.defaultcredits'); + } + my %passwdconf = &Apache::lonnet::get_passwdconf($cdom); + if ($passwdconf{'crsownerchg'}) { + push(@items,'internal.nopasswdchg'); + } } my %settings = &Apache::lonnet::get('environment',\@items,$cdom,$cnum); my $description = $settings{'description'}; - my ($ccrole,$response,$chgresponse,$nochgresponse,$reply,%currattr,%newattr,%cenv,%changed, - @changes,@nochanges,@sections,@xlists,@warnings); - my @modifiable_params = &get_dc_settable($type); + my ($ccrole,$response,$chgresponse,$nochgresponse,$reply,%currattr,%newattr, + %cenv,%changed,@changes,@nochanges,@sections,@xlists,@warnings); + my @modifiable_params = &get_dc_settable($type,$cdom); foreach my $param (@modifiable_params) { $currattr{$param} = $settings{'internal.'.$param}; } @@ -656,6 +1447,7 @@ sub modify_course { } else { %changed = ( code => 0, owner => 0, + passwd => 0, ); $ccrole = 'cc'; unless ($settings{'internal.sectionnums'} eq '') { @@ -665,7 +1457,7 @@ sub modify_course { $sections[0] = $settings{'internal.sectionnums'}; } } - unless ($settings{'internal.crosslistings'} eq'') { + unless ($settings{'internal.crosslistings'} eq '') { if ($settings{'internal.crosslistings'} =~ m/,/) { @xlists = split/,/,$settings{'internal.crosslistings'}; } else { @@ -704,7 +1496,51 @@ sub modify_course { $changed{'code'} = 1; } } + if ( exists($env{'form.mysqltables'}) ) { + $newattr{'mysqltables'} = $env{'form.mysqltables'}; + $newattr{'mysqltables'} =~ s/\D+//g; + } + if ($type ne 'Placement') { + if (&showcredits($cdom) && exists($env{'form.defaultcredits'})) { + $newattr{'defaultcredits'}=$env{'form.defaultcredits'}; + $newattr{'defaultcredits'} =~ s/[^\d\.]//g; + } + if (grep(/^nopasswdchg$/,@modifiable_params)) { + if ($env{'form.nopasswdchg'}) { + $newattr{'nopasswdchg'} = 1; + unless ($currattr{'nopasswdchg'}) { + $changed{'passwd'} = 1; + } + } elsif ($currattr{'nopasswdchg'}) { + $changed{'passwd'} = 1; + } + } + } + } + + my @newmgrdc = (); + my @newmgrcc = (); + my @currmgrdc = split(/,/,$currattr{'selfenrollmgrdc'}); + my @currmgrcc = split(/,/,$currattr{'selfenrollmgrcc'}); + + foreach my $item (@{$selfenrollrows}) { + if ($env{'form.selfenrollmgr_'.$item} eq '0') { + push(@newmgrdc,$item); + } elsif ($env{'form.selfenrollmgr_'.$item} eq '1') { + push(@newmgrcc,$item); + } + } + + $newattr{'selfenrollmgrdc'}=join(',',@newmgrdc); + $newattr{'selfenrollmgrcc'}=join(',',@newmgrcc); + + my $cctitle; + if ($type eq 'Community') { + $cctitle = &mt('Community personnel'); + } else { + $cctitle = &mt('Course personnel'); } + my $dctitle = &Apache::lonnet::plaintext('dc'); if ( exists($env{'form.courseowner'}) ) { $newattr{'courseowner'}=$env{'form.courseowner'}; @@ -713,7 +1549,7 @@ sub modify_course { } } - if ($changed{'owner'} || $changed{'code'}) { + if ($changed{'owner'} || $changed{'code'} || $changed{'passwd'}) { my %crsinfo = &Apache::lonnet::courseiddump($cdom,'.',1,'.','.',$cnum, undef,undef,'.'); if (ref($crsinfo{$env{'form.pickedcourse'}}) eq 'HASH') { @@ -723,10 +1559,29 @@ sub modify_course { if ($changed{'owner'}) { $crsinfo{$env{'form.pickedcourse'}}{'owner'} = $env{'form.courseowner'}; } + if ($changed{'passwd'}) { + if ($env{'form.nopasswdchg'}) { + $crsinfo{$env{'form.pickedcourse'}}{'nopasswdchg'} = 1; + } else { + delete($crsinfo{'nopasswdchg'}); + } + } my $chome = &Apache::lonnet::homeserver($cnum,$cdom); my $putres = &Apache::lonnet::courseidput($cdom,\%crsinfo,$chome,'notime'); - if ($putres eq 'ok') { + if (($putres eq 'ok') && (($changed{'owner'} || $changed{'code'}))) { &update_coowners($cdom,$cnum,$chome,\%settings,\%newattr); + if ($changed{'code'}) { + &Apache::lonnet::devalidate_cache_new('instcats',$cdom); + # Update cache of self-cataloging courses on institution's server(s). + if (&Apache::lonnet::shared_institution($cdom)) { + unless ($registered_cleanup) { + my $handlers = $r->get_handlers('PerlCleanupHandler'); + $r->set_handlers('PerlCleanupHandler' => [\&devalidate_remote_instcats,@{$handlers}]); + $registered_cleanup=1; + $modified_dom = $cdom; + } + } + } } } } @@ -739,10 +1594,10 @@ sub modify_course { } } if (@changes > 0) { - $chgresponse = &mt("The following settings have been changed:
      "); + $chgresponse = &mt('The following settings have been changed:').'
        '; } if (@nochanges > 0) { - $nochgresponse = &mt("The following settings remain unchanged:
          "); + $nochgresponse = &mt('The following settings remain unchanged:').'
            '; } if (@changes > 0) { my $putreply = &Apache::lonnet::put('environment',\%cenv,$cdom,$cnum); @@ -756,11 +1611,48 @@ sub modify_course { } $response .= '
            '.&mt('Error: ').$putreply.'

            '; } else { + if ($env{'course.'.$cdom.'_'.$cnum.'.description'} ne '') { + my %newenv; + map { $newenv{'course.'.$cdom.'_'.$cnum.'.internal.'.$_} = $newattr{$_}; } @changes; + &Apache::lonnet::appenv(\%newenv); + } foreach my $attr (@modifiable_params) { if (grep/^\Q$attr\E$/,@changes) { - $chgresponse .= '
          • '.$longtype{$attr}.' '.&mt('now set to:').' "'.$newattr{$attr}.'".
            • '; + my $shown = $newattr{$attr}; + if ($attr eq 'selfenrollmgrdc') { + $shown = &selfenroll_config_status(\@newmgrdc,$selfenrolltitles); + } elsif ($attr eq 'selfenrollmgrcc') { + $shown = &selfenroll_config_status(\@newmgrcc,$selfenrolltitles); + } elsif (($attr eq 'defaultcredits') && ($shown eq '')) { + $shown = &mt('None'); + } elsif (($attr eq 'mysqltables') && ($shown eq '')) { + $shown = &mt('domain default'); + } elsif ($attr eq 'nopasswdchg') { + if ($shown) { + $shown = &mt('Yes'); + } else { + $shown = &mt('No'); + } + } + $chgresponse .= '
          • '.&mt('[_1] now set to: [_2]',$longtype{$attr},$shown).'
            • '; } else { - $nochgresponse .= '
          • '.$longtype{$attr}.' '.&mt('still set to:').' "'.$currattr{$attr}.'".
            • '; + my $shown = $currattr{$attr}; + if ($attr eq 'selfenrollmgrdc') { + $shown = &selfenroll_config_status(\@currmgrdc,$selfenrolltitles); + } elsif ($attr eq 'selfenrollmgrcc') { + $shown = &selfenroll_config_status(\@currmgrcc,$selfenrolltitles); + } elsif (($attr eq 'defaultcredits') && ($shown eq '')) { + $shown = &mt('None'); + } elsif (($attr eq 'mysqltables') && ($shown eq '')) { + $shown = &mt('domain default'); + } elsif ($attr eq 'nopasswdchg') { + if ($shown) { + $shown = &mt('Yes'); + } else { + $shown = &mt('No'); + } + } + $nochgresponse .= '
          • '.&mt('[_1] still set to: [_2]',$longtype{$attr},$shown).'
            • '; } } if (($type ne 'Community') && ($changed{'code'} || $changed{'owner'})) { @@ -768,6 +1660,8 @@ sub modify_course { push(@warnings,&mt('There is no owner associated with this LON-CAPA course.'). '
            '.&mt('If automated enrollment at your institution requires validation of course owners, automated enrollment will fail.')); } else { + my %crsenv = &Apache::lonnet::get('environment',['internal.co-owners'],$cdom,$cnum); + my $coowners = $crsenv{'internal.co-owners'}; if (@sections > 0) { if ($changed{'code'}) { foreach my $sec (@sections) { @@ -776,13 +1670,13 @@ sub modify_course { my $inst_course_id = $newattr{'coursecode'}.$1; my $course_check = &Apache::lonnet::auto_validate_courseID($cnum,$cdom,$inst_course_id); if ($course_check eq 'ok') { - my $outcome = &Apache::lonnet::auto_new_course($cnum,$cdom,$inst_course_id,$newattr{'courseowner'}); + my $outcome = &Apache::lonnet::auto_new_course($cnum,$cdom,$inst_course_id,$newattr{'courseowner'},$coowners); unless ($outcome eq 'ok') { - push(@warnings,&mt('If automatic enrollment is enabled for "[_1]" automated enrollment may fail for "[_2]" - section: [_3], for the following reason: "[_4]"',$description,$newattr{'coursecode'},$instsec,$outcome).'
            '); + push(@warnings,&mt('If automatic enrollment is enabled for "[_1]", automated enrollment may fail for "[_2]" - section: [_3] for the following reason: "[_4]".',$description,$newattr{'coursecode'},$instsec,$outcome).'
            '); } } else { - push(@warnings,&mt('If automatic enrollment is enabled for "[_1]" automated enrollment may fail for "[_2]" - section: [_3], for the following reason: "[_4]"',$description,$newattr{'coursecode'},$instsec,$course_check)); + push(@warnings,&mt('If automatic enrollment is enabled for "[_1]", automated enrollment may fail for "[_2]" - section: [_3] for the following reason: "[_4]".',$description,$newattr{'coursecode'},$instsec,$course_check)); } } else { push(@warnings,&mt('If automatic enrollment is enabled for "[_1]", automated enrollment may fail for "[_2]" - section: [_3], because this is not a valid section entry.',$description,$newattr{'coursecode'},$sec)); @@ -793,23 +1687,23 @@ sub modify_course { if ($sec =~ m/^(.+):/) { my $instsec = $1; my $inst_course_id = $newattr{'coursecode'}.$instsec; - my $outcome = &Apache::lonnet::auto_new_course($cnum,$cdom,$inst_course_id,$newattr{'courseowner'}); + my $outcome = &Apache::lonnet::auto_new_course($cnum,$cdom,$inst_course_id,$newattr{'courseowner'},$coowners); unless ($outcome eq 'ok') { - push(@warnings,&mt('If automatic enrollment is enabled for "[_1]", automated enrollment may fail for "[_2]" - section [_3] for the following reason: "[_4]".',$description,$newattr{'coursecode'},$instsec,$outcome)); + push(@warnings,&mt('If automatic enrollment is enabled for "[_1]", automated enrollment may fail for "[_2]" - section: [_3] for the following reason: "[_4]".',$description,$newattr{'coursecode'},$instsec,$outcome)); } } else { - push(@warnings,&mt('If automatic enrollment is enabled for "[_1]", automated enrollment may fail for "[_2]" - section [_3] because this is not a valid section entry.',$description,$newattr{'coursecode'},$sec)); + push(@warnings,&mt('If automatic enrollment is enabled for "[_1]", automated enrollment may fail for "[_2]" - section: [_3], because this is not a valid section entry.',$description,$newattr{'coursecode'},$sec)); } } } } else { - push(@warnings,&mt('As no section numbers are currently listed for "[_1]" automated enrollment will not occur for any sections of institutional course code: "[_2]".',$description,$newattr{'coursecode'})); + push(@warnings,&mt('As no section numbers are currently listed for "[_1]", automated enrollment will not occur for any sections of institutional course code: "[_2]".',$description,$newattr{'coursecode'})); } if ( (@xlists > 0) && ($changed{'owner'}) ) { foreach my $xlist (@xlists) { if ($xlist =~ m/^(.+):/) { my $instxlist = $1; - my $outcome = &Apache::lonnet::auto_new_course($cnum,$cdom,$instxlist,$newattr{'courseowner'}); + my $outcome = &Apache::lonnet::auto_new_course($cnum,$cdom,$instxlist,$newattr{'courseowner'},$coowners); unless ($outcome eq 'ok') { push(@warnings,&mt('If automatic enrollment is enabled for "[_1]", automated enrollment may fail for crosslisted class "[_2]" for the following reason: "[_3]".',$description,$instxlist,$outcome)); } @@ -821,7 +1715,17 @@ sub modify_course { } } else { foreach my $attr (@modifiable_params) { - $nochgresponse .= '
          • '.$longtype{$attr}.' '.&mt('still set to').' "'.$currattr{$attr}.'".
            • '; + my $shown = $currattr{$attr}; + if ($attr eq 'selfenrollmgrdc') { + $shown = &selfenroll_config_status(\@currmgrdc,$selfenrolltitles); + } elsif ($attr eq 'selfenrollmgrcc') { + $shown = &selfenroll_config_status(\@currmgrcc,$selfenrolltitles); + } elsif (($attr eq 'defaultcredits') && ($shown eq '')) { + $shown = &mt('None'); + } elsif (($attr eq 'mysqltables') && ($shown eq '')) { + $shown = &mt('domain default'); + } + $nochgresponse .= '
          • '.&mt('[_1] still set to: [_2]',$longtype{$attr},$shown).'
            • '; } } @@ -850,22 +1754,40 @@ sub modify_course { $reply = '

            '.$mainheader.' '.$cdesc.'

            '."\n". '

            '.$reply.'

            '."\n". '
            '. - &hidden_form_elements(). - ''. - &mt('Pick another action').''; + &hidden_form_elements(); + my @actions = + (''. + &mt('Pick another action').''); if ($numwarnings) { my $newrole = $ccrole.'./'.$cdom.'/'.$cnum; my $escuri = &HTML::Entities::encode('/adm/roles?selectrole=1&'.$newrole. '=1&destinationurl=/adm/populate','&<>"'); - $reply .= '
            '. - &mt('Go to Automated Enrollment Manager for course').''; + push(@actions, ''. + &mt('Go to Automated Enrollment Manager for course').''); } - $reply .= '
            '; + $reply .= &Apache::lonhtmlcommon::actionbox(\@actions).''; $r->print($reply); return; } +sub selfenroll_config_status { + my ($items,$selfenrolltitles) = @_; + my $shown; + if ((ref($items) eq 'ARRAY') && (ref($selfenrolltitles) eq 'HASH')) { + if (@{$items} > 0) { + $shown = '
              '; + foreach my $item (@{$items}) { + $shown .= '
            • '.$selfenrolltitles->{$item}.'
              • '; + } + $shown .= '
            '; + } else { + $shown = &mt('None'); + } + } + return $shown; +} + sub update_coowners { my ($cdom,$cnum,$chome,$settings,$newattr) = @_; return unless ((ref($settings) eq 'HASH') && (ref($newattr) eq 'HASH')); @@ -963,7 +1885,7 @@ sub update_coowners { if ($designhash{$cdom.'.autoassign.co-owners'}) { my @newcoowners = (); if ($settings->{'internal.co-owners'}) { - my @currcoown = split(',',$settings->{'internal.coowners'}); + my @currcoown = split(',',$settings->{'internal.co-owners'}); my ($updatecoowners,$delcoowners); foreach my $person (@currcoown) { my ($result,$desc) = &Apache::lonnet::auto_validate_instcode($cnum,$cdom,$newattr->{'coursecode'},$person); @@ -1012,63 +1934,247 @@ sub update_coowners { sub modify_quota { my ($r,$cdom,$cnum,$cdesc,$domdesc,$type) = @_; &print_header($r,$type); + my $lctype = lc($type); + my $headline = &mt("Disk space quotas for $lctype: [_1]", + ''.$cdesc.''); $r->print('
            '."\n". - '

            '.&mt('Disk space for storage of group portfolio files for:'). + '

            '.$headline.'

            '); + my %oldsettings = &Apache::lonnet::get('environment',['internal.coursequota','internal.uploadquota'],$cdom,$cnum); + my %staticdefaults = ( + coursequota => 20, + uploadquota => 500, + ); + my %default; + $default{'coursequota'} = $staticdefaults{'coursequota'}; + my %domdefs = &Apache::lonnet::get_domain_defaults($cdom); + $default{'uploadquota'} = $domdefs{'uploadquota'}; + if ($default{'uploadquota'} eq '') { + $default{'uploadquota'} = $staticdefaults{'uploadquota'}; + } + my (%cenv,%showresult); + foreach my $item ('coursequota','uploadquota') { + if ($env{'form.'.$item} ne '') { + my $newquota = $env{'form.'.$item}; + if ($newquota =~ /^\s*(\d+\.?\d*|\.\d+)\s*$/) { + $newquota = $1; + if ($oldsettings{'internal.'.$item} == $newquota) { + if ($item eq 'coursequota') { + $r->print(&mt('The disk space allocated for group portfolio files remains unchanged as [_1] MB.',$newquota).'
            '); + } else { + $r->print(&mt('The disk space allocated for files uploaded via the Content Editor remains unchanged as [_1] MB.',$newquota).'
            '); + } + } else { + $cenv{'internal.'.$item} = $newquota; + $showresult{$item} = 1; + } + } else { + if ($item eq 'coursequota') { + $r->print(&mt('The proposed group portfolio quota contained invalid characters, so the quota is unchanged.').'
            '); + } else { + $r->print(&mt('The proposed quota for content uploaded via the Content Editor contained invalid characters, so the quota is unchanged.').'
            '); + + } + } + } + } + if (keys(%cenv)) { + my $putreply = &Apache::lonnet::put('environment',\%cenv,$cdom, + $cnum); + foreach my $key (sort(keys(%showresult))) { + if (($oldsettings{'internal.'.$key} eq '') && + ($env{'form.'.$key} == $default{$key})) { + if ($key eq 'uploadquota') { + if ($type eq 'Community') { + $r->print(&mt('The disk space allocated for files uploaded to this community via the Content Editor is the default quota for this domain: [_1] MB.', + $default{$key}).'
            '); + } else { + $r->print(&mt('The disk space allocated for files uploaded to this course via the Content Editor is the default quota for this domain: [_1] MB.', + $default{$key}).'
            '); + } + } else { + if ($type eq 'Community') { + $r->print(&mt('The disk space allocated for group portfolio files in this community is the default quota for this domain: [_1] MB.', + $default{$key}).'
            '); + } else { + $r->print(&mt('The disk space allocated for group portfolio files in this course is the default quota for this domain: [_1] MB.', + $default{$key}).'
            '); + } + } + delete($showresult{$key}); + } + } + if ($putreply eq 'ok') { + my %updatedsettings = &Apache::lonnet::get('environment',['internal.coursequota','internal.uploadquota'],$cdom,$cnum); + if ($showresult{'coursequota'}) { + $r->print(&mt('The disk space allocated for group portfolio files is now: [_1] MB.', + ''.$updatedsettings{'internal.coursequota'}.'').'
            '); + my $usage = &Apache::longroup::sum_quotas($cdom.'_'.$cnum); + if ($usage >= $updatedsettings{'internal.coursequota'}) { + my $newoverquota; + if ($usage < $oldsettings{'internal.coursequota'}) { + $newoverquota = 'now'; + } + $r->print('

            '); + if ($type eq 'Community') { + $r->print(&mt("Disk usage $newoverquota exceeds the quota for this community.").' '. + &mt('Upload of new portfolio files and assignment of a non-zero MB quota to new groups in the community will not be possible until some files have been deleted, and total usage is below community quota.')); + } else { + $r->print(&mt("Disk usage $newoverquota exceeds the quota for this course.").' '. + &mt('Upload of new portfolio files and assignment of a non-zero MB quota to new groups in the course will not be possible until some files have been deleted, and total usage is below course quota.')); + } + $r->print('

            '); + } + } + if ($showresult{'uploadquota'}) { + $r->print(&mt('The disk space allocated for content uploaded directly via the Content Editor is now: [_1] MB.', + ''.$updatedsettings{'internal.uploadquota'}.'').'
            '); + } + } else { + $r->print(&mt('An error occurred storing the quota(s) for group portfolio files and/or uploaded content: '). + $putreply); + } + } + $r->print('

            '. + ''. + &mt('Pick another action').''); + $r->print(&hidden_form_elements().'

            '); + return; +} + +sub modify_anonsurvey_threshold { + my ($r,$cdom,$cnum,$cdesc,$domdesc,$type) = @_; + &print_header($r,$type); + $r->print('
            '."\n". + '

            '.&mt('Responder threshold required for display of anonymous survey submissions:'). ' '.$cdesc.'


            '); - my %oldsettings = &Apache::lonnet::get('environment',['internal.coursequota'],$cdom,$cnum); - my $defaultquota = 20; - if ($env{'form.coursequota'} ne '') { - my $newquota = $env{'form.coursequota'}; - if ($newquota =~ /^\s*(\d+\.?\d*|\.\d+)\s*$/) { - $newquota = $1; - if ($oldsettings{'internal.coursequota'} eq $env{'form.coursequota'}) { - $r->print(&mt('The disk space allocated for group portfolio files remains unchanged as [_1] Mb.',$env{'form.coursequota'})); + my %oldsettings = &Apache::lonnet::get('environment',['internal.anonsurvey_threshold'],$cdom,$cnum); + my %domconfig = + &Apache::lonnet::get_dom('configuration',['coursedefaults'],$cdom); + my $defaultthreshold; + if (ref($domconfig{'coursedefaults'}) eq 'HASH') { + $defaultthreshold = $domconfig{'coursedefaults'}{'anonsurvey_threshold'}; + if ($defaultthreshold eq '') { + $defaultthreshold = 10; + } + } else { + $defaultthreshold = 10; + } + if ($env{'form.threshold'} eq '') { + $r->print(&mt('The proposed responder threshold for display of anonymous survey submissions was blank, so the threshold is unchanged.')); + } else { + my $newthreshold = $env{'form.threshold'}; + if ($newthreshold =~ /^\s*(\d+)\s*$/) { + $newthreshold = $1; + if ($oldsettings{'internal.anonsurvey_threshold'} eq $env{'form.threshold'}) { + $r->print(&mt('Responder threshold for anonymous survey submissions display remains unchanged: [_1].',$env{'form.threshold'})); } else { my %cenv = ( - 'internal.coursequota' => $env{'form.coursequota'}, + 'internal.anonsurvey_threshold' => $env{'form.threshold'}, ); my $putreply = &Apache::lonnet::put('environment',\%cenv,$cdom, $cnum); - if (($oldsettings{'internal.coursequota'} eq '') && - ($env{'form.coursequota'} == $defaultquota)) { - if ($type eq 'Community') { - $r->print(&mt('The disk space allocated for group portfolio files in this community is the default quota for this domain: [_1] Mb.',$defaultquota)); - } else { - $r->print(&mt('The disk space allocated for group portfolio files in this course is the default quota for this domain: [_1] Mb.',$defaultquota)); + if ($putreply eq 'ok') { + if ($env{'course.'.$cdom.'_'.$cnum.'.description'} ne '') { + &Apache::lonnet::appenv( + {'course.'.$cdom.'_'.$cnum.'.internal.anonsurvey_threshold' => $env{'form.threshold'}}); } + } + if (($oldsettings{'internal.anonsurvey_threshold'} eq '') && + ($env{'form.threshold'} == $defaultthreshold)) { + $r->print(&mt('The responder threshold for display of anonymous survey submissions is the default for this domain: [_1].',$defaultthreshold)); } else { if ($putreply eq 'ok') { - my %updatedsettings = &Apache::lonnet::get('environment',['internal.coursequota'],$cdom,$cnum); - $r->print(&mt('The disk space allocated for group portfolio files is now: [_1] Mb.',$updatedsettings{'internal.coursequota'})); - my $usage = &Apache::longroup::sum_quotas($cdom.'_'.$cnum); - if ($usage >= $updatedsettings{'internal.coursequota'}) { - my $newoverquota; - if ($usage < $oldsettings{'internal.coursequota'}) { - $newoverquota = 'now'; - } - $r->print('

            '); - if ($type eq 'Community') { - $r->print(&mt('Disk usage [_1] exceeds the quota for this community.',$newoverquota).' '. - &mt('Upload of new portfolio files and assignment of a non-zero Mb quota to new groups in the community will not be possible until some files have been deleted, and total usage is below community quota.')); - } else { - $r->print(&mt('Disk usage [_1] exceeds the quota for this course.',$newoverquota).' '. - &mt('Upload of new portfolio files and assignment of a non-zero Mb quota to new groups in the course will not be possible until some files have been deleted, and total usage is below course quota.')); - } - $r->print('

            '); - } + my %updatedsettings = &Apache::lonnet::get('environment',['internal.anonsurvey_threshold'],$cdom,$cnum); + $r->print(&mt('The responder threshold for display of anonymous survey submissions is now: [_1].',''.$updatedsettings{'internal.anonsurvey_threshold'}.'')); } else { - $r->print(&mt('An error occurred storing the quota for group portfolio files: '). + $r->print(&mt('An error occurred storing the responder threshold for anonymous submissions display: '). $putreply); } } } } else { - $r->print(&mt('The new quota requested contained invalid characters, so the quota is unchanged.')); + $r->print(&mt('The proposed responder threshold for display of anonymous submissions contained invalid characters, so the threshold is unchanged.')); } } $r->print('

            '. - ''. - &mt('Pick another action').''); + ''. + &mt('Pick another action').'

            '); + $r->print(&hidden_form_elements().'
            '); + return; +} + +sub modify_postsubmit_config { + my ($r,$cdom,$cnum,$cdesc,$domdesc,$type) = @_; + &print_header($r,$type); + my %lt = &Apache::lonlocal::texthash( + subb => 'Submit button behavior after student makes a submission:', + unch => 'Post submission behavior of the Submit button is unchanged.', + erro => 'An error occurred when saving your proposed changes.', + inva => 'An invalid response was recorded.', + pick => 'Pick another action', + ); + $r->print('
            '."\n". + '

            '.$lt{'subb'}.' ('.$cdesc.')


            '); + my %oldsettings = + &Apache::lonnet::get('environment',['internal.postsubmit','internal.postsubtimeout','internal.coursecode','internal.textbook'],$cdom,$cnum); + my $postsubmit = $env{'form.postsubmit'}; + if ($postsubmit eq '1') { + my $postsubtimeout = $env{'form.postsubtimeout'}; + $postsubtimeout =~ s/[^\d\.]+//g; + if (($oldsettings{'internal.postsubmit'} eq $postsubmit) && ($oldsettings{'internal.postsubtimeout'} eq $postsubtimeout)) { + $r->print($lt{'unch'}); + } else { + my %cenv = ( + 'internal.postsubmit' => $postsubmit, + ); + if ($postsubtimeout eq '') { + my $putreply = &Apache::lonnet::put('environment',\%cenv,$cdom,$cnum); + if ($putreply eq 'ok') { + my $defaulttimeout = &domain_postsubtimeout($cdom,$type,\%oldsettings); + $r->print(&mt('The proposed duration for disabling the Submit button post-submission was blank, so the domain default of [quant,_1,second] will be used.',$defaulttimeout)); + if (exists($oldsettings{'internal.postsubtimeout'})) { + &Apache::lonnet::del('environment',['internal.postsubtimeout'],$cdom,$cnum); + } + } else { + $r->print($lt{'erro'}); + } + } else { + $cenv{'internal.postsubtimeout'} = $postsubtimeout; + my $putreply = &Apache::lonnet::put('environment',\%cenv,$cdom,$cnum); + if ($putreply eq 'ok') { + if ($postsubtimeout eq '0') { + $r->print(&mt('Submit button will be disabled after student submission until page is reloaded.')); + } else { + $r->print(&mt('Submit button will be disabled after student submission for [quant,_1,second].',$postsubtimeout)); + } + } else { + $r->print($lt{'erro'}); + } + } + } + } elsif ($postsubmit eq '0') { + if ($oldsettings{'internal.postsubmit'} eq $postsubmit) { + $r->print($lt{'unch'}); + } else { + if (exists($oldsettings{'internal.postsubtimeout'})) { + &Apache::lonnet::del('environment',['internal.postsubtimeout'],$cdom,$cnum); + } + my %cenv = ( + 'internal.postsubmit' => $postsubmit, + ); + my $putreply = &Apache::lonnet::put('environment',\%cenv,$cdom,$cnum); + if ($putreply eq 'ok') { + $r->print(&mt('Submit button will not be disabled after student submission')); + } else { + $r->print($lt{'erro'}); + } + } + } else { + $r->print($lt{'inva'}.' '.$lt{'unch'}); + } + $r->print('

            '. + ''. + &mt('Pick another action').'

            '); $r->print(&hidden_form_elements().'
            '); return; } @@ -1159,6 +2265,13 @@ sub modify_catsettings { if (@changes > 0) { my $putreply = &Apache::lonnet::put('environment',\%cenv,$cdom,$cnum); if ($putreply eq 'ok') { + if ($env{'course.'.$cdom.'_'.$cnum.'.description'} ne '') { + my %newenvhash; + foreach my $item (@changes) { + $newenvhash{'course.'.$cdom.'_'.$cnum.'.'.$item} = $cenv{$item}; + } + &Apache::lonnet::appenv(\%newenvhash); + } my %crsinfo = &Apache::lonnet::courseiddump($cdom,'.',1,'.','.', $cnum,undef,undef,'.'); if (ref($crsinfo{$env{'form.pickedcourse'}}) eq 'HASH') { @@ -1203,6 +2316,109 @@ sub modify_catsettings { return; } +sub modify_ltiauth { + my ($r,$cdom,$cnum,$cdesc,$domdesc,$type) = @_; + my %lt = &Apache::lonlocal::texthash( + 'requ' => 'Requirement for re-authentication for student LTI-limited launch of deep-linked item', + 'link' => 'Link protection can be set to accept username for an enrolled student (if sent by Consumer)', + 'logi' => 'Login needed, regardless of user information sent by LTI Consumer in (signed) parameters', + 'used' => 'Use domain default', + 'cour' => 'Use course-specific setting', + 'modi' => 'Save', + 'back' => 'Pick another action', + ); + &print_header($r,$type); + $r->print('
            '."\n". + '

            '.$lt{'requ'}. + ' '.$cdesc.'

            '); + my %oldsettings = &Apache::lonnet::get('environment',['internal.ltiauth'],$cdom,$cnum); + my $oldltiauth = $oldsettings{'internal.ltiauth'}; + my $domdef; + my %domconfig = + &Apache::lonnet::get_dom('configuration',['coursedefaults'],$cdom); + if (ref($domconfig{'coursedefaults'}) eq 'HASH') { + $domdef = $domconfig{'coursedefaults'}{'ltiauth'}; + } + my ($newltiauth,$nochange,$change,$status,$error,$ltiauth); + if ($env{'form.ltiauthset'} eq 'dom') { + if ($oldltiauth eq '') { + $nochange = 1; + } else { + $change = 1; + } + } elsif ($env{'form.ltiauthset'} eq 'course') { + if ($env{'form.ltiauth'} =~ /^0|1$/) { + $newltiauth = $env{'form.ltiauth'}; + } + if ($oldltiauth == $newltiauth) { + $nochange = 1; + } else { + $change = 1; + } + } + if ($change) { + if ($newltiauth ne '') { + my %cenv = ( + 'internal.ltiauth' => $newltiauth, + ); + if (&Apache::lonnet::put('environment',\%cenv,$cdom,$cnum) eq 'ok') { + if ($env{'course.'.$cdom.'_'.$cnum.'.description'} ne '') { + &Apache::lonnet::appenv( + {'course.'.$cdom.'_'.$cnum.'.internal.ltiauth' => $newltiauth}); + } + } else { + $error = 1; + } + } else { + if (&Apache::lonnet::del('environment',['internal.ltiauth'],$cdom,$cnum) eq 'ok') { + if (exists($env{'course.'.$cdom.'_'.$cnum.'.internal.ltiauth'})) { + &Apache::lonnet::delenv('course.'.$cdom.'_'.$cnum.'.internal.ltiauth'); + } + } else { + $error = 1; + } + } + } + if ($error) { + $nochange = 1; + } + if ($nochange) { + $ltiauth = $oldltiauth; + } else { + $ltiauth = $newltiauth; + } + if ($ltiauth eq '') { + $status = $lt{'used'}.': '; + if ($domdef) { + $status .= ''.$lt{'link'}.''; + } else { + $status .= ''.$lt{'logi'}.''; + } + } else { + $status = $lt{'cour'}.': '; + if ($ltiauth) { + $status .= ''.$lt{'link'}.''; + } else { + $status .= ''.$lt{'logi'}.''; + } + } + if ($error) { + $r->print('

            '.&mt('An error occurred when saving your changes').'

            '); + } + $r->print('

            '); + if ($nochange) { + $r->print(&mt('Re-authentication requirement for LTI launch of deep-linked item is unchanged')); + } elsif ($change) { + $r->print(&mt('Re-authentication requirement for LTI launch of deep-linked changed')); + } + $r->print('
            '.$status); + $r->print('

            '. + ''. + &mt('Pick another action').'

            '); + $r->print(&hidden_form_elements().'
            '); + return; +} + sub print_header { my ($r,$type,$javascript_validations) = @_; my $phase = "start"; @@ -1210,7 +2426,7 @@ sub print_header { $phase = $env{'form.phase'}; } my $js = qq| - + |; if ($phase eq 'setparms') { - $js .= qq| - -|; + $js .= $javascript_validations; } elsif ($phase eq 'courselist') { - $js .= qq| - -|; + +ENDJS } elsif ($phase eq 'setquota') { - $js .= <<'ENDSCRIPT'; - + ENDSCRIPT + + } elsif ($phase eq 'setltiauth') { + $js .= <<"ENDJS"; +function toggleLTIOptions(form) { + var radioname = 'ltiauthset'; + var divid = 'crsltiauth'; + var num = form.elements[radioname].length; + if (num) { + var setvis = ''; + for (var i=0; i {'onload' => "javascript:document.adhocrole.submit();"}, + }; + } elsif ($phase eq 'courselist') { $starthash = { - add_entries => {'onload' => "javascript:document.ccrole.submit();"}, + add_entries => {'onload' => "hide_searching(); courseSet(document.filterpicker.official, 'load');"}, + }; + } elsif ($env{'form.phase'} eq 'setltiauth') { + $starthash = { + add_entries => {'onload' => "toggleLTIOptions(document.setltiauth);"}, }; } $r->print(&Apache::loncommon::start_page('View/Modify Course/Community Settings', - $js,$starthash)); + &Apache::lonhtmlcommon::scripttag($js), + $starthash)); my $bread_text = "View/Modify Courses/Communities"; if ($type eq 'Community') { $bread_text = 'Community Settings'; @@ -1276,38 +2638,35 @@ sub print_footer { } sub check_course { - my ($r,$dom,$domdesc) = @_; - my ($ok_course,$description,$instcode,$owner); - my %args = ( - one_time => 1, - ); - my %coursehash = - &Apache::lonnet::coursedescription($env{'form.pickedcourse'},\%args); - my $cnum = $coursehash{'num'}; - my $cdom = $coursehash{'domain'}; - if ($cdom eq $dom) { - my $description; - my %courseIDs = &Apache::lonnet::courseiddump($cdom,'.',1,'.','.', - $cnum,undef,undef,'.'); - if (keys(%courseIDs) > 0) { - $ok_course = 'ok'; - my ($instcode,$owner); - if (ref($courseIDs{$cdom.'_'.$cnum}) eq 'HASH') { - $description = $courseIDs{$cdom.'_'.$cnum}{'description'}; - $instcode = $courseIDs{$cdom.'_'.$cnum}{'inst_code'}; - $owner = $courseIDs{$cdom.'_'.$cnum}{'owner'}; - } else { - ($description,$instcode,$owner) = - split(/:/,$courseIDs{$cdom.'_'.$cnum}); - } - $description = &unescape($description); - $instcode = &unescape($instcode); - if ($instcode) { - $description .= " ($instcode)"; + my ($dom,$domdesc) = @_; + my ($ok_course,$description,$instcode); + my %coursehash; + if ($env{'form.pickedcourse'} =~ /^$match_domain\_$match_courseid$/) { + my %args; + unless ($env{'course.'.$env{'form.pickedcourse'}.'.description'}) { + %args = ( + 'one_time' => 1, + 'freshen_cache' => 1, + ); + } + %coursehash = + &Apache::lonnet::coursedescription($env{'form.pickedcourse'},\%args); + my $cnum = $coursehash{'num'}; + my $cdom = $coursehash{'domain'}; + $description = $coursehash{'description'}; + $instcode = $coursehash{'internal.coursecode'}; + if ($instcode) { + $description .= " ($instcode)"; + } + if (($cdom eq $dom) && ($cnum =~ /^$match_courseid$/)) { + my %courseIDs = &Apache::lonnet::courseiddump($cdom,'.',1,'.','.', + $cnum,undef,undef,'.'); + if ($courseIDs{$cdom.'_'.$cnum}) { + $ok_course = 'ok'; } - return ($ok_course,$description); } } + return ($ok_course,$description,\%coursehash); } sub course_settings_descrip { @@ -1315,8 +2674,11 @@ sub course_settings_descrip { my %longtype; if ($type eq 'Community') { %longtype = &Apache::lonlocal::texthash( - 'courseowner' => "Username:domain of community owner", - 'co-owners' => "Username:domain of each co-owner", + 'courseowner' => "Username:domain of community owner", + 'co-owners' => "Username:domain of each co-owner", + 'selfenrollmgrdc' => "Community-specific self-enrollment configuration by Domain Coordinator", + 'selfenrollmgrcc' => "Community-specific self-enrollment configuration by Community personnel", + 'mysqltables' => '"Temporary" student performance tables lifetime (seconds)', ); } else { %longtype = &Apache::lonlocal::texthash( @@ -1334,6 +2696,12 @@ sub course_settings_descrip { 'notifylist' => 'Course Coordinators to be notified of enrollment changes', 'sectionnums' => 'Course section number:LON-CAPA section', 'crosslistings' => 'Crosslisted class:LON-CAPA section', + 'defaultcredits' => 'Credits', + 'autodropfailsafe' => "Failsafe section enrollment count", + 'selfenrollmgrdc' => "Course-specific self-enrollment configuration by Domain Coordinator", + 'selfenrollmgrcc' => "Course-specific self-enrollment configuration by Course personnel", + 'mysqltables' => '"Temporary" student performance tables lifetime (seconds)', + 'nopasswdchg' => 'Disable changing password for users with student role by course owner', ); } return %longtype; @@ -1343,11 +2711,85 @@ sub hidden_form_elements { my $hidden_elements = &Apache::lonhtmlcommon::echo_form_input(['gosearch','updater','coursecode', 'prevphase','numlocalcc','courseowner','login','coursequota','intarg', - 'locarg','krbarg','krbver','counter','hidefromcat','usecategory'])."\n". + 'locarg','krbarg','krbver','counter','hidefromcat','usecategory', + 'threshold','postsubmit','postsubtimeout','defaultcredits','uploadquota', + 'selfenrollmgrdc','selfenrollmgrcc','action','state','currsec_st', + 'sections','newsec','mysqltables','nopasswdchg','ltiauth','ltiauthset'], + ['^selfenrollmgr_','^selfenroll_'])."\n". ''; return $hidden_elements; } +sub showcredits { + my ($dom) = @_; + my %domdefaults = &Apache::lonnet::get_domain_defaults($dom); + if ($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'} || $domdefaults{'textbookcredits'}) { + return 1; + } +} + +sub get_permission { + my ($dom) = @_; + my ($allowed,%permission); + my %passwdconf = &Apache::lonnet::get_passwdconf($dom); + if (&Apache::lonnet::allowed('ccc',$dom)) { + $allowed = 1; + %permission = ( + setquota => 'edit', + processquota => 'edit', + setanon => 'edit', + processthreshold => 'edit', + setpostsubmit => 'edit', + processpostsubmit => 'edit', + viewparms => 'view', + setparms => 'edit', + processparms => 'edit', + catsettings => 'edit', + processcat => 'edit', + selfenroll => 'edit', + adhocrole => 'coord', + setltiauth => 'edit', + processltiauth => 'edit', + ); + if ($passwdconf{'crsownerchg'}) { + $permission{passwdchg} = 'edit'; + } + } elsif (&Apache::lonnet::allowed('rar',$dom)) { + $allowed = 1; + %permission = ( + setquota => 'view', + viewparms => 'view', + setanon => 'view', + setpostsubmit => 'view', + setparms => 'view', + catsettings => 'view', + selfenroll => 'view', + adhocrole => 'custom', + setltiauth => 'view', + ); + if ($passwdconf{'crsownerchg'}) { + $permission{passwdchg} = 'view'; + } + } + return ($allowed,\%permission); +} + +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 handler { my $r = shift; if ($r->header_only) { @@ -1355,9 +2797,14 @@ sub handler { $r->send_http_header; return OK; } + + $registered_cleanup=0; + $modified_dom = ''; + my $dom = $env{'request.role.domain'}; my $domdesc = &Apache::lonnet::domain($dom,'description'); - if (&Apache::lonnet::allowed('ccc',$dom)) { + my ($allowed,$permission) = &get_permission($dom); + if ($allowed) { &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; @@ -1393,9 +2840,9 @@ sub handler { {href=>"javascript:changePage(document.$phase,'courselist')", text=>$choose_text}); if ($phase eq 'courselist') { - &print_course_selection_page($r,$dom,$domdesc); + &print_course_selection_page($r,$dom,$domdesc,$permission); } else { - my ($checked,$cdesc) = &check_course($r,$dom,$domdesc); + my ($checked,$cdesc,$coursehash) = &check_course($dom,$domdesc); if ($checked eq 'ok') { my $enter_text; if ($type eq 'Community') { @@ -1407,23 +2854,34 @@ sub handler { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'menu')", text=>"Pick action"}); - &print_modification_menu($r,$cdesc,$domdesc,$dom,$type); - } elsif ($phase eq 'ccrole') { + &print_modification_menu($r,$cdesc,$domdesc,$dom,$type, + $env{'form.pickedcourse'},$coursehash, + $permission); + } elsif ($phase eq 'adhocrole') { &Apache::lonhtmlcommon::add_breadcrumb - ({href=>"javascript:changePage(document.$phase,'ccrole')", + ({href=>"javascript:changePage(document.$phase,'adhocrole')", text=>$enter_text}); - &print_ccrole_selected($r,$type); + &print_adhocrole_selected($r,$type,$permission); } else { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'menu')", text=>"Pick action"}); my ($cdom,$cnum) = split(/_/,$env{'form.pickedcourse'}); - if ($phase eq 'setquota') { + my ($readonly,$linktext); + if ($permission->{$phase} eq 'view') { + $readonly = 1; + } + if (($phase eq 'setquota') && ($permission->{'setquota'})) { + if ($permission->{'setquota'} eq 'view') { + $linktext = 'Set quota'; + } else { + $linktext = 'Display quota'; + } &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'$phase')", - text=>"Set quota"}); - &print_setquota($r,$cdom,$cnum,$cdesc,$type); - } elsif ($phase eq 'processquota') { + text=>$linktext}); + &print_setquota($r,$cdom,$cnum,$cdesc,$type,$readonly); + } elsif (($phase eq 'processquota') && ($permission->{'processquota'})) { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'setquota')", text=>"Set quota"}); @@ -1431,17 +2889,50 @@ sub handler { ({href=>"javascript:changePage(document.$phase,'$phase')", text=>"Result"}); &modify_quota($r,$cdom,$cnum,$cdesc,$domdesc,$type); - } elsif ($phase eq 'viewparms') { + } elsif (($phase eq 'setanon') && ($permission->{'setanon'})) { + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>"javascript:changePage(document.$phase,'$phase')", + text=>"Threshold for anonymous submissions display"}); + &print_set_anonsurvey_threshold($r,$cdom,$cnum,$cdesc,$type,$readonly); + } elsif (($phase eq 'processthreshold') && ($permission->{'processthreshold'})) { + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>"javascript:changePage(document.$phase,'setanon')", + text=>"Threshold for anonymous submissions display"}); + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>"javascript:changePage(document.$phase,'$phase')", + text=>"Result"}); + &modify_anonsurvey_threshold($r,$cdom,$cnum,$cdesc,$domdesc,$type); + } elsif (($phase eq 'setpostsubmit') && ($permission->{'setpostsubmit'})) { + if ($permission->{'setpostsubmit'} eq 'view') { + $linktext = 'Submit button behavior post-submission'; + } else { + $linktext = 'Configure submit button behavior post-submission'; + } + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>"javascript:changePage(document.$phase,'$phase')", + text=>$linktext}); + &print_postsubmit_config($r,$cdom,$cnum,$cdesc,$type,$readonly); + } elsif (($phase eq 'processpostsubmit') && ($permission->{'processpostsubmit'})) { + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>"javascript:changePage(document.$phase,'$phase')", + text=>"Result"}); + &modify_postsubmit_config($r,$cdom,$cnum,$cdesc,$domdesc,$type); + } elsif (($phase eq 'viewparms') && ($permission->{'viewparms'})) { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'viewparms')", text=>"Display settings"}); - &print_settings_display($r,$cdom,$cnum,$cdesc,$type); - } elsif ($phase eq 'setparms') { + &print_settings_display($r,$cdom,$cnum,$cdesc,$type,$permission); + } elsif (($phase eq 'setparms') && ($permission->{'setparms'})) { + if ($permission->{'setparms'} eq 'view') { + $linktext = 'Display settings'; + } else { + $linktext = 'Change settings'; + } &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'$phase')", - text=>"Change settings"}); - &print_course_modification_page($r,$cdom,$cnum,$cdesc,$type); - } elsif ($phase eq 'processparms') { + text=>$linktext}); + &print_course_modification_page($r,$cdom,$cnum,$cdesc,$type,$readonly); + } elsif (($phase eq 'processparms') && ($permission->{'processparms'})) { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'setparms')", text=>"Change settings"}); @@ -1449,12 +2940,12 @@ sub handler { ({href=>"javascript:changePage(document.$phase,'$phase')", text=>"Result"}); &modify_course($r,$cdom,$cnum,$cdesc,$domdesc,$type); - } elsif ($phase eq 'catsettings') { + } elsif (($phase eq 'catsettings') && ($permission->{'catsettings'})) { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'$phase')", text=>"Catalog settings"}); - &print_catsettings($r,$cdom,$cnum,$cdesc,$type); - } elsif ($phase eq 'processcat') { + &print_catsettings($r,$cdom,$cnum,$cdesc,$type,$readonly); + } elsif (($phase eq 'processcat') && ($permission->{'processcat'})) { &Apache::lonhtmlcommon::add_breadcrumb ({href=>"javascript:changePage(document.$phase,'catsettings')", text=>"Catalog settings"}); @@ -1462,14 +2953,39 @@ sub handler { ({href=>"javascript:changePage(document.$phase,'$phase')", text=>"Result"}); &modify_catsettings($r,$cdom,$cnum,$cdesc,$domdesc,$type); + } elsif (($phase eq 'selfenroll') && ($permission->{'selfenroll'})) { + &Apache::lonhtmlcommon::add_breadcrumb + ({href => "javascript:changePage(document.$phase,'$phase')", + text => "Self-enrollment settings"}); + if (!exists($env{'form.state'})) { + &print_selfenrollconfig($r,$type,$cdesc,$coursehash,$readonly); + } elsif ($env{'form.state'} eq 'done') { + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>"javascript:changePage(document.$phase,'$phase')", + text=>"Result"}); + &modify_selfenrollconfig($r,$type,$cdesc,$coursehash); + } + } elsif (($phase eq 'setltiauth') && ($permission->{'setltiauth'})) { + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>"javascript:changePage(document.$phase,'$phase')", + text=>"Requirement for re-authentication for LTI launch of deep-linked item"}); + &print_set_ltiauth($r,$cdom,$cnum,$cdesc,$type,$readonly); + } elsif (($phase eq 'processltiauth') && ($permission->{'processltiauth'})) { + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>"javascript:changePage(document.$phase,'setltiauth')", + text=>"Requirement for re-authentication for LTI launch of deep-linked item"}); + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>"javascript:changePage(document.$phase,'$phase')", + text=>"Result"}); + &modify_ltiauth($r,$cdom,$cnum,$cdesc,$domdesc,$type); } } } else { $r->print(''); if ($type eq 'Community') { - $r->print(&mt('The course you selected is not a valid course in this domain')); - } else { $r->print(&mt('The community you selected is not a valid community in this domain')); + } else { + $r->print(&mt('The course you selected is not a valid course in this domain')); } $r->print(" ($domdesc)"); }