aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/FixMyStreet/Cobrand/Bromley.pm
diff options
context:
space:
mode:
authorMarius Halden <marius.h@lden.org>2015-08-26 13:43:10 +0200
committerMarius Halden <marius.h@lden.org>2015-08-26 13:43:10 +0200
commitcc0acdd34052e79f3df368ac1f524de31df19a1b (patch)
tree505f561b5f16c5b78f07514e8c2b2bdc18fef51d /perllib/FixMyStreet/Cobrand/Bromley.pm
parent1c5c685d0b0904e7ddc6e764e58e8fae08632d1d (diff)
parent6b84622fb7d58531baa7943abdcc7620999c34ee (diff)
Merge tag 'v1.6.1' into fiksgatami-dev
Diffstat (limited to 'perllib/FixMyStreet/Cobrand/Bromley.pm')
-rw-r--r--perllib/FixMyStreet/Cobrand/Bromley.pm10
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 {