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

(-)a/C4/Auth_with_ldap.pm (-4 / +2 lines)
Lines 164-172 sub checkpw_ldap { Link Here
164
    }
164
    }
165
	if (C4::Context->preference('ExtendedPatronAttributes') && $borrowernumber && ($config{update} ||$config{replicate})) {
165
	if (C4::Context->preference('ExtendedPatronAttributes') && $borrowernumber && ($config{update} ||$config{replicate})) {
166
   		my @types = C4::Members::AttributeTypes::GetAttributeTypes();
166
   		my @types = C4::Members::AttributeTypes::GetAttributeTypes();
167
		my @attributes = grep{my $key=$_; any{$_ eq $key}@types;} keys %borrower;
167
		my @attributes = grep{my $key=$_; any{$_->{code} eq $key}@types;} keys %borrower;
168
		my $extended_patron_attributes = map{{code=>$_,value=>$borrower{$_}}}@attributes;
168
		my $extended_patron_attributes = [ map{{code=>$_,value=>$borrower{$_}}}@attributes ];
169
		my $extended_patron_attributes = [] unless $extended_patron_attributes;
170
		my @errors;
169
		my @errors;
171
		#Check before add
170
		#Check before add
172
		for (my $i; $i< scalar(@$extended_patron_attributes)-1;$i++) {
171
		for (my $i; $i< scalar(@$extended_patron_attributes)-1;$i++) {
173
- 

Return to bug 4995