aboutsummaryrefslogtreecommitdiffstats
path: root/perllib
diff options
context:
space:
mode:
Diffstat (limited to 'perllib')
-rw-r--r--perllib/FixMyStreet/Cobrand/HighwaysEngland.pm12
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' }