diff options
author | Marius Halden <marius.h@lden.org> | 2015-08-26 13:43:10 +0200 |
---|---|---|
committer | Marius Halden <marius.h@lden.org> | 2015-08-26 13:43:10 +0200 |
commit | cc0acdd34052e79f3df368ac1f524de31df19a1b (patch) | |
tree | 505f561b5f16c5b78f07514e8c2b2bdc18fef51d /perllib/FixMyStreet/Cobrand/Bromley.pm | |
parent | 1c5c685d0b0904e7ddc6e764e58e8fae08632d1d (diff) | |
parent | 6b84622fb7d58531baa7943abdcc7620999c34ee (diff) |
Merge tag 'v1.6.1' into fiksgatami-dev
Diffstat (limited to 'perllib/FixMyStreet/Cobrand/Bromley.pm')
-rw-r--r-- | perllib/FixMyStreet/Cobrand/Bromley.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/perllib/FixMyStreet/Cobrand/Bromley.pm b/perllib/FixMyStreet/Cobrand/Bromley.pm index 99b38ca6a..9bee45128 100644 --- a/perllib/FixMyStreet/Cobrand/Bromley.pm +++ b/perllib/FixMyStreet/Cobrand/Bromley.pm @@ -20,14 +20,14 @@ sub disambiguate_location { my $town = 'Bromley'; - # Bing turns High St Bromley into Bromley High St which is in + # Bing turns High St Bromley into Bromley High St which is in # Bromley by Bow. $town .= ', BR1' if $string =~ /^high\s+st(reet)?$/i; # Disambiguations required for BR5 $town .= ', BR5' if $string =~ /^kelsey\s+r(?:oa)?d$/i; $town = 'BR5 Bromley' if $string =~ /^leith\s+hill$/i; # doesn't like appended BR5 for some reason - + # There has also been a road name change for a section of Ramsden Road # (BR5) between Church Hill and Court Road has changed to 'Old Priory # Avenue' - presently entering Old Priory Avenue simply takes the user to @@ -42,10 +42,14 @@ sub disambiguate_location { # and BR6 $town .= ', BR6' if $string =~ /^berrylands/i; - # White Horse Hill is on boundary with Greenwich, so need a + # White Horse Hill is on boundary with Greenwich, so need a # specific postcode $town = 'chislehurst, BR7 6DH' if $string =~ /^white\s+horse/i; + # Mottingham Lane is 90% inside Bromley, but goes outside too and Bing + # defaults to the top end of it. + $town = 'Mottingham Lane, SE9 4RW' if $string =~ /^mottingham\s+lane/i; + $town = '' if $string =~ /orpington/i; return { |