sipwise
/
ngcp-panel
mirror of https://github.com/sipwise/ngcp-panel.git
1
0
Fork 0
Code Issues Releases Wiki Activity

TT#35607 Consider no_count query parameter and infinite next link

Browse Source 
Change-Id: I0e0b5407994b1ef24ef6060ce1679f2e5556f05f
(cherry picked from commit ce3fde0c50)
changes/41/21141/4
Irina Peshinskaya 7 years ago
parent 2e8d885eed
commit 852d09c2d4
3 changed files with 62 additions and 11 deletions
Show Stats Download Patch File Download Diff File

38
lib/NGCP/Panel/Role/API.pm
Unescape View File

@ -655,16 +655,45 @@ sub paginate_order_collection_array {
return ($total_count, $items);
}
sub dont_count_collection_total {
my ($self, $c) = @_;
my $no_count = defined $c->req->query_params->{no_count} ? $c->req->query_params->{no_count} : 0;
if ( !$no_count || ($no_count ne 'true' && $no_count ne '1' ) ) {
$no_count = 0;
} else {
$no_count = 1;
}
return $no_count;
}
sub define_collection_infinite_pager {
my ($self, $c, $items_count, $item_rs, $rows_on_page, $no_count) = @_;
$no_count //= $self->dont_count_collection_total($c);
if (! defined $c->stash->{collection_infinite_pager_stop}) {
#$item_rs->pager->entries_on_this_page leads to the count query
my $entries_on_this_page = $items_count // $item_rs->count;
$c->stash->{collection_infinite_pager_stop} = (( $entries_on_this_page < $rows_on_page ) and $no_count );
}
}
sub paginate_order_collection_rs {
my ($self, $c, $item_rs, $params) = @_;
my($page,$rows,$order_by,$direction) = @$params{qw/page rows order_by direction/};
my $result_class = $item_rs->result_class();
my $total_count = int($item_rs->count);
my $total_count;
my $no_count = $self->dont_count_collection_total($c);
if ( !$no_count ) {
$total_count = int($item_rs->count);
}
$item_rs = $item_rs->search(undef, {
page => $page,
rows => $rows,
});
$self->define_collection_infinite_pager($c, undef, $item_rs, $rows, $no_count);
if ($order_by && ((my $explicit = ($self->can('order_by_cols') && exists $self->order_by_cols()->{$order_by})) or $item_rs->result_source->has_column($order_by))) {
my $col = ($explicit ? $self->order_by_cols()->{$order_by} : $item_rs->current_source_alias . '.' . $order_by);
if (lc($direction) eq 'desc') {
@ -699,10 +728,13 @@ sub collection_nav_links {
my @links = (Data::HAL::Link->new(relation => 'self', href => sprintf('/%s?page=%s&rows=%s%s', $path, $page, $rows, $rest_params)));
if(($total_count / $rows) > $page ) {
if ( (! defined $total_count
&& ! $c->stash->{collection_infinite_pager_stop} )
|| ( defined $total_count && ($total_count / $rows) > $page ) ) {
push @links, Data::HAL::Link->new(relation => 'next', href => sprintf('/%s?page=%d&rows=%d%s', $path, $page + 1, $rows, $rest_params));
}
if($page > 1) {
if ($page > 1) {
push @links, Data::HAL::Link->new(relation => 'prev', href => sprintf('/%s?page=%d&rows=%d%s', $path, $page - 1, $rows, $rest_params));
}
return @links;

1
t/api-rest/api-subscriberregistrations.t
Unescape View File

@ -12,6 +12,7 @@ use NGCP::Panel::Utils::DateTime;
#init test_machine
my $test_machine = Test::Collection->new(
name => 'subscriberregistrations',
ALLOW_EMPTY_COLLECTION => 1,
);
my $fake_data = Test::FakeData->new;

34
t/lib/Test/Collection.pm
Unescape View File

@ -208,6 +208,11 @@ has 'ROWS' =>(
isa => 'Str',
default => '1',
);
has 'NO_COUNT' =>(
is => 'rw',
isa => 'Str',
default => '',
);
has 'URI_CUSTOM_STORE' =>(
is => 'rw',
isa => 'Str',
@ -461,7 +466,7 @@ sub get_uri_collection{
sub get_uri_collection_paged{
my($self,$name) = @_;
my $uri = $self->get_uri_collection($name);
return $uri.($uri !~/\?/ ? '?':'&').'page='.($self->PAGE // '1').'&rows='.($self->ROWS // '1');
return $uri.($uri !~/\?/ ? '?':'&').'page='.($self->PAGE // '1').'&rows='.($self->ROWS // '1').($self->NO_COUNT ? '&no_count=1' : '');
}
sub get_uri_get{
@ -917,7 +922,9 @@ sub check_list_collection{
$nexturi = $sub_sort_params->($nexturi);
is($selfuri, $nexturi, $test_info_prefix."check _links.self.href of collection");
my $colluri = URI->new($selfuri);
if(($list_collection->{total_count} && $list_collection->{total_count} > 0 ) || !$self->ALLOW_EMPTY_COLLECTION){
if(
((!$self->NO_COUNT) && $list_collection->{total_count} && is_int($list_collection->{total_count}) && $list_collection->{total_count} > 0 )
|| !$self->ALLOW_EMPTY_COLLECTION){
ok($list_collection->{total_count} > 0, $test_info_prefix."check 'total_count' of collection");
}
@ -931,10 +938,12 @@ sub check_list_collection{
} else {
ok(exists $list_collection->{_links}->{prev}->{href}, $test_info_prefix."check existence of 'prev'");
}
if(($rows != 0) && ($list_collection->{total_count} / $rows) <= $page) {
ok(!exists $list_collection->{_links}->{next}->{href}, $test_info_prefix."check absence of 'next' on last page");
} else {
ok(exists $list_collection->{_links}->{next}->{href}, $test_info_prefix."check existence of 'next'");
if (!$self->NO_COUNT) {
if(($rows != 0) && ($list_collection->{total_count} / $rows) <= $page) {
ok(!exists $list_collection->{_links}->{next}->{href}, $test_info_prefix."check absence of 'next' on last page");
} else {
ok(exists $list_collection->{_links}->{next}->{href}, $test_info_prefix."check existence of 'next'");
}
}
if($list_collection->{_links}->{next}->{href}) {
@ -944,7 +953,7 @@ sub check_list_collection{
}
my $hal_name = $self->get_hal_name;
if(($list_collection->{total_count} && $list_collection->{total_count} > 0 ) || !$self->ALLOW_EMPTY_COLLECTION){
if(($list_collection->{total_count} && is_int($list_collection->{total_count}) && $list_collection->{total_count} > 0 ) || !$self->ALLOW_EMPTY_COLLECTION){
if (! ok(((ref $list_collection->{_links}->{$hal_name} eq "ARRAY" ) ||
(ref $list_collection->{_links}->{$hal_name} eq "HASH" ) ), $test_info_prefix."check if 'ngcp:".$self->name."' is array/hash-ref")) {
diag($list_collection->{_links}->{$hal_name});
@ -1167,6 +1176,9 @@ sub check_bundle{
if($self->methods->{collection}->{allowed}->{GET}){
$listed = $self->check_list_collection();
$self->check_created_listed($listed);
$self->NO_COUNT('1');
$self->check_list_collection();
$self->NO_COUNT('');
}
# test model item
if(@$listed && !$self->NO_ITEM_MODULE){
@ -1533,5 +1545,11 @@ sub clear_cache{
`$cmd`;
}
}
sub is_int {
my $val = shift;
if($val =~ /^[+-]?[0-9]+$/) {
return 1;
}
return;
}
1;

Write Preview
Loading…
Cancel
Save