[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /interface domainprefs.pm
raeburn
raeburn at source.lon-capa.org
Fri Jul 26 12:55:51 EDT 2019
raeburn Fri Jul 26 16:55:51 2019 EDT
Modified files: (Branch: version_2_11_X)
/loncom/interface domainprefs.pm
Log:
- For 2.11
Backport 1.364.
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.160.6.91 loncom/interface/domainprefs.pm:1.160.6.92
--- loncom/interface/domainprefs.pm:1.160.6.91 Sun Jul 7 16:02:20 2019
+++ loncom/interface/domainprefs.pm Fri Jul 26 16:55:49 2019
@@ -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 @@
}
$resulttext .= '</ul></li>';
}
+ &Apache::lonnet::do_cache_new('cats',$dom,$cathash,3600);
+ if (ref($lastactref) eq 'HASH') {
+ $lastactref->{'cats'} = 1;
+ }
}
$resulttext .= '</ul>';
if ($changes{'unauth'} || $changes{'auth'}) {
@@ -13643,7 +13647,7 @@
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});
More information about the LON-CAPA-cvs
mailing list