--- loncom/lonnet/perl/lonnet.pm	2025/01/16 22:22:40	1.1172.2.146.2.27
+++ loncom/lonnet/perl/lonnet.pm	2025/06/06 21:18:46	1.1172.2.146.2.29
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1172.2.146.2.27 2025/01/16 22:22:40 raeburn Exp $
+# $Id: lonnet.pm,v 1.1172.2.146.2.29 2025/06/06 21:18:46 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -7292,6 +7292,27 @@ sub set_adhoc_privileges {
         if (&allowed('adv') eq 'F') { $tadv=1; }
         &appenv({'request.role.adv'    => $tadv});
     }
+    if ($role eq 'ca') {
+        my @ca_settings = ('authoreditors','coauthorlist');
+        my %info = &userenvironment($dcdom,$pickedcourse,@ca_settings);
+        foreach my $item (@ca_settings) {
+            if (exists($info{$item})) {
+                my $name = $item;
+                if ($item eq 'authoreditors') {
+                    $name = 'editors';
+                    unless ($info{'authoreditors'}) {
+                        my %domdefs = &get_domain_defaults($dcdom);
+                        if ($domdefs{$name} ne '') {
+                            $info{'authoreditors'} = $domdefs{$name};
+                        } else {
+                            $info{'authoreditors'} = 'edit,xml';
+                        }
+                    }
+                }
+                &appenv({"environment.internal.$name./$dcdom/$pickedcourse" => $info{$item}});
+            }
+        }
+    }
 }
 
 # --------------------------------------------------------------- get interface
@@ -14280,7 +14301,7 @@ sub receipt {
 }
 
 sub whichuser {
-    my ($passedsymb)=@_;
+    my ($passedsymb,$ignorecachednull)=@_;
     my ($symb,$courseid,$domain,$name,$publicuser);
     if (defined($env{'form.grade_symb'})) {
 	my ($tmp_courseid)=&get_env_multiple('form.grade_courseid');
@@ -14300,7 +14321,7 @@ sub whichuser {
 	}
     }
     if (!$passedsymb) {
-	$symb=&symbread();
+	$symb=&symbread('','',$ignorecachednull);
     } else {
 	$symb=$passedsymb;
     }