diff options
Diffstat (limited to 'perllib/FixMyStreet/Cobrand/FixMyStreet.pm')
| -rw-r--r-- | perllib/FixMyStreet/Cobrand/FixMyStreet.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/Cobrand/FixMyStreet.pm b/perllib/FixMyStreet/Cobrand/FixMyStreet.pm index 951804c20..dfb511f39 100644 --- a/perllib/FixMyStreet/Cobrand/FixMyStreet.pm +++ b/perllib/FixMyStreet/Cobrand/FixMyStreet.pm @@ -101,6 +101,16 @@ sub munge_report_new_bodies { my $tfl = FixMyStreet::Cobrand::TfL->new({ c => $self->{c} }); $tfl->munge_surrounding_london($bodies); } + + if ( $bodies{'Highways England'} ) { + my $c = $self->{c}; + my $he = FixMyStreet::Cobrand::HighwaysEngland->new({ c => $c }); + my $on_he_road = $c->stash->{on_he_road} = $he->report_new_is_on_he_road; + + if (!$on_he_road) { + %$bodies = map { $_->id => $_ } grep { $_->name ne 'Highways England' } values %$bodies; + } + } } sub munge_report_new_contacts { |