From 9c0c1c14266a7137abd41e62cb867ab61f9aca65 Mon Sep 17 00:00:00 2001 From: Dan Scott Date: Mon, 17 Jul 2017 01:39:56 -0400 Subject: [PATCH] LDAP for Laurentian tweak Signed-off-by: Dan Scott --- .../perlmods/lib/OpenILS/Application/AuthProxy/LDAP_Auth_OSUL.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 4ddd676e32..1a904ecb56 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 @@ -50,9 +50,9 @@ sub authenticate { if ( $ldap->bind( $authid, password => $authid_pass )->code == 0 ) { $reached_ldap = 1; # verify username - if ( $ldap - ->search( base => $basedn, filter => "($id_attr=$ldap_username)" ) - ->count != 0 ) { + my $ldap_search = $ldap->search( base => $basedn, + filter => "($id_attr=$ldap_username)" ); + if ( $ldap_search->count != 0 ) { $user_in_ldap = 1; # verify password (bind check) -- 2.11.0