aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/FixMyStreet/Cobrand/Bromley.pm
diff options
context:
space:
mode:
authorMarius Halden <marius.h@lden.org>2015-01-26 18:13:55 +0100
committerMarius Halden <marius.h@lden.org>2015-01-26 18:13:55 +0100
commit1c5c685d0b0904e7ddc6e764e58e8fae08632d1d (patch)
tree559d5fddb743c1c083e23c9a3831efea92a240cb /perllib/FixMyStreet/Cobrand/Bromley.pm
parent84de1b811a219c41adbdcc8b65851320a77e98f7 (diff)
parent04117b8be30b5d82d50cdc047ac4e7c19864f8ed (diff)
Merge tag 'v1.5.3' into fiksgatami-dev
Diffstat (limited to 'perllib/FixMyStreet/Cobrand/Bromley.pm')
-rw-r--r--perllib/FixMyStreet/Cobrand/Bromley.pm18
1 files changed, 18 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/Cobrand/Bromley.pm b/perllib/FixMyStreet/Cobrand/Bromley.pm
index 531582f0e..99b38ca6a 100644
--- a/perllib/FixMyStreet/Cobrand/Bromley.pm
+++ b/perllib/FixMyStreet/Cobrand/Bromley.pm
@@ -24,6 +24,24 @@ sub disambiguate_location {
# 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
+ # a different Priory Avenue in Petts Wood
+ # From Google maps search, "BR6 0PL" is a valid postcode for Old Priory Avenue
+ if ($string =~/^old\s+priory\s+av\w*$/i) {
+ $string = 'Ramsden Road';
+ $town = ', BR6 0PL';
+ }
+ $town .= ', BR5' if $string =~ /^meadway/i;
+
+ # and BR6
+ $town .= ', BR6' if $string =~ /^berrylands/i;
+
# White Horse Hill is on boundary with Greenwich, so need a
# specific postcode
$town = 'chislehurst, BR7 6DH' if $string =~ /^white\s+horse/i;