View | Details | Raw Unified | Return to bug 17215
Collapse All | Expand All

(-)a/C4/Auth_with_ldap.pm (-3 / +9 lines)
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
- 

Return to bug 17215