[Highways England] Allow lookup with “FMS” prefix.

This form of reference is shown on a report confirmation page.

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' }