diff options
author | Matthew Somerville <matthew@mysociety.org> | 2011-07-12 22:03:17 +0100 |
---|---|---|
committer | Matthew Somerville <matthew@mysociety.org> | 2011-07-12 22:03:17 +0100 |
commit | d4870fd12c24d71141067e36ddd0be910c747c7e (patch) | |
tree | 19c77f70e1a6057becd03ae5d369d8655075b3a2 /perllib/FixMyStreet/App/Controller/Admin.pm | |
parent | d225e0248b068b27eb31381afcaac8a827f46fbb (diff) |
Unique users of problem reports, and summary table by category. Fixes #108.
Diffstat (limited to 'perllib/FixMyStreet/App/Controller/Admin.pm')
-rw-r--r-- | perllib/FixMyStreet/App/Controller/Admin.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Admin.pm b/perllib/FixMyStreet/App/Controller/Admin.pm index abc454600..9fcb0c46d 100644 --- a/perllib/FixMyStreet/App/Controller/Admin.pm +++ b/perllib/FixMyStreet/App/Controller/Admin.pm @@ -60,6 +60,7 @@ sub index : Path : Args(0) { $c->stash->{problems} = \%prob_counts; $c->stash->{total_problems_live} = $prob_counts{confirmed} + $prob_counts{fixed}; + $c->stash->{total_problems_users} = $c->cobrand->problems->unique_users; my $comments = $c->model('DB::Comment')->summary_count( $site_restriction ); @@ -106,6 +107,8 @@ sub index : Path : Args(0) { : _('n/a'); $c->stash->{questionnaires} = \%questionnaire_counts; + $c->stash->{categories} = $c->cobrand->problems->categories_summary(); + return 1; } |