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

Diff for /loncom/interface/domainprefs.pm between versions 1.435 and 1.437

version 1.435, 2024/02/27 15:46:42 version 1.437, 2024/03/03 00:08:37
Line 670  sub handler { Line 670  sub handler {
                              {col1 => 'Rules for shared secrets',                               {col1 => 'Rules for shared secrets',
                               col2 => 'Settings'},                                col2 => 'Settings'},
                              {col1 => 'Link Protectors in Courses',                               {col1 => 'Link Protectors in Courses',
                               col2 => 'Values'},                                 col2 => 'Values'},
                              {col1 => 'Link Protectors',                               {col1 => 'Link Protectors',
                               col2 => 'Settings'},                                col2 => 'Settings'},
                              {col1 => 'Consumers',                               {col1 => 'Consumers',
Line 686  sub handler { Line 686  sub handler {
                         print  => \&print_ipaccess,                          print  => \&print_ipaccess,
                         modify => \&modify_ipaccess,                          modify => \&modify_ipaccess,
                        },                         },
         'authordefaults' =>           'authordefaults' =>
                             {text => 'Authoring Space defaults',                              {text => 'Authoring Space defaults',
                              help => 'Domain_Configuration_Author_Defaults',                               help => 'Domain_Configuration_Author_Defaults',
                              header => [{col1 => 'Defaults which can be overridden by Author',                               header => [{col1 => 'Defaults which can be overridden by Author',
Line 7324  sub print_authordefaults { Line 7324  sub print_authordefaults {
     if ($position eq 'top') {      if ($position eq 'top') {
         my %defaultchecked = (          my %defaultchecked = (
                             'nocodemirror' => 'off',                              'nocodemirror' => 'off',
                               'daxecollapse' => 'off',
                             'domcoordacc'  => 'on',                              'domcoordacc'  => 'on',
                           );                            );
         my @toggles = ('nocodemirror','domcoordacc');          my @toggles = ('nocodemirror','daxecollapse','domcoordacc');
         ($datatable,$itemcount) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,          ($datatable,$itemcount) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,
                                                      \%titles,$itemcount);                                                       \%titles,$itemcount);
         my %staticdefaults = (          my %staticdefaults = (
Line 7445  sub print_authordefaults { Line 7446  sub print_authordefaults {
         my $checkedno = ' checked="checked"';          my $checkedno = ' checked="checked"';
         my ($checkedon,$checkedoff);          my ($checkedon,$checkedoff);
         if (ref($quotas{'webdav'}) eq 'HASH') {          if (ref($quotas{'webdav'}) eq 'HASH') {
             if ($quotas{'webdav'}{'_LC_adv'} =~ /^0|1$/) {               if ($quotas{'webdav'}{'_LC_adv'} =~ /^0|1$/) {
                 if ($quotas{'webdav'}{'_LC_adv'}) {                  if ($quotas{'webdav'}{'_LC_adv'}) {
                     $checkedon = $checkedno;                      $checkedon = $checkedno;
                 } else {                  } else {
Line 7474  sub print_authordefaults { Line 7475  sub print_authordefaults {
                 $text = $titles{'overon'};                  $text = $titles{'overon'};
                 $val = 1;                  $val = 1;
                 $checked = $checkedon;                  $checked = $checkedon;
             }               }
             $datatable .= '<span class="LC_nobreak"><label>'.              $datatable .= '<span class="LC_nobreak"><label>'.
                           '<input type="radio" name="webdav_LC_adv"'.                            '<input type="radio" name="webdav_LC_adv"'.
                           ' value="'.$val.'"'.$checked.' />'.                            ' value="'.$val.'"'.$checked.' />'.
Line 7495  sub authordefaults_titles { Line 7496  sub authordefaults_titles {
                webdav => 'WebDAV',                 webdav => 'WebDAV',
                authorquota => 'Authoring Space quotas (MB)',                 authorquota => 'Authoring Space quotas (MB)',
                nocodemirror => 'Deactivate CodeMirror for EditXML editor',                 nocodemirror => 'Deactivate CodeMirror for EditXML editor',
                  daxecollapse => 'Daxe editor: LON-CAPA standard menus start collapsed',
                domcoordacc => 'Dom. Coords. can enter Authoring Spaces in domain',                 domcoordacc => 'Dom. Coords. can enter Authoring Spaces in domain',
                edit  => 'Standard editor (Edit)',                 edit  => 'Standard editor (Edit)',
                xml   => 'Text editor (EditXML)',                 xml   => 'Text editor (EditXML)',
Line 7503  sub authordefaults_titles { Line 7505  sub authordefaults_titles {
                webdav_LC_adv_over => '(overrides access based on affiliation, if set)',                 webdav_LC_adv_over => '(overrides access based on affiliation, if set)',
                none => 'No override set',                 none => 'No override set',
                overon => 'Override -- webDAV on',                 overon => 'Override -- webDAV on',
                overoff => 'Override -- webDAV off',                  overoff => 'Override -- webDAV off',
     );      );
 }  }
   
Line 13381  sub modify_authordefaults { Line 13383  sub modify_authordefaults {
                            'copyright'    => 'default',                             'copyright'    => 'default',
                            'sourceavail'  => 'closed',                             'sourceavail'  => 'closed',
                            'nocodemirror' => 'off',                             'nocodemirror' => 'off',
                              'daxecollapse' => 'off',
                            'domcoordacc'  => 'on',                             'domcoordacc'  => 'on',
                            'editors'      => ['edit','xml'].                             'editors'      => ['edit','xml'].
                            'authorquota'  => 500,                             'authorquota'  => 500,
                            'webdav'       => 0,                             'webdav'       => 0,
                          );                           );
     my %titles = &authordefaults_titles();      my %titles = &authordefaults_titles();
     foreach my $item ('nocodemirror','domcoordacc') {      foreach my $item ('nocodemirror','daxecollapse','domcoordacc') {
         if ($env{'form.'.$item} =~ /^(0|1)$/) {          if ($env{'form.'.$item} =~ /^(0|1)$/) {
             $confhash{$item} = $env{'form.'.$item};              $confhash{$item} = $env{'form.'.$item};
         }          }
Line 13407  sub modify_authordefaults { Line 13410  sub modify_authordefaults {
         }          }
     }      }
     $confhash{'editors'} = \@editors;      $confhash{'editors'} = \@editors;
      
     my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);      my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
     my @insttypes;      my @insttypes;
     if (ref($types) eq 'ARRAY') {      if (ref($types) eq 'ARRAY') {
Line 13431  sub modify_authordefaults { Line 13434  sub modify_authordefaults {
         $save_quotas{'webdav'}{'_LC_adv'} = $env{'form.webdav_LC_adv'};          $save_quotas{'webdav'}{'_LC_adv'} = $env{'form.webdav_LC_adv'};
     }      }
     if (ref($domconfig{'authordefaults'}) eq 'HASH') {      if (ref($domconfig{'authordefaults'}) eq 'HASH') {
         foreach my $item ('nocodemirror','domcoordacc','copyright','sourceavail') {          foreach my $item ('nocodemirror','daxecollapse','domcoordacc','copyright','sourceavail') {
             if ($domconfig{'authordefaults'}{$item} ne $confhash{$item}) {              if ($domconfig{'authordefaults'}{$item} ne $confhash{$item}) {
                 $changes{$item} = 1;                  $changes{$item} = 1;
              }               }
         }          }
         if (ref($domconfig{'authordefaults'}{'editors'}) eq 'ARRAY') {          if (ref($domconfig{'authordefaults'}{'editors'}) eq 'ARRAY') {
             my @diffs =               my @diffs =
                 &Apache::loncommon::compare_arrays($confhash{'editors'},                  &Apache::loncommon::compare_arrays($confhash{'editors'},
                                                    $domconfig{'authordefaults'}{'editors'});                                                     $domconfig{'authordefaults'}{'editors'});
             unless (@diffs == 0) {              unless (@diffs == 0) {
Line 13453  sub modify_authordefaults { Line 13456  sub modify_authordefaults {
         }          }
     } else {      } else {
         my @offon = ('off','on');          my @offon = ('off','on');
         foreach my $item ('nocodemirror','domcoordacc') {          foreach my $item ('nocodemirror','daxecollapse','domcoordacc') {
             if ($offon[$confhash{$item}] ne $staticdefaults{$item}) {               if ($offon[$confhash{$item}] ne $staticdefaults{$item}) {
                 $changes{$item} = 1;                   $changes{$item} = 1; 
             }              }
         }          }
Line 13491  sub modify_authordefaults { Line 13494  sub modify_authordefaults {
     }      }
     if (ref($curr_quotas{'webdav'}) eq 'HASH') {      if (ref($curr_quotas{'webdav'}) eq 'HASH') {
         if (exists($save_quotas{'webdav'}{'_LC_adv'})) {          if (exists($save_quotas{'webdav'}{'_LC_adv'})) {
             if ($save_quotas{'webdav'}{'_LC_adv'} ne $curr_quotas{'webdav'}{'_LC_adv'}) {               if ($save_quotas{'webdav'}{'_LC_adv'} ne $curr_quotas{'webdav'}{'_LC_adv'}) {
                 $changes{'webdav_LC_adv'} = 1;                  $changes{'webdav_LC_adv'} = 1;
             }              }
         } elsif (exists($curr_quotas{'webdav'}{'_LC_adv'})) {          } elsif (exists($curr_quotas{'webdav'}{'_LC_adv'})) {
Line 13511  sub modify_authordefaults { Line 13514  sub modify_authordefaults {
         if (keys(%changes)) {          if (keys(%changes)) {
             my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);              my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);
             if ((exists($changes{'authorquota'})) || (exists($changes{'webdav'})) ||              if ((exists($changes{'authorquota'})) || (exists($changes{'webdav'})) ||
                 ($changes{'webdav_LC_adv'})) {                   ($changes{'webdav_LC_adv'})) {
                 if ((exists($changes{'authorquota'})) && (ref($save_quotas{'authorquota'}) eq 'HASH')) {                  if ((exists($changes{'authorquota'})) && (ref($save_quotas{'authorquota'}) eq 'HASH')) {
                     $domdefaults{'authorquota'} = $save_quotas{'authorquota'};                      $domdefaults{'authorquota'} = $save_quotas{'authorquota'};
                 }                  }
Line 13522  sub modify_authordefaults { Line 13525  sub modify_authordefaults {
             }              }
             $resulttext = &mt('Changes made:').'<ul>';              $resulttext = &mt('Changes made:').'<ul>';
             my $authoroverride;              my $authoroverride;
             foreach my $key ('nocodemirror','domcoordacc','copyright','sourceavail') {              foreach my $key ('nocodemirror','daxecollapse','domcoordacc','copyright','sourceavail') {
                 if (exists($changes{$key})) {                  if (exists($changes{$key})) {
                     $domdefaults{$key} = $confhash{$key};                      $domdefaults{$key} = $confhash{$key};
                     my $shown;                      my $shown;
Line 13530  sub modify_authordefaults { Line 13533  sub modify_authordefaults {
                         $resulttext .= '<li>'.&mt('Defaults which can be overridden by Author').'<ul>';                          $resulttext .= '<li>'.&mt('Defaults which can be overridden by Author').'<ul>';
                         $authoroverride = 1;                          $authoroverride = 1;
                     }                      }
                     if (($key eq 'nocodemirror') || ($key eq 'domcoordacc')) {                       if (($key eq 'nocodemirror') || ($key eq 'daxecollapse') || ($key eq 'domcoordacc')) {
                         $shown = ($confhash{$key} ? &mt('Yes') : &mt('No'));                          $shown = ($confhash{$key} ? &mt('Yes') : &mt('No'));
                     } elsif ($key eq 'copyright') {                      } elsif ($key eq 'copyright') {
                         $shown = &Apache::loncommon::copyrightdescription($confhash{$key});                          $shown = &Apache::loncommon::copyrightdescription($confhash{$key});
                     } elsif ($key eq 'sourceavail') {                      } elsif ($key eq 'sourceavail') {
                         $shown = &Apache::loncommon::source_copyrightdescription($confhash{$key});                          $shown = &Apache::loncommon::source_copyrightdescription($confhash{$key});
                     }                      }
                     $resulttext .= '<li>'.&mt('[_1] set to: [_2]',$titles{$key},$shown).'</li>';                       $resulttext .= '<li>'.&mt('[_1] set to: [_2]',$titles{$key},$shown).'</li>';
                 }                  }
             }              }
             if ($authoroverride) {              if ($authoroverride) {
Line 13578  sub modify_authordefaults { Line 13581  sub modify_authordefaults {
                         }                          }
                     }                      }
                     $resulttext .= '<li>'.&mt('[_1] set to: [_2]',$titles{$key},$shown).'</li>';                      $resulttext .= '<li>'.&mt('[_1] set to: [_2]',$titles{$key},$shown).'</li>';
                 }                                                 }
             }              }
             if ($domcoordoverride) {              if ($domcoordoverride) {
                 $resulttext .= '</ul></li>';                  $resulttext .= '</ul></li>';
Removed from v.1.435  
changed lines
  Added in v.1.437

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