From e4bbc1f571214de30ffb4ce652cfc11bbdd7a0a6 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