We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents de1a4bb + cc3a4cd commit 5201eb8Copy full SHA for 5201eb8
lib/PGresponsegroup.pm
@@ -54,7 +54,10 @@ sub append_response {
54
if (not_null($response_label)) {
55
if (not exists($self->{responses}{$response_label})) {
56
push @{ $self->{response_order} }, $response_label;
57
- $self->{responses}{$response_label} = $response_value;
+ $self->{responses}{$response_label} =
58
+ ref($response_value) eq 'HASH'
59
+ ? [ map { [ $_ => $response_value->{$_} ] } keys %$response_value ]
60
+ : $response_value;
61
} else {
62
$self->internal_debug_message(
63
"PGresponsegroup::append_response error: there is already an answer labeled $response_label",
0 commit comments