[BACK]Return to lonmodifycourse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmodifycourse.pm between versions 1.105 and 1.107

version 1.105, 2024/04/14 17:12:27 version 1.107, 2024/12/20 00:24:38
Line 1330  sub print_default_overrides { Line 1330  sub print_default_overrides {
         &default_overrides_common($item,$cdom,$cnum,$type,\%titles);          &default_overrides_common($item,$cdom,$cnum,$type,\%titles);
     $checkeddom = ' checked="checked"';      $checkeddom = ' checked="checked"';
     $divsty = 'display:none';      $divsty = 'display:none';
        
     if ($item eq 'ltiauth') {      if ($item eq 'ltiauth') {
         $helpfile = 'Modify_Course_LTI_Authen';          $helpfile = 'Modify_Course_LTI_Authen';
         $crsdefault = 0;          $crsdefault = 0;
Line 1353  sub print_default_overrides { Line 1353  sub print_default_overrides {
         $divsty = 'display:inline-block';          $divsty = 'display:inline-block';
         if ($item eq 'crseditors') {          if ($item eq 'crseditors') {
             @currcrseditors = split(/,/,$currcrsval);              @currcrseditors = split(/,/,$currcrsval);
         }                  }
         foreach my $option (@{$options}) {          foreach my $option (@{$options}) {
             if ($item eq 'crseditors') {              if ($item eq 'crseditors') {
                 if (grep(/^\Q$option\E$/,@currcrseditors)) {                  if (grep(/^\Q$option\E$/,@currcrseditors)) {
Line 1369  sub print_default_overrides { Line 1369  sub print_default_overrides {
         if ($item eq 'crseditors') {          if ($item eq 'crseditors') {
             my %domdefs = &Apache::lonnet::get_domain_defaults($cdom);              my %domdefs = &Apache::lonnet::get_domain_defaults($cdom);
             @currcrseditors = split(/,/,$domdefs{'crseditors'});              @currcrseditors = split(/,/,$domdefs{'crseditors'});
         }           }
         foreach my $option (@{$options}) {          foreach my $option (@{$options}) {
             if ($item eq 'crseditors') {              if ($item eq 'crseditors') {
                 if (grep(/^\Q$option\E$/,@currcrseditors)) {                  if (grep(/^\Q$option\E$/,@currcrseditors)) {
Line 1442  sub default_overrides_titles { Line 1442  sub default_overrides_titles {
                 'dom' => 'Only external tools defined in domain may be used',                  'dom' => 'Only external tools defined in domain may be used',
                 'both' => 'External tools defined/configured in either domain or course 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",                  'stan' => "'In-course' authoring of standard LON-CAPA problems",
                 'perc' => 'Permitted course resource editors',                   'perc' => 'Permitted course resource editors',
                 'edit' => 'Standard editor (Edit)',                  'edit' => 'Standard editor (Edit)',
                 'xml'  => 'Text editor (EditXML)',                  'xml'  => 'Text editor (EditXML)',
                 'daxe' => 'Daxe editor (Daxe)',                  'daxe' => 'Daxe editor (Daxe)',
Line 1472  sub default_overrides_common { Line 1472  sub default_overrides_common {
         $title = $titles->{'requ'};          $title = $titles->{'requ'};
         $domdef = 0;          $domdef = 0;
         @options = ('0','1');          @options = ('0','1');
         %optiontext = (           %optiontext = (
                         0 => $titles->{'logi'},                          0 => $titles->{'logi'},
                         1 => $titles->{'link'},                          1 => $titles->{'link'},
                       );                        );
Line 1490  sub default_overrides_common { Line 1490  sub default_overrides_common {
             $title = $titles->{'stan'};              $title = $titles->{'stan'};
             $domdef = 1;              $domdef = 1;
             @options = ('1','0');              @options = ('1','0');
             %optiontext = (               %optiontext = (
                             1 => $titles->{'on'},                              1 => $titles->{'on'},
                             0 => $titles->{'off'},                              0 => $titles->{'off'},
                           );                            );
Line 2596  sub modify_default_overrides { Line 2596  sub modify_default_overrides {
                                          chg   => 'Permitted course resource editors changed',                                           chg   => 'Permitted course resource editors changed',
                                          nochg => 'Permitted course resource editors unchanged',                                           nochg => 'Permitted course resource editors unchanged',
                                        );                                         );
     }       }
     &print_header($r,$type);      &print_header($r,$type);
     $r->print('<h3>'.$title.'</h3>'."\n".      $r->print('<h3>'.$title.'</h3>'."\n".
               '<h4><span class="LC_nobreak">'.&mt($type).': '.$cdesc.'</span></h4>'."\n".                '<h4><span class="LC_nobreak">'.&mt($type).': '.$cdesc.'</span></h4>'."\n".
Line 2616  sub modify_default_overrides { Line 2616  sub modify_default_overrides {
                     push(@neweditors,$editor);                      push(@neweditors,$editor);
                 }                  }
             }              }
             $newcrsval = join(',',@neweditors);               $newcrsval = join(',',@neweditors);
         } else {           } else {
             my $posscrsval = $env{'form.'.$item};              my $posscrsval = $env{'form.'.$item};
             if (grep(/^\Q$posscrsval\E$/,@{$options})) {              if (grep(/^\Q$posscrsval\E$/,@{$options})) {
                 $newcrsval = $posscrsval;                  $newcrsval = $posscrsval;
Line 3010  sub hidden_form_elements { Line 3010  sub hidden_form_elements {
           'selfenrollmgrdc','selfenrollmgrcc','action','state','currsec_st',            'selfenrollmgrdc','selfenrollmgrcc','action','state','currsec_st',
           'sections','newsec','mysqltables','nopasswdchg','ltiauth','ltiauthset',            'sections','newsec','mysqltables','nopasswdchg','ltiauth','ltiauthset',
           'exttoolset','exttool','crsauthorset','crsauthor','crseditorsset','crseditors'],            'exttoolset','exttool','crsauthorset','crsauthor','crseditorsset','crseditors'],
            ['^selfenrollmgr_','^selfenroll_'])."\n".            ['^selfenrollmgr_','^selfenroll_'])."\n".
           '<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" />';            '<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" />';
     return $hidden_elements;      return $hidden_elements;
 }  }
Line 3050  sub get_permission { Line 3050  sub get_permission {
             setcrsauthor      => 'edit',              setcrsauthor      => 'edit',
             processcrsauthor  => 'edit',              processcrsauthor  => 'edit',
             setcrseditors     => 'edit',              setcrseditors     => 'edit',
             processcrseditors => 'edit',               processcrseditors => 'edit',
         );          );
         if ($passwdconf{'crsownerchg'}) {          if ($passwdconf{'crsownerchg'}) {
             $permission{passwdchg} = 'edit';              $permission{passwdchg} = 'edit';
Line 3091  sub devalidate_remote_instcats { Line 3091  sub devalidate_remote_instcats {
         }          }
         $modified_dom = '';          $modified_dom = '';
     }      }
     return;      return OK;
 }  }
   
 sub handler {  sub handler {
Removed from v.1.105  
changed lines
  Added in v.1.107

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>