4 files changed, 23 insertions, 4 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Admin.pm b/perllib/FixMyStreet/App/Controller/Admin.pm
index bb7ec2381..f69e9ea23 100644
--- a/perllib/FixMyStreet/App/Controller/Admin.pm
+++ b/perllib/FixMyStreet/App/Controller/Admin.pm
@@ -559,9 +559,6 @@ sub reports : Path('reports') {
         # will have been turned off
         $c->stash->{problems} = [ $problems->all ];
 
-        $c->stash->{edit_body_contacts} = 1
-            if ( grep {$_ eq 'body'} keys %{$c->stash->{allowed_pages}});
-
         if (is_valid_email($search)) {
             $query = [
                 'user.email' => { ilike => $like_search },
@@ -611,6 +608,10 @@ sub reports : Path('reports') {
         $c->stash->{problems} = [ $problems->all ];
         $c->stash->{pager} = $problems->pager;
     }
+
+    $c->stash->{edit_body_contacts} = 1
+        if ( grep {$_ eq 'body'} keys %{$c->stash->{allowed_pages}});
+
 }
 
 sub report_edit : Path('report_edit') : Args(1) {
diff --git a/perllib/FixMyStreet/Cobrand/EmptyHomes.pm b/perllib/FixMyStreet/Cobrand/EmptyHomes.pm
index ef27d2c4e..99aec5ac1 100644
--- a/perllib/FixMyStreet/Cobrand/EmptyHomes.pm
+++ b/perllib/FixMyStreet/Cobrand/EmptyHomes.pm
@@ -119,6 +119,22 @@ sub process_extras {
     $extra->{address} = $value;
 }
 
+sub front_stats_data {
+    my ( $self ) = @_;
+    my $key = "recent_new";
+    my $result = Memcached::get($key);
+    unless ($result) {
+        $result = $self->problems->search(
+            { state => [ FixMyStreet::DB::Result::Problem->visible_states() ] }
+        )->count;
+        foreach my $v (values %{$self->old_site_stats}) {
+            $result += $v;
+        }
+        Memcached::set($key, $result, 3600);
+    }
+    return $result;
+}
+
 # A record of the number of reports from the Channel 4 site and other old data
 sub old_site_stats {
     return {
diff --git a/perllib/FixMyStreet/Cobrand/Southampton.pm b/perllib/FixMyStreet/Cobrand/Southampton.pm
index b7374149a..4e068a8c3 100644
--- a/perllib/FixMyStreet/Cobrand/Southampton.pm
+++ b/perllib/FixMyStreet/Cobrand/Southampton.pm
@@ -20,5 +20,7 @@ sub disambiguate_location {
     };
 }
 
+sub send_questionnaires { return 0; }
+
 1;
 
diff --git a/perllib/FixMyStreet/SendReport/Open311.pm b/perllib/FixMyStreet/SendReport/Open311.pm
index b92aa8cfd..1ad7f5b05 100644
--- a/perllib/FixMyStreet/SendReport/Open311.pm
+++ b/perllib/FixMyStreet/SendReport/Open311.pm
@@ -43,7 +43,7 @@ sub send {
         my $revert = 0;
 
         # Extra bromley fields
-        if ( $row->bodies_str == 2482 ) {
+        if ( $row->bodies_str eq '2482' ) {
 
             $revert = 1;