diff options
| -rw-r--r-- | perllib/FixMyStreet/Cobrand/HighwaysEngland.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/Cobrand/HighwaysEngland.pm b/perllib/FixMyStreet/Cobrand/HighwaysEngland.pm index 54b0d09e3..ed58eb4f7 100644 --- a/perllib/FixMyStreet/Cobrand/HighwaysEngland.pm +++ b/perllib/FixMyStreet/Cobrand/HighwaysEngland.pm @@ -59,6 +59,20 @@ sub geocode_postcode { return $self->next::method($s); } +sub lookup_by_ref_regex { + return qr/^\s*((?:FMS\s*)?\d+)\s*$/i; +} + +sub lookup_by_ref { + my ($self, $ref) = @_; + + if ( $ref =~ s/^\s*FMS\s*//i ) { + return { 'id' => $ref }; + } + + return 0; +} + sub allow_photo_upload { 0 } sub allow_anonymous_reports { 'button' } |