From af7a457bfaed2ba143aaeccfc7ccf2b8d443e22d Mon Sep 17 00:00:00 2001
From: Struan Donald <struan@exo.org.uk>
Date: Thu, 30 Nov 2017 15:22:31 +0000
Subject: [fixmystreet.com] Council average response time.

---
 perllib/FixMyStreet/App/Controller/Dashboard.pm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'perllib/FixMyStreet/App/Controller/Dashboard.pm')

diff --git a/perllib/FixMyStreet/App/Controller/Dashboard.pm b/perllib/FixMyStreet/App/Controller/Dashboard.pm
index cff4c8dab..e1183c247 100644
--- a/perllib/FixMyStreet/App/Controller/Dashboard.pm
+++ b/perllib/FixMyStreet/App/Controller/Dashboard.pm
@@ -287,6 +287,13 @@ sub generate_summary_figures {
     }
 }
 
+sub generate_body_response_time : Private {
+    my ( $self, $c ) = @_;
+
+    my $avg = $c->stash->{body}->calculate_average;
+    $c->stash->{body_average} = $avg ? int($avg / 60 / 60 / 24 + 0.5) : 0;
+}
+
 sub export_as_csv {
     my ($self, $c) = @_;
     require Text::CSV;
-- 
cgit v1.2.3