From 2e761c6825d76944fd579c98cd0a222d420ea02d Mon Sep 17 00:00:00 2001
From: Matthew Somerville <matthew@mysociety.org>
Date: Fri, 31 Jul 2020 10:56:12 +0100
Subject: Lowercase contact email when looking for user.

---
 perllib/FixMyStreet/App/Controller/Contact.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perllib/FixMyStreet/App/Controller/Contact.pm')

diff --git a/perllib/FixMyStreet/App/Controller/Contact.pm b/perllib/FixMyStreet/App/Controller/Contact.pm
index 9ce89a9e2..f919cbeff 100644
--- a/perllib/FixMyStreet/App/Controller/Contact.pm
+++ b/perllib/FixMyStreet/App/Controller/Contact.pm
@@ -199,7 +199,7 @@ sub prepare_params_for_email : Private {
     my $base_url = $c->cobrand->base_url();
     my $admin_url = $c->cobrand->admin_base_url;
 
-    my $user = $c->cobrand->users->find( { email => $c->stash->{em} } );
+    my $user = $c->cobrand->users->find( { email => lc $c->stash->{em} } );
     if ( $user ) {
         $c->stash->{user_admin_url} = $admin_url . '/users/' . $user->id;
         $c->stash->{user_reports_admin_url} = $admin_url . '/reports?search=' . $user->email;
-- 
cgit v1.2.3