aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/FixMyStreet/App/Controller/Admin.pm
diff options
context:
space:
mode:
authorMatthew Somerville <matthew-github@dracos.co.uk>2016-06-22 16:36:37 +0100
committerMatthew Somerville <matthew-github@dracos.co.uk>2016-06-22 16:37:39 +0100
commitd20e84acc2beadad9a3f8fbfc55b5a3c8b06c9ba (patch)
tree5f09dfd65f92f0dbcfc4e09df97a41672b815511 /perllib/FixMyStreet/App/Controller/Admin.pm
parent0c69e124a57891aa84aaf7c25773738db2a108c2 (diff)
Show any waiting reports on admin index page.
Diffstat (limited to 'perllib/FixMyStreet/App/Controller/Admin.pm')
-rw-r--r--perllib/FixMyStreet/App/Controller/Admin.pm7
1 files changed, 7 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Admin.pm b/perllib/FixMyStreet/App/Controller/Admin.pm
index 2fda70ad9..27b434f06 100644
--- a/perllib/FixMyStreet/App/Controller/Admin.pm
+++ b/perllib/FixMyStreet/App/Controller/Admin.pm
@@ -73,6 +73,13 @@ sub index : Path : Args(0) {
$c->forward('stats_by_state');
+ my @unsent = $c->model('DB::Problem')->search( {
+ state => [ 'confirmed' ],
+ whensent => undef,
+ bodies_str => { '!=', undef },
+ } )->all;
+ $c->stash->{unsent_reports} = \@unsent;
+
my $alerts = $c->model('DB::Alert')->summary_report_alerts( $c->cobrand->restriction );
my %alert_counts =