From 0d1e746a5e112b32df0a07c984e16c5de3c65a91 Mon Sep 17 00:00:00 2001 From: Dan Scott Date: Wed, 10 Sep 2014 21:34:36 -0400 Subject: [PATCH] At Laurentian, all usernames will be lowercase This will prevent mismatches like the user entering "dscott" and the database having the value "DScott" (in that we're going to force all of the Laurentian user names in the database to lower case). Signed-off-by: Dan Scott --- .../src/perlmods/lib/OpenILS/Application/AuthProxy/LDAP_Auth_OSUL.pm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/AuthProxy/LDAP_Auth_OSUL.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/AuthProxy/LDAP_Auth_OSUL.pm index 5bf2487209..4ddd676e32 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/AuthProxy/LDAP_Auth_OSUL.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/AuthProxy/LDAP_Auth_OSUL.pm @@ -12,6 +12,10 @@ my $id_attr = 'uid'; sub authenticate { my ( $self, $args ) = @_; + + # Convert the entire user name to lowercase + # This assumes that all of the user names in the database are lower case + $args->{'username'} = lc($args->{'username'}); my $username = $args->{'username'}; # Authenticate against LDAP based on the user portion of the email address -- 2.11.0