diff options
| -rw-r--r-- | perllib/FixMyStreet/Cobrand/Bromley.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/Cobrand/Bromley.pm b/perllib/FixMyStreet/Cobrand/Bromley.pm index 47d4e238a..531582f0e 100644 --- a/perllib/FixMyStreet/Cobrand/Bromley.pm +++ b/perllib/FixMyStreet/Cobrand/Bromley.pm @@ -19,10 +19,17 @@ sub disambiguate_location { my $string = shift; my $town = 'Bromley'; + # Bing turns High St Bromley into Bromley High St which is in # Bromley by Bow. $town .= ', BR1' if $string =~ /^high\s+st(reet)?$/i; + + # White Horse Hill is on boundary with Greenwich, so need a + # specific postcode + $town = 'chislehurst, BR7 6DH' if $string =~ /^white\s+horse/i; + $town = '' if $string =~ /orpington/i; + return { %{ $self->SUPER::disambiguate_location() }, town => $town, |