add pagination to report list

1 files changed, 9 insertions, 2 deletions

diff --git a/perllib/FixMyStreet/Cobrand/SeeSomething.pm b/perllib/FixMyStreet/Cobrand/SeeSomething.pm
index 2267b4f57..ea56e04c8 100644
--- a/perllib/FixMyStreet/Cobrand/SeeSomething.pm
+++ b/perllib/FixMyStreet/Cobrand/SeeSomething.pm
@@ -106,17 +106,24 @@ sub admin_stats {
         $filters{subcategory} = $c->req->param('subcategory');
     }
 
+    my $page = $c->req->params->{p} || 1;
+
     my $p = $c->model('DB::Problem')->search(
         {
             confirmed => { not => undef },
             %filters
         },
         {
-                order_by => { -desc=> [ 'confirmed' ] }
+            columns => [ qw(
+                id detail category subcategory confirmed
+            ) ],
+            order_by => { -desc=> [ 'confirmed' ] },
+            rows => 20,
         }
-    );
+    )->page( $page );
 
     $c->stash->{reports} = $p;
+    $c->stash->{pager} = $p->pager;
 
     return 1;
 }