gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 27680: Add support for param[] syntax 

While not that common nowadays, it is the syntax PHP uses, and
DataTables also generates such thing in 'traditional' mode. We should
support it as well.

This patch adds support for that. It does so by adding _order_by[] to
the reserved param names, and proper handling on the dbic_merge_sorting
helper.

To test:
1. Apply this patch
2. Run:
   $ kshell
  k$ prove t/db_dependent/Koha/REST/Plugin/Objects.t
=> SUCCESS: Tests pass!
3- Sign off :-D

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

Bug 27680: (QA follow-up) Minor perlcritic issue

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
(cherry picked from commit 79064a8863)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
This commit is contained in:
Tomas Cohen Arazi 2021-02-26 14:44:23 -03:00 committed by Fridolin Somers
parent 30f02bee8a
commit 95fda2115d
2 changed files with 48 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
Koha/REST/Plugin/Query.pm
View File

@ -90,19 +90,43 @@ Generates the DBIC order_by attributes based on I<$params>, and merges into I<$a
my $attributes = $args->{attributes};
my $result_set = $args->{result_set};
if ( defined $args->{params}->{_order_by} ) {
my $order_by = $args->{params}->{_order_by};
$order_by = [ split(/,/, $order_by) ] if ( !reftype($order_by) && index(',',$order_by) == -1);
if ( reftype($order_by) and reftype($order_by) eq 'ARRAY' ) {
my @order_by = map { _build_order_atom({ string => $_, result_set => $result_set }) }
@{ $order_by };
$attributes->{order_by} = \@order_by;
my @order_by_styles = (
'_order_by',
'_order_by[]'
);
my @order_by_params;
foreach my $order_by_style ( @order_by_styles ) {
if ( defined $args->{params}->{$order_by_style} and ref($args->{params}->{$order_by_style}) eq 'ARRAY' ) {
push( @order_by_params, @{$args->{params}->{$order_by_style} });
}
else {
$attributes->{order_by} = _build_order_atom({ string => $order_by, result_set => $result_set });
push @order_by_params, $args->{params}->{$order_by_style}
if defined $args->{params}->{$order_by_style};
}
}
my @THE_order_by;
foreach my $order_by_param ( @order_by_params ) {
my $order_by;
$order_by = [ split(/,/, $order_by_param) ]
if ( !reftype($order_by_param) && index(',',$order_by_param) == -1);
if ($order_by) {
if ( reftype($order_by) and reftype($order_by) eq 'ARRAY' ) {
my @order_by = map { _build_order_atom({ string => $_, result_set => $result_set }) } @{ $order_by };
push( @THE_order_by, @order_by);
}
else {
push @THE_order_by, _build_order_atom({ string => $order_by, result_set => $result_set });
}
}
}
$attributes->{order_by} = \@THE_order_by
if scalar @THE_order_by > 0;
return $attributes;
}
);
@ -253,7 +277,7 @@ Merges parameters from $q_params into $filtered_params.
sub _reserved_words {
my @reserved_words = qw( _match _order_by _page _per_page q query x-koha-query);
my @reserved_words = qw( _match _order_by _order_by[] _page _per_page q query x-koha-query);
return \@reserved_words;
}

25
t/db_dependent/Koha/REST/Plugin/Objects.t
View File

@ -208,7 +208,7 @@ subtest 'objects.search helper' => sub {
subtest 'objects.search helper, sorting on mapped column' => sub {
plan tests => 35;
plan tests => 42;
$schema->storage->txn_begin;
@ -221,7 +221,7 @@ subtest 'objects.search helper, sorting on mapped column' => sub {
$builder->build_object({ class => 'Koha::Cities', value => { city_name => 'C', city_country => 'Belarus' } });
my $t = Test::Mojo->new;
diag("CSV-param");
# CSV-param
$t->get_ok('/cities?_order_by=%2Bname,-country')
->status_is(200)
->json_has('/0')
@ -234,7 +234,7 @@ subtest 'objects.search helper, sorting on mapped column' => sub {
->json_is('/3/country' => 'Argentina')
->json_hasnt('/4');
diag("Multi-param: traditional");
# Multi-param: traditional
$t->get_ok('/cities?_order_by=%2Bname&_order_by=-country')
->status_is(200)
->json_has('/0')
@ -247,15 +247,20 @@ subtest 'objects.search helper, sorting on mapped column' => sub {
->json_is('/3/country' => 'Argentina')
->json_hasnt('/4');
diag("Pipe-param: Passes validation (treated as a 'single value array or one string), subsequently explodes");
$t->get_ok('/cities?_order_by=%2Bname|-country')
->status_is(500);
diag("Multi-param: PHP Style, Passes validation as above, subsequntly explodes");
# Multi-param: PHP Style, Passes validation as above, subsequntly explodes
$t->get_ok('/cities?_order_by[]=%2Bname&_order_by[]=-country')
->status_is(500);
->status_is(200)
->json_has('/0')
->json_has('/1')
->json_is('/0/name' => 'A')
->json_is('/1/name' => 'B')
->json_is('/2/name' => 'C')
->json_is('/2/country' => 'Belarus')
->json_is('/3/name' => 'C')
->json_is('/3/country' => 'Argentina')
->json_hasnt('/4');
diag("Single-param");
# Single-param
$t->get_ok('/cities?_order_by=-name')
->status_is(200)
->json_has('/0')