diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2013-03-26 10:19:10 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2013-04-11 11:59:06 +0100 |
| commit | c0214f766560f7d9cf6acc5cb4d8755c8936f10b (patch) | |
| tree | 7c6104006855ec830e56972e7f5bf061c92bd645 /perllib/FixMyStreet/Cobrand/Bromley.pm | |
| parent | d84a5018b3682a55006740b8870f1f969c0eef66 (diff) | |
Don't add Bromley to strings with Orpington in.
Diffstat (limited to 'perllib/FixMyStreet/Cobrand/Bromley.pm')
| -rw-r--r-- | perllib/FixMyStreet/Cobrand/Bromley.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/perllib/FixMyStreet/Cobrand/Bromley.pm b/perllib/FixMyStreet/Cobrand/Bromley.pm index b57113c5a..3c7580eb1 100644 --- a/perllib/FixMyStreet/Cobrand/Bromley.pm +++ b/perllib/FixMyStreet/Cobrand/Bromley.pm @@ -29,9 +29,8 @@ sub disambiguate_location { my $town = 'Bromley'; # Bing turns High St Bromley into Bromley High St which is in # Bromley by Bow. - if ( $string =~ /^high\s+st(reet)?$/i ) { - $town .= ', BR1'; - } + $town .= ', BR1' if $string =~ /^high\s+st(reet)?$/i; + $town = '' if $string =~ /orpington/i; return { %{ $self->SUPER::disambiguate_location() }, town => $town, |