diff options
Diffstat (limited to 'perllib')
-rw-r--r-- | perllib/FixMyStreet/Cobrand/HighwaysEngland.pm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/Cobrand/HighwaysEngland.pm b/perllib/FixMyStreet/Cobrand/HighwaysEngland.pm index ee4754827..87cf073eb 100644 --- a/perllib/FixMyStreet/Cobrand/HighwaysEngland.pm +++ b/perllib/FixMyStreet/Cobrand/HighwaysEngland.pm @@ -43,6 +43,18 @@ sub example_places { return $self->feature('example_places') || $self->next::method(); } +sub geocode_postcode { + my ( $self, $s ) = @_; + + if ($s =~ /^\s*[AM]\d+\s*$/i) { + return { + error => "Please be more specific about the location of the issue, eg M1, Jct 16 or A5, Towcester" + }; + } + + return $self->next::method($s); +} + sub allow_photo_upload { 0 } sub allow_anonymous_reports { 'button' } |