[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