--- loncom/interface/domainprefs.pm	2023/09/06 13:57:05	1.429
+++ loncom/interface/domainprefs.pm	2023/11/07 11:50:56	1.431
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.429 2023/09/06 13:57:05 raeburn Exp $
+# $Id: domainprefs.pm,v 1.431 2023/11/07 11:50:56 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2425,7 +2425,7 @@ sub print_quotas {
         @options = ('norequest','approval','automatic');
         %titles = &authorrequest_titles();
     } else {
-        @usertools = ('aboutme','blog','portfolio','timezone');
+        @usertools = ('aboutme','blog','portfolio','portaccess','timezone');
         %titles = &tool_titles();
     }
     if (ref($types) eq 'ARRAY') {
@@ -9652,6 +9652,7 @@ sub tool_titles {
                      aboutme    => 'Personal web page',
                      blog       => 'Blog',
                      portfolio  => 'Portfolio',
+                     portaccess => 'Share portfolio files',
                      timezone   => 'Can set time zone',
                      official   => 'Official courses (with institutional codes)',
                      unofficial => 'Unofficial courses',
@@ -13391,9 +13392,9 @@ sub modify_authordefaults {
     my $resulttext;
     if ($putresult eq 'ok') {
         if (keys(%changes)) {
+            my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);
             if ((exists($changes{'authorquota'})) || (exists($changes{'webdav'})) ||
                 ($changes{'webdav_LC_adv'})) { 
-                my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
                 if ((exists($changes{'authorquota'})) && (ref($save_quotas{'authorquota'}) eq 'HASH')) {
                     $domdefaults{'authorquota'} = $save_quotas{'authorquota'};
                 }
@@ -13401,16 +13402,12 @@ sub modify_authordefaults {
                     (ref($save_quotas{'webdav'}) eq 'HASH')) {
                     $domdefaults{'webdav'} = $save_quotas{'webdav'};
                 }
-                my $cachetime = 24*60*60;
-                &Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);
-                if (ref($lastactref) eq 'HASH') {
-                    $lastactref->{'domdefaults'} = 1;
-                }
             }
             $resulttext = &mt('Changes made:').'<ul>';
             my $authoroverride;
             foreach my $key ('nocodemirror','domcoordacc','copyright','sourceavail') {
                 if (exists($changes{$key})) {
+                    $domdefaults{$key} = $confhash{$key};
                     my $shown;
                     unless ($authoroverride) {
                         $resulttext .= '<li>'.&mt('Defaults which can be overridden by Author').'<ul>';
@@ -13438,10 +13435,13 @@ sub modify_authordefaults {
                         $domcoordoverride = 1;
                     }
                     if ($key eq 'editors') {
-                        if (@{$confhash{'editors'}}) {
-                            $shown = join(', ', map { $titles{$_} } @{$confhash{'editors'}});
-                        } else {
-                            $shown = &mt('None');
+                        if (ref($confhash{'editors'}) eq 'ARRAY') {
+                            $domdefaults{'editors'} = join(',',@{$confhash{'editors'}});
+                            if (@{$confhash{'editors'}}) {
+                                $shown = join(', ', map { $titles{$_} } @{$confhash{'editors'}});
+                            } else {
+                                $shown = &mt('None');
+                            }
                         }
                     } elsif ($key eq 'authorquota') {
                         foreach my $type (@insttypes) {
@@ -13466,6 +13466,11 @@ sub modify_authordefaults {
             if ($domcoordoverride) {
                 $resulttext .= '</ul></li>';
             }
+            my $cachetime = 24*60*60;
+            &Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);
+            if (ref($lastactref) eq 'HASH') {
+                $lastactref->{'domdefaults'} = 1;
+            }
         } else {
             $resulttext = &mt('No changes made to Authoring Space defaults');
         }
@@ -14046,7 +14051,7 @@ sub modify_quotas {
         @usertools = ('author');
         %titles = &authorrequest_titles();
     } else {
-        @usertools = ('aboutme','blog','portfolio','timezone');
+        @usertools = ('aboutme','blog','portfolio','portaccess','timezone');
         %titles = &tool_titles();
     }
     my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);