loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1518, 2023/11/17 17:02:22	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};
}	}
}	}
}	}