From 4b7a49b0105bdbdcd9b36fb74555447ba2748cbf Mon Sep 17 00:00:00 2001 From: Dan Scott Date: Thu, 5 Dec 2019 12:12:10 -0500 Subject: [PATCH] Force email addresses to lowercase to match database Signed-off-by: Dan Scott --- Open-ILS/src/perlmods/lib/OpenILS/Application/AuthProxy/LDAP_Auth.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/AuthProxy/LDAP_Auth.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/AuthProxy/LDAP_Auth.pm index 863846a70a..8295a1ce03 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/AuthProxy/LDAP_Auth.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/AuthProxy/LDAP_Auth.pm @@ -94,6 +94,8 @@ sub authenticate { if ( $login_succeeded ) { if ($username_from_ldap) { my $id_attr_val = $ldap_search->entry(0)->get_value($id_attr); + # assumes that all usernames in the database are lowercase! + $id_attr_val = lc($id_attr_val); return OpenILS::Event->new('SUCCESS', payload => $id_attr_val); } else { return OpenILS::Event->new('SUCCESS'); -- 2.11.0