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.19, 2024/02/28 05:40:11	version 1.1172.2.146.2.20, 2024/03/29 17:58:49
Line 6753 sub rolesinit {	Line 6753 sub rolesinit {
my %allroles=();	my %allroles=();
my %allgroups=();	my %allgroups=();
my %gotcoauconfig=();	my %gotcoauconfig=();
	my %domdefaults=();

for my $area (grep { ! /^rolesdef_/ } keys(%rolesdump)) {	for my $area (grep { ! /^rolesdef_/ } keys(%rolesdump)) {
my $role = $rolesdump{$area};	my $role = $rolesdump{$area};
Line 6815 sub rolesinit {	Line 6816 sub rolesinit {
my $name = $item;	my $name = $item;
if ($item eq 'authoreditors') {	if ($item eq 'authoreditors') {
$name = 'editors';	$name = 'editors';
	unless ($info{'authoreditors'}) {
	my %domdefs;
	if (ref($domdefaults{$audom}) eq 'HASH') {
	%domdefs = %{$domdefaults{$audom}};
	} else {
	%domdefs = &get_domain_defaults($audom);
	$domdefaults{$audom} = \%domdefs;
	}
	if ($domdefs{$name} ne '') {
	$info{'authoreditors'} = $domdefs{$name};
	} else {
	$info{'authoreditors'} = 'edit,xml';
	}
	}
}	}
$coauthorenv{"environment.internal.$name.$area"} = $info{$item};	$coauthorenv{"environment.internal.$name.$area"} = $info{$item};
}	}