[TfL] Disable questionnaires.

2 files changed, 10 insertions, 0 deletions

diff --git a/perllib/FixMyStreet/Cobrand/FixMyStreet.pm b/perllib/FixMyStreet/Cobrand/FixMyStreet.pm
index bf7690990..5f5389e0d 100644
--- a/perllib/FixMyStreet/Cobrand/FixMyStreet.pm
+++ b/perllib/FixMyStreet/Cobrand/FixMyStreet.pm
@@ -316,4 +316,12 @@ sub must_have_2fa {
     return 0;
 }
 
+sub send_questionnaire {
+    my ($self, $problem) = @_;
+    my $cobrand = $problem->get_cobrand_logged;
+    return 0 if $cobrand->moniker eq 'tfl';
+    return 0 if $problem->to_body_named('TfL');
+    return 1;
+}
+
 1;
diff --git a/perllib/FixMyStreet/Cobrand/TfL.pm b/perllib/FixMyStreet/Cobrand/TfL.pm
index af1df08f2..b20c2c938 100644
--- a/perllib/FixMyStreet/Cobrand/TfL.pm
+++ b/perllib/FixMyStreet/Cobrand/TfL.pm
@@ -16,6 +16,8 @@ sub council_url { return 'tfl'; }
 sub area_types  { [ 'LBO' ] }
 sub is_council { 0 }
 
+sub send_questionnaires { 0 }
+
 sub area_check {
     my ( $self, $params, $context ) = @_;