Lines 23-29
use Carp;
Link Here
|
23 |
|
23 |
|
24 |
use C4::Debug; |
24 |
use C4::Debug; |
25 |
use C4::Context; |
25 |
use C4::Context; |
26 |
use C4::Members qw(AddMember); |
26 |
use C4::Members qw(AddMember fixup_cardnumber); |
27 |
use C4::Members::Attributes; |
27 |
use C4::Members::Attributes; |
28 |
use C4::Members::AttributeTypes; |
28 |
use C4::Members::AttributeTypes; |
29 |
use C4::Members::Messaging; |
29 |
use C4::Members::Messaging; |
Lines 238-244
sub checkpw_ldap {
Link Here
|
238 |
# |
238 |
# |
239 |
sub ldap_entry_2_hash { |
239 |
sub ldap_entry_2_hash { |
240 |
my $userldapentry = shift; |
240 |
my $userldapentry = shift; |
241 |
my %borrower = ( cardnumber => shift ); |
241 |
my $autonumber_members = C4::Context->boolean_preference('autoMemberNum') || 0; |
|
|
242 |
my %borrower; |
243 |
if($autonumber_members) { |
244 |
$borrower{'cardnumber'} = fixup_cardnumber($borrower{'cardnumber'}); |
245 |
} |
246 |
else { |
247 |
$borrower{'cardnumber'} = shift; |
248 |
} |
242 |
my %memberhash; |
249 |
my %memberhash; |
243 |
$userldapentry->exists('uid'); # This is bad, but required! By side-effect, this initializes the attrs hash. |
250 |
$userldapentry->exists('uid'); # This is bad, but required! By side-effect, this initializes the attrs hash. |
244 |
if ($debug) { |
251 |
if ($debug) { |
245 |
- |
|
|