1 package Koha
::REST
::Plugin
::Pagination
;
3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 3 of the License, or (at your option) any later
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
14 # You should have received a copy of the GNU General Public License along
15 # with Koha; if not, write to the Free Software Foundation, Inc.,
16 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
20 use Mojo
::Base
'Mojolicious::Plugin';
24 Koha::REST::Plugin::Pagination
28 =head2 Mojolicious::Plugin methods
35 my ( $self, $app ) = @_;
39 =head3 add_pagination_headers
41 my $patrons = Koha::Patrons->search( ... );
42 $c->add_pagination_headers({
43 total => $patrons->count,
51 Adds a Link header to the response message $c carries, following RFC5988, including
52 the following relation types: 'prev', 'next', 'first' and 'last'.
53 It also adds X-Total-Count, containing the total results count.
58 'add_pagination_headers' => sub {
59 my ( $c, $args ) = @_;
61 my $total = $args->{total
};
62 my $req_page = $args->{params
}->{_page
};
63 my $per_page = $args->{params
}->{_per_page
} //
64 C4
::Context
->preference('RESTdefaultPageSize');
66 # do we need to paginate?
67 return $c unless $req_page;
69 my $pages = int $total / $per_page;
71 if $total % $per_page > 0;
75 if ( $pages > 1 and $req_page > 1 ) { # Previous exists?
79 { page
=> $req_page - 1,
80 per_page
=> $per_page,
82 params
=> $args->{params
}
87 if ( $pages > 1 and $req_page < $pages ) { # Next exists?
91 { page
=> $req_page + 1,
92 per_page
=> $per_page,
94 params
=> $args->{params
}
101 { page
=> 1, per_page
=> $per_page, rel
=> 'first', params
=> $args->{params
} } );
104 { page
=> $pages, per_page
=> $per_page, rel
=> 'last', params
=> $args->{params
} } );
107 $c->res->headers->add( 'Link' => join( ',', @links ) );
109 # Add X-Total-Count header
110 $c->res->headers->add( 'X-Total-Count' => $total );
115 =head3 dbic_merge_pagination
117 $filter = $c->dbic_merge_pagination({
120 page => $params->{_page},
121 per_page => $params->{_per_page}
125 Adds I<page> and I<rows> elements to the filter parameter.
130 'dbic_merge_pagination' => sub {
131 my ( $c, $args ) = @_;
132 my $filter = $args->{filter
};
134 $filter->{page
} = $args->{params
}->{_page
};
135 $filter->{rows
} = $args->{params
}->{_per_page
};
142 =head2 Internal methods
146 my $link = _build_link( $c, { page => 1, per_page => 5, rel => 'prev' });
148 Returns a string, suitable for using in Link headers following RFC5988.
153 my ( $c, $args ) = @_;
155 my $params = $args->{params
};
157 $params->{_page
} = $args->{page
};
158 $params->{_per_page
} = $args->{per_page
};
161 . $c->req->url->clone->query(
165 . $args->{rel
} . '"';
167 # TODO: Find a better solution for this horrible (but needed) fix
168 $link =~ s
|api
/v1/app\
.pl
/||;