loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.160.6.91, 2019/07/07 16:02:20	version 1.160.6.92, 2019/07/26 16:55:49
Line 11221 sub modify_coursecategories {	Line 11221 sub modify_coursecategories {
}	}
$resulttext .= '</ul></li>';	$resulttext .= '</ul></li>';
}	}
	&Apache::lonnet::do_cache_new('cats',$dom,$cathash,3600);
	if (ref($lastactref) eq 'HASH') {
	$lastactref->{'cats'} = 1;
	}
}	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
if ($changes{'unauth'} \|\| $changes{'auth'}) {	if ($changes{'unauth'} \|\| $changes{'auth'}) {
Line 13643 sub devalidate_remote_domconfs {	Line 13647 sub devalidate_remote_domconfs {
my %servers = &Apache::lonnet::internet_dom_servers($dom);	my %servers = &Apache::lonnet::internet_dom_servers($dom);
my %thismachine;	my %thismachine;
map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids();	map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids();
my @posscached = ('domainconfig','domdefaults','usersessions','directorysrch');	my @posscached = ('domainconfig','domdefaults','usersessions','directorysrch','cats');
if (keys(%servers)) {	if (keys(%servers)) {
foreach my $server (keys(%servers)) {	foreach my $server (keys(%servers)) {
next if ($thismachine{$server});	next if ($thismachine{$server});