--- loncom/interface/domainprefs.pm 2019/07/07 16:02:20 1.160.6.91 +++ loncom/interface/domainprefs.pm 2019/07/26 16:55:49 1.160.6.92 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set domain-wide configuration settings # -# $Id: domainprefs.pm,v 1.160.6.91 2019/07/07 16:02:20 raeburn Exp $ +# $Id: domainprefs.pm,v 1.160.6.92 2019/07/26 16:55:49 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -11221,6 +11221,10 @@ sub modify_coursecategories { } $resulttext .= ''; } + &Apache::lonnet::do_cache_new('cats',$dom,$cathash,3600); + if (ref($lastactref) eq 'HASH') { + $lastactref->{'cats'} = 1; + } } $resulttext .= ''; if ($changes{'unauth'} || $changes{'auth'}) { @@ -13643,7 +13647,7 @@ sub devalidate_remote_domconfs { my %servers = &Apache::lonnet::internet_dom_servers($dom); my %thismachine; map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids(); - my @posscached = ('domainconfig','domdefaults','usersessions','directorysrch'); + my @posscached = ('domainconfig','domdefaults','usersessions','directorysrch','cats'); if (keys(%servers)) { foreach my $server (keys(%servers)) { next if ($thismachine{$server});