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

[raeburn]

raeburn		Thu Jul 26 14:59:49 2018 EDT

  Modified files:              
    /loncom/interface	domainprefs.pm 
  Log:
  - For display of changes to SSL settings in domain configuration,
    eliminate keys from outer changes hash, if inner hash is empty. 
  
  
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.335 loncom/interface/domainprefs.pm:1.336
--- loncom/interface/domainprefs.pm:1.335	Wed Jul 25 20:23:31 2018
+++ loncom/interface/domainprefs.pm	Thu Jul 26 14:59:48 2018
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.335 2018/07/25 20:23:31 raeburn Exp $
+# $Id: domainprefs.pm,v 1.336 2018/07/26 14:59:48 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -16443,6 +16443,17 @@
             }
         }
     }
+    if (keys(%changes)) {
+        foreach my $prefix (keys(%changes)) {
+            if (ref($changes{$prefix}) eq 'HASH') {
+                if (scalar(keys(%{$changes{$prefix}})) == 0) {
+                    delete($changes{$prefix});
+                }
+            } else {
+                delete($changes{$prefix});
+            }
+        }
+    }
     my $nochgmsg = &mt('No changes made to LON-CAPA SSL settings');
     if (keys(%changes) > 0) {
         my $putresult = &Apache::lonnet::put_dom('configuration',\%defaultshash,