loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.1172.2.146.2.27, 2025/01/16 22:22:40
+version 1.1172.2.146.2.28, 2025/02/07 22:54:30
  Line 7292  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