From 9525d73f6d64dd5003417eb8bcda178695083349 Mon Sep 17 00:00:00 2001 From: Lee Jamison Date: Fri, 26 Aug 2016 19:49:22 -0400 Subject: [PATCH] Implemented autoMemberNum in C4::Auth_with_ldap.pm https://bugs.koha-community.org/show_bug.cgi?id=17215 Signed-off-by: Nick Clemens --- C4/Auth_with_ldap.pm | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/C4/Auth_with_ldap.pm b/C4/Auth_with_ldap.pm index 03e81e1..cbc53bc 100644 --- a/C4/Auth_with_ldap.pm +++ b/C4/Auth_with_ldap.pm @@ -23,7 +23,7 @@ use Carp; use C4::Debug; use C4::Context; -use C4::Members qw(AddMember); +use C4::Members qw(AddMember fixup_cardnumber); use C4::Members::Attributes; use C4::Members::AttributeTypes; use C4::Members::Messaging; @@ -238,7 +238,14 @@ sub checkpw_ldap { # sub ldap_entry_2_hash { my $userldapentry = shift; - my %borrower = ( cardnumber => shift ); + my $autonumber_members = C4::Context->boolean_preference('autoMemberNum') || 0; + my %borrower; + if($autonumber_members) { + $borrower{'cardnumber'} = fixup_cardnumber($borrower{'cardnumber'}); + } + else { + $borrower{'cardnumber'} = shift; + } my %memberhash; $userldapentry->exists('uid'); # This is bad, but required! By side-effect, this initializes the attrs hash. if ($debug) { -- 2.1.4