release/by_author: support 'page' parameter

metacpan · Sep 3, 2023 · 620c151 · 620c151
1 parent 88260ad
commit 620c151
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/lib/MetaCPAN/Query/Release.pm b/lib/MetaCPAN/Query/Release.pm
@@ -426,8 +426,9 @@ sub by_author_and_names {
 }
 
 sub by_author {
-    my ( $self, $pauseid, $size ) = @_;
+    my ( $self, $pauseid, $size, $page ) = @_;
     $size //= 1000;
+    $page //= 1;
 
     my $body = {
         query => {
@@ -444,6 +445,7 @@ sub by_author {
             qw( abstract author authorized date distribution license metadata.version resources.repository status tests )
         ],
         size => $size,
+        from => ( $page - 1 ) * $size,
     };
 
     my $ret = $self->es->search(

diff --git a/lib/MetaCPAN/Server/Controller/Release.pm b/lib/MetaCPAN/Server/Controller/Release.pm
@@ -61,8 +61,8 @@ sub recent : Path('recent') : Args(0) {
 
 sub by_author : Path('by_author') : Args(1) {
     my ( $self, $c, $pauseid ) = @_;
-    $c->stash_or_detach(
-        $self->model($c)->by_author( $pauseid, $c->req->param('size') ) );
+    $c->stash_or_detach( $self->model($c)
+            ->by_author( $pauseid, @{ $c->req->params }{qw( size page )} ) );
 }
 
 sub latest_by_distribution : Path('latest_by_distribution') : Args(1) {