--- loncom/lonnet/perl/lonnet.pm	2023/11/03 01:12:17	1.1517
+++ loncom/lonnet/perl/lonnet.pm	2023/11/18 14:33:07	1.1519
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1517 2023/11/03 01:12:17 raeburn Exp $
+# $Id: lonnet.pm,v 1.1519 2023/11/18 14:33:07 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -7053,7 +7053,11 @@ sub rolesinit {
                     $gotcoauconfig{$area} = 1;
                     foreach my $item (@ca_settings) {
                         if (exists($info{$item})) {
-                            $coauthorenv{"environment.internal.$item.$area"} = $info{$item};
+                            my $name = $item;
+                            if ($item eq 'authoreditors') {
+                                $name = 'editors';
+                            }
+                            $coauthorenv{"environment.internal.$name.$area"} = $info{$item};
                         }
                     }
                 }
@@ -8240,7 +8244,6 @@ sub usertools_access {
     } elsif ($context eq 'authordefaults') {
         %tools = (
                       webdav    => 1,
-                      editors   => 1,
                  );
     } else {
         %tools = (
@@ -8267,8 +8270,6 @@ sub usertools_access {
             } elsif ($context eq 'authordefaults') {
                 if ($tool eq 'webdav') {
                     return $env{'environment.availabletools.'.$tool};
-                } elsif ($tool eq 'editors') {
-                    return $env{'environment.authoreditors'};
                 }
             } else {
                 return $env{'environment.availabletools.'.$tool};
@@ -8282,8 +8283,6 @@ sub usertools_access {
     } elsif ($context eq 'authordefaults') {
         if ($tool eq 'webdav') {
             $envkey = 'tools.'.$tool;
-        } elsif ($tool eq 'editors') {
-            $envkey = 'author'.$tool;
         }
     } else {
         $envkey = $context.'.'.$tool;