From: Dan Scott <dscott@laurentian.ca>
Date: Thu, 11 Sep 2014 01:34:36 +0000 (-0400)
Subject: At Laurentian, all usernames will be lowercase
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=e4bbc1f571214de30ffb4ce652cfc11bbdd7a0a6;p=contrib%2FConifer.git

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 <dscott@laurentian.ca>
---

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