loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1517, 2023/11/03 01:12:17	version 1.1518, 2023/11/17 17:02:22
Line 8240 sub usertools_access {	Line 8240 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 8266 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 8279 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;