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 863846a..8295a1c 100644 (file)
--- 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');