From: Dan Scott <dan@coffeecode.net>
Date: Thu, 5 Dec 2019 17:12:10 +0000 (-0500)
Subject: Force email addresses to lowercase to match database
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=4b7a49b0105bdbdcd9b36fb74555447ba2748cbf;p=contrib%2FConifer.git

Force email addresses to lowercase to match database

Signed-off-by: Dan Scott <dan@coffeecode.net>
---

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');