From a4efcb94ff33a7932f1573c9a53000eda37589fb Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Thu, 5 Jul 2018 14:13:32 -0400 Subject: [PATCH] LP#1779158 Vandelay queue list API supports paging Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm index 0647b330d5..84c5055448 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm @@ -1535,7 +1535,7 @@ __PACKAGE__->register_method( ); sub owner_queue_retrieve { - my($self, $conn, $auth, $owner_id, $filters) = @_; + my($self, $conn, $auth, $owner_id, $filters, $pager) = @_; my $e = new_editor(authtoken => $auth, xact => 1); return $e->die_event unless $e->checkauth; $owner_id = $e->requestor->id; # XXX add support for viewing other's queues? @@ -1544,12 +1544,18 @@ sub owner_queue_retrieve { my $search = {owner => $owner_id}; $search->{$_} = $filters->{$_} for keys %$filters; + my %paging; + if ($pager) { + $paging{limit} = $pager->{limit} || 1000; + $paging{offset} = $pager->{offset} || 0; + } + if($self->{record_type} eq 'bib') { $queues = $e->search_vandelay_bib_queue( - [$search, {order_by => {vbq => 'evergreen.lowercase(name)'}}]); + [$search, {%paging, order_by => {vbq => 'evergreen.lowercase(name)'}}]); } else { $queues = $e->search_vandelay_authority_queue( - [$search, {order_by => {vaq => 'evergreen.lowercase(name)'}}]); + [$search, {%paging, order_by => {vaq => 'evergreen.lowercase(name)'}}]); } $conn->respond($_) for @$queues; $e->rollback; -- 2.11.0