Fix #1207
This commit is contained in:
parent
2c1be99419
commit
c1bb34ab11
|
@ -716,14 +716,13 @@ sub getKey {
|
|||
}
|
||||
elsif ( $key =~ qr/^$doubleHashKeys$/o ) {
|
||||
my @res;
|
||||
if ( defined $value ) {
|
||||
foreach my $host ( sort keys %$value ) {
|
||||
my @tmp;
|
||||
foreach my $k ( sort keys %{ $value->{$host} } ) {
|
||||
push @tmp, { k => $k, v => $value->{$host}->{$k} };
|
||||
}
|
||||
push @res, { k => $host, h => \@tmp };
|
||||
$value ||= {};
|
||||
foreach my $host ( sort keys %$value ) {
|
||||
my @tmp;
|
||||
foreach my $k ( sort keys %{ $value->{$host} } ) {
|
||||
push @tmp, { k => $k, v => $value->{$host}->{$k} };
|
||||
}
|
||||
push @res, { k => $host, h => \@tmp };
|
||||
}
|
||||
return $self->sendJSONresponse( $req, { value => \@res } );
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue
Block a user