diff options
| author | Hakim Cassimally <hakim@mysociety.org> | 2014-07-18 15:38:32 +0000 |
|---|---|---|
| committer | Hakim Cassimally <hakim@mysociety.org> | 2014-07-18 15:38:32 +0000 |
| commit | b7a28df2080b95a0fd457a5525505e3039f4e12b (patch) | |
| tree | 3c30e95cedac6340d1e720529ebbcc77d52a3b03 /perllib | |
| parent | 7e8ac5a78ec5722c14e6243a4d04f6b39822d70b (diff) | |
[Bromley] disambiguation for White Horse Hill
This street is on boundary of Bromley with Greenwich, so a simple
disambiguation of $town = "chislehurst" falls foul of UKCouncils->
area_check.
It may be worth overriding area_check in general, but in mean time,
setting a specific postcode (on the Bromley side of the administrative
boundary) allows the map to be seen.
Diffstat (limited to 'perllib')
| -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, |