diff options
Diffstat (limited to 'perllib/FixMyStreet/App/Controller/Admin.pm')
| -rw-r--r-- | perllib/FixMyStreet/App/Controller/Admin.pm | 7 |
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 = |