From: Dan Scott <dan@coffeecode.net>
Date: Mon, 17 Jul 2017 05:39:56 +0000 (-0400)
Subject: LDAP for Laurentian tweak
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=9c0c1c14266a7137abd41e62cb867ab61f9aca65;p=contrib%2FConifer.git

LDAP for Laurentian tweak

Signed-off-by: Dan Scott <dan@coffeecode.net>
---

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)