[LON-CAPA-cvs] cvs: loncom /interface domainprefs.pm

[raeburn]

raeburn		Wed Feb 16 04:33:43 2022 EDT

  Modified files:              
    /loncom/interface	domainprefs.pm 
  Log:
  - Bug 6907.
    - Devalidate domain defaults when changes made to ltisec config in domain.
  
  
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.406 loncom/interface/domainprefs.pm:1.407
--- loncom/interface/domainprefs.pm:1.406	Tue Feb 15 04:28:01 2022
+++ loncom/interface/domainprefs.pm	Wed Feb 16 04:33:43 2022
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.406 2022/02/15 04:28:01 raeburn Exp $
+# $Id: domainprefs.pm,v 1.407 2022/02/16 04:33:43 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -16301,6 +16301,11 @@
                                                                     $dom,$hostid);
                 }
             }
+            if (ref($lastactref) eq 'HASH') {
+                if (($secchanges{'encrypt'}) || ($secchanges{'private'})) {
+                    $lastactref->{'domdefaults'} = 1;
+                }
+            }
         }
         &Apache::lonnet::put_dom('encconfig',\%ltienchash,$dom,undef,1);
         if ((keys(%changes) == 0) && (keys(%secchanges) == 0)) {