version 1.61, 2021/06/15 20:52:27
|
version 1.62, 2021/06/20 20:35:05
|
Line 731 sub check_instclasses {
|
Line 731 sub check_instclasses {
|
=cut |
=cut |
|
|
sub instsec_reformat { |
sub instsec_reformat { |
my ($dom,$action,$instsecref) = @; |
my ($dom,$action,$instsecref) = @_; |
if ((ref($instsecref) eq 'HASH') && |
if ((ref($instsecref) eq 'HASH') && |
(($action eq 'clutter') || ($action eq 'declutter'))) { |
(($action eq 'clutter') || ($action eq 'declutter'))) { |
foreach my $key (keys(%{$instsecref})) { |
foreach my $key (keys(%{$instsecref})) { |