TT#18754 Fix jsonifying of query params in api-root

Change-Id: Ic805d8b5d3cb108c35a62c2894f38096f1a2e7e8
changes/43/14343/2
Andreas Granig 9 years ago
parent abe78df430
commit be3219237b

@ -214,10 +214,13 @@ sub GET : Allow {
foreach my $rel(keys %{ $c->stash->{collections} }) {
my $r = $c->stash->{collections}->{$rel};
foreach my $k(qw/
actions item_actions fields query_params sorting_cols
actions item_actions fields sorting_cols
/) {
$body->{$rel}->{$k} = $r->{$k};
}
$body->{$rel}->{query_params} = [
map { $_->{param} } @{ $r->{query_params} }
];
}
$c->response->body(JSON::to_json($body, { pretty => 1 }));
$c->response->headers(HTTP::Headers->new(

Loading…
Cancel
Save