Only show text on /reports if appropriate.

Only show "select..." if more than one body, and only mention greyed out
lines if there are any. Fixes #869.

2 files changed, 9 insertions, 5 deletions

diff --git a/perllib/FixMyStreet/App/Controller/Around.pm b/perllib/FixMyStreet/App/Controller/Around.pm
index c03f5d9c8..0e42b8a17 100644
--- a/perllib/FixMyStreet/App/Controller/Around.pm
+++ b/perllib/FixMyStreet/App/Controller/Around.pm
@@ -5,9 +5,7 @@ use namespace::autoclean;
 BEGIN { extends 'Catalyst::Controller'; }
 
 use FixMyStreet::Map;
-use List::MoreUtils qw(any);
 use Encode;
-use FixMyStreet::Map;
 use Utils;
 
 =head1 NAME
diff --git a/perllib/FixMyStreet/App/Controller/Reports.pm b/perllib/FixMyStreet/App/Controller/Reports.pm
index 6f38ec101..2c4f73df3 100644
--- a/perllib/FixMyStreet/App/Controller/Reports.pm
+++ b/perllib/FixMyStreet/App/Controller/Reports.pm
@@ -3,7 +3,7 @@ use Moose;
 use namespace::autoclean;
 
 use File::Slurp;
-use List::MoreUtils qw(zip);
+use List::MoreUtils qw(any);
 use POSIX qw(strcoll);
 use RABX;
 use mySociety::MaPit;
@@ -52,10 +52,16 @@ sub index : Path : Args(0) {
         $c->detach( 'redirect_body' );
     }
 
-    # Fetch all areas of the types we're interested in
-    my @bodies = $c->model('DB::Body')->all;
+    # Fetch all bodies
+    my @bodies = $c->model('DB::Body')->search({}, {
+        '+select' => [ { count => 'area_id' } ],
+        '+as' => [ 'area_count' ],
+        join => 'body_areas',
+        distinct => 1,
+    })->all;
     @bodies = sort { strcoll($a->name, $b->name) } @bodies;
     $c->stash->{bodies} = \@bodies;
+    $c->stash->{any_empty_bodies} = any { $_->get_column('area_count') == 0 } @bodies;
 
     eval {
         my $data = File::Slurp::read_file(