--- loncom/interface/domainprefs.pm 2018/07/25 20:23:31 1.335 +++ loncom/interface/domainprefs.pm 2018/07/26 14:59:48 1.336 @@ -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 @@ 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,