diff options
| -rw-r--r-- | perllib/FixMyStreet/Cobrand/FixMyStreet.pm | 8 | ||||
| -rw-r--r-- | perllib/FixMyStreet/Cobrand/TfL.pm | 2 |
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 ) = @_; |