From 4a3b51a366825b42f451f5eeac93b990a602e57e Mon Sep 17 00:00:00 2001
From: Matthew Somerville <matthew@mysociety.org>
Date: Wed, 8 Jan 2020 16:16:48 +0000
Subject: [TfL] Add hook to restrict to safety reports.

---
 perllib/FixMyStreet/Cobrand/TfL.pm     | 10 ++++++++++
 perllib/FixMyStreet/Script/Inactive.pm |  1 +
 2 files changed, 11 insertions(+)

(limited to 'perllib/FixMyStreet')

diff --git a/perllib/FixMyStreet/Cobrand/TfL.pm b/perllib/FixMyStreet/Cobrand/TfL.pm
index eedbc41b5..cc4b4f345 100644
--- a/perllib/FixMyStreet/Cobrand/TfL.pm
+++ b/perllib/FixMyStreet/Cobrand/TfL.pm
@@ -127,6 +127,16 @@ sub problems_sql_restriction {
     return $q;
 }
 
+sub inactive_reports_filter {
+    my ($self, $time, $rs) = @_;
+    if ($time < 7*12) {
+        $rs = $rs->search({ extra => { like => '%safety_critical,T5:value,T2:no%' } });
+    } else {
+        $rs = $rs->search({ extra => { like => '%safety_critical,T5:value,T3:yes%' } });
+    }
+    return $rs;
+}
+
 sub password_expiry {
     return if FixMyStreet->test_mode;
     # uncoverable statement
diff --git a/perllib/FixMyStreet/Script/Inactive.pm b/perllib/FixMyStreet/Script/Inactive.pm
index 54cbaa7ad..e09417648 100644
--- a/perllib/FixMyStreet/Script/Inactive.pm
+++ b/perllib/FixMyStreet/Script/Inactive.pm
@@ -95,6 +95,7 @@ sub _relevant_reports {
     });
     if ($self->cobrand) {
         $problems = $problems->search({ cobrand => $self->cobrand->moniker });
+        $problems = $self->cobrand->call_hook(inactive_reports_filter => $time, $problems) || $problems;
     }
     return $problems;
 }
-- 
cgit v1.2.3