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