loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.363, 2019/07/18 18:28:52	version 1.364, 2019/07/23 01:30:35
Line 16895 sub modify_coursecategories {	Line 16895 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 19675 sub devalidate_remote_domconfs {	Line 19679 sub devalidate_remote_domconfs {
my %thismachine;	my %thismachine;
map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids();	map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids();
my @posscached = ('domainconfig','domdefaults','ltitools','usersessions',	my @posscached = ('domainconfig','domdefaults','ltitools','usersessions',
'directorysrch','passwdconf');	'directorysrch','passwdconf','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});