diff options
Diffstat (limited to 'perllib/FixMyStreet/Cobrand/Bromley.pm')
| -rw-r--r-- | perllib/FixMyStreet/Cobrand/Bromley.pm | 24 |
1 files changed, 6 insertions, 18 deletions
diff --git a/perllib/FixMyStreet/Cobrand/Bromley.pm b/perllib/FixMyStreet/Cobrand/Bromley.pm index 9bee45128..687843a2a 100644 --- a/perllib/FixMyStreet/Cobrand/Bromley.pm +++ b/perllib/FixMyStreet/Cobrand/Bromley.pm @@ -20,15 +20,7 @@ sub disambiguate_location { 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; - - # 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 + # There has 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 @@ -37,18 +29,10 @@ sub disambiguate_location { $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; - - # 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; + $string = 'BR7 6DH' if $string =~ /^white\s+horse/i; $town = '' if $string =~ /orpington/i; @@ -61,6 +45,10 @@ sub disambiguate_location { }; } +sub get_geocoder { + return 'OSM'; # default of Bing gives poor results, let's try overriding. +} + sub example_places { return ( 'BR1 3UH', 'Glebe Rd, Bromley' ); } |