[BACK]Return to lonnet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / lonnet / perl

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.1517 and 1.1519

version 1.1517, 2023/11/03 01:12:17 version 1.1519, 2023/11/18 14:33:07
Line 7053  sub rolesinit { Line 7053  sub rolesinit {
                     $gotcoauconfig{$area} = 1;                      $gotcoauconfig{$area} = 1;
                     foreach my $item (@ca_settings) {                      foreach my $item (@ca_settings) {
                         if (exists($info{$item})) {                          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};
                         }                          }
                     }                      }
                 }                  }
Line 8240  sub usertools_access { Line 8244  sub usertools_access {
     } elsif ($context eq 'authordefaults') {      } elsif ($context eq 'authordefaults') {
         %tools = (          %tools = (
                       webdav    => 1,                        webdav    => 1,
                       editors   => 1,  
                  );                   );
     } else {      } else {
         %tools = (          %tools = (
Line 8267  sub usertools_access { Line 8270  sub usertools_access {
             } elsif ($context eq 'authordefaults') {              } elsif ($context eq 'authordefaults') {
                 if ($tool eq 'webdav') {                  if ($tool eq 'webdav') {
                     return $env{'environment.availabletools.'.$tool};                      return $env{'environment.availabletools.'.$tool};
                 } elsif ($tool eq 'editors') {  
                     return $env{'environment.authoreditors'};  
                 }                  }
             } else {              } else {
                 return $env{'environment.availabletools.'.$tool};                  return $env{'environment.availabletools.'.$tool};
Line 8282  sub usertools_access { Line 8283  sub usertools_access {
     } elsif ($context eq 'authordefaults') {      } elsif ($context eq 'authordefaults') {
         if ($tool eq 'webdav') {          if ($tool eq 'webdav') {
             $envkey = 'tools.'.$tool;              $envkey = 'tools.'.$tool;
         } elsif ($tool eq 'editors') {  
             $envkey = 'author'.$tool;  
         }          }
     } else {      } else {
         $envkey = $context.'.'.$tool;          $envkey = $context.'.'.$tool;
Removed from v.1.1517  
changed lines
  Added in v.1.1519

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>