loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.335, 2018/07/25 20:23:31
+version 1.336, 2018/07/26 14:59:48
  Line 16443  sub modify_ssl {
              }
          }
      }
+     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,