diff options
| author | Struan Donald <struan@exo.org.uk> | 2012-12-21 12:33:53 +0000 |
|---|---|---|
| committer | Struan Donald <struan@exo.org.uk> | 2012-12-21 12:33:53 +0000 |
| commit | 01051dd5798e13f65d81ec0084884fecfa445a98 (patch) | |
| tree | 555087f62f85485f0d13b5e7a0f31337b938a39a | |
| parent | e2c1643e35241de304246fad740116469eceebf3 (diff) | |
add pagination to report list
| -rw-r--r-- | perllib/FixMyStreet/Cobrand/SeeSomething.pm | 11 | ||||
| -rw-r--r-- | templates/web/seesomething/admin/stats.html | 2 |
2 files changed, 11 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; } diff --git a/templates/web/seesomething/admin/stats.html b/templates/web/seesomething/admin/stats.html index c49d7e2ec..f60c91eee 100644 --- a/templates/web/seesomething/admin/stats.html +++ b/templates/web/seesomething/admin/stats.html @@ -40,4 +40,6 @@ </tbody> </table> +[% INCLUDE 'pagination.html', param = 'p' %] + [% INCLUDE 'admin/footer.html' %] |