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

Diff for /loncom/interface/domainprefs.pm between versions 1.439 and 1.440

version 1.439, 2024/04/17 01:02:47 version 1.440, 2024/05/01 15:18:58
Line 7523  sub print_authordefaults { Line 7523  sub print_authordefaults {
         }          }
         $datatable .= '</td></tr>';          $datatable .= '</td></tr>';
         $itemcount ++;          $itemcount ++;
           my %defchecked = (
                                   'archive' => 'off',
                                );
           my @toggles = ('archive');
           (my $archive,$itemcount) = &radiobutton_prefs($settings,['archive'],
                                                         {'archive' => 'off'},
                                                         \%titles,$itemcount);
           $datatable .= $archive."\n";
           $itemcount ++;
     }      }
     $$rowtotal += $itemcount;      $$rowtotal += $itemcount;
     return $datatable;      return $datatable;
Line 7546  sub authordefaults_titles { Line 7555  sub authordefaults_titles {
                none => 'No override set',                 none => 'No override set',
                overon => 'Override -- webDAV on',                 overon => 'Override -- webDAV on',
                overoff => 'Override -- webDAV off',                 overoff => 'Override -- webDAV off',
                  archive => 'Authors can download tar.gz file of Authoring Space',
     );      );
 }  }
   
Line 13428  sub modify_authordefaults { Line 13438  sub modify_authordefaults {
                            'editors'      => ['edit','xml'],                             'editors'      => ['edit','xml'],
                            'authorquota'  => 500,                             'authorquota'  => 500,
                            'webdav'       => 0,                             'webdav'       => 0,
                              'archive'      => 'off',
                          );                           );
     my %titles = &authordefaults_titles();      my %titles = &authordefaults_titles();
     foreach my $item ('nocodemirror','daxecollapse','domcoordacc') {      foreach my $item ('nocodemirror','daxecollapse','domcoordacc','archive') {
         if ($env{'form.'.$item} =~ /^(0|1)$/) {          if ($env{'form.'.$item} =~ /^(0|1)$/) {
             $confhash{$item} = $env{'form.'.$item};              $confhash{$item} = $env{'form.'.$item};
         }          }
Line 13474  sub modify_authordefaults { Line 13485  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','daxecollapse','domcoordacc','copyright','sourceavail') {          foreach my $item ('nocodemirror','daxecollapse','domcoordacc','copyright','sourceavail','archive') {
             if ($domconfig{'authordefaults'}{$item} ne $confhash{$item}) {              if ($domconfig{'authordefaults'}{$item} ne $confhash{$item}) {
                 $changes{$item} = 1;                  $changes{$item} = 1;
              }               }
Line 13496  sub modify_authordefaults { Line 13507  sub modify_authordefaults {
         }          }
     } else {      } else {
         my @offon = ('off','on');          my @offon = ('off','on');
         foreach my $item ('nocodemirror','daxecollapse','domcoordacc') {          foreach my $item ('nocodemirror','daxecollapse','domcoordacc','archive') {
             if ($offon[$confhash{$item}] ne $staticdefaults{$item}) {              if ($offon[$confhash{$item}] ne $staticdefaults{$item}) {
                 $changes{$item} = 1;                   $changes{$item} = 1; 
             }              }
Line 13593  sub modify_authordefaults { Line 13604  sub modify_authordefaults {
                 $resulttext .= '</ul></li>';                  $resulttext .= '</ul></li>';
             }              }
             my $domcoordoverride;              my $domcoordoverride;
             foreach my $key ('editors','authorquota','webdav','webdav_LC_adv') {              foreach my $key ('editors','authorquota','webdav','webdav_LC_adv','archive') {
                 if (exists($changes{$key})) {                  if (exists($changes{$key})) {
                     my $shown;                      my $shown;
                     unless ($domcoordoverride) {                      unless ($domcoordoverride) {
Line 13625  sub modify_authordefaults { Line 13636  sub modify_authordefaults {
                         } else {                          } else {
                             $shown = $titles{'none'};                              $shown = $titles{'none'};
                         }                          }
                       } elsif ($key eq 'archive') {
                           $shown = ($confhash{$key} ? &mt('Yes') : &mt('No'));
                     }                      }
                     $resulttext .= '<li>'.&mt('[_1] set to: [_2]',$titles{$key},$shown).'</li>';                      $resulttext .= '<li>'.&mt('[_1] set to: [_2]',$titles{$key},$shown).'</li>';
                 }                  }
Removed from v.1.439  
changed lines
  Added in v.1.440

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