--- loncom/interface/lonmodifycourse.pm 2024/04/14 17:12:27 1.105 +++ loncom/interface/lonmodifycourse.pm 2024/08/21 03:11:41 1.106 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # handler for DC-only modifiable course settings # -# $Id: lonmodifycourse.pm,v 1.105 2024/04/14 17:12:27 raeburn Exp $ +# $Id: lonmodifycourse.pm,v 1.106 2024/08/21 03:11:41 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1330,7 +1330,7 @@ sub print_default_overrides { &default_overrides_common($item,$cdom,$cnum,$type,\%titles); $checkeddom = ' checked="checked"'; $divsty = 'display:none'; - + if ($item eq 'ltiauth') { $helpfile = 'Modify_Course_LTI_Authen'; $crsdefault = 0; @@ -1353,7 +1353,7 @@ sub print_default_overrides { $divsty = 'display:inline-block'; if ($item eq 'crseditors') { @currcrseditors = split(/,/,$currcrsval); - } + } foreach my $option (@{$options}) { if ($item eq 'crseditors') { if (grep(/^\Q$option\E$/,@currcrseditors)) { @@ -1369,7 +1369,7 @@ sub print_default_overrides { if ($item eq 'crseditors') { my %domdefs = &Apache::lonnet::get_domain_defaults($cdom); @currcrseditors = split(/,/,$domdefs{'crseditors'}); - } + } foreach my $option (@{$options}) { if ($item eq 'crseditors') { if (grep(/^\Q$option\E$/,@currcrseditors)) { @@ -1442,7 +1442,7 @@ sub default_overrides_titles { 'dom' => 'Only external tools defined in domain may be used', 'both' => 'External tools defined/configured in either domain or course may be used', 'stan' => "'In-course' authoring of standard LON-CAPA problems", - 'perc' => 'Permitted course resource editors', + 'perc' => 'Permitted course resource editors', 'edit' => 'Standard editor (Edit)', 'xml' => 'Text editor (EditXML)', 'daxe' => 'Daxe editor (Daxe)', @@ -1472,7 +1472,7 @@ sub default_overrides_common { $title = $titles->{'requ'}; $domdef = 0; @options = ('0','1'); - %optiontext = ( + %optiontext = ( 0 => $titles->{'logi'}, 1 => $titles->{'link'}, ); @@ -1490,7 +1490,7 @@ sub default_overrides_common { $title = $titles->{'stan'}; $domdef = 1; @options = ('1','0'); - %optiontext = ( + %optiontext = ( 1 => $titles->{'on'}, 0 => $titles->{'off'}, ); @@ -2596,7 +2596,7 @@ sub modify_default_overrides { chg => 'Permitted course resource editors changed', nochg => 'Permitted course resource editors unchanged', ); - } + } &print_header($r,$type); $r->print('

'.$title.'

'."\n". '

'.&mt($type).': '.$cdesc.'

'."\n". @@ -2616,8 +2616,8 @@ sub modify_default_overrides { push(@neweditors,$editor); } } - $newcrsval = join(',',@neweditors); - } else { + $newcrsval = join(',',@neweditors); + } else { my $posscrsval = $env{'form.'.$item}; if (grep(/^\Q$posscrsval\E$/,@{$options})) { $newcrsval = $posscrsval; @@ -3010,7 +3010,7 @@ sub hidden_form_elements { 'selfenrollmgrdc','selfenrollmgrcc','action','state','currsec_st', 'sections','newsec','mysqltables','nopasswdchg','ltiauth','ltiauthset', 'exttoolset','exttool','crsauthorset','crsauthor','crseditorsset','crseditors'], - ['^selfenrollmgr_','^selfenroll_'])."\n". + ['^selfenrollmgr_','^selfenroll_'])."\n". ''; return $hidden_elements; } @@ -3050,7 +3050,7 @@ sub get_permission { setcrsauthor => 'edit', processcrsauthor => 'edit', setcrseditors => 'edit', - processcrseditors => 'edit', + processcrseditors => 'edit', ); if ($passwdconf{'crsownerchg'}) { $permission{passwdchg} = 'edit';