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

(-)a/C4/Auth_with_ldap.pm (-5 / +6 lines)
Lines 169-179 sub checkpw_ldap { Link Here
169
        return 0;   # B2, D2
169
        return 0;   # B2, D2
170
    }
170
    }
171
	if (C4::Context->preference('ExtendedPatronAttributes') && $borrowernumber && ($config{update} ||$config{replicate})) {
171
	if (C4::Context->preference('ExtendedPatronAttributes') && $borrowernumber && ($config{update} ||$config{replicate})) {
172
   		my @types = C4::Members::AttributeTypes::GetAttributeTypes();
173
		my @attributes = grep{my $key=$_; any{$_ eq $key}@types;} keys %borrower;
174
        my $extended_patron_attributes;
172
        my $extended_patron_attributes;
175
        @{$extended_patron_attributes} =
173
        foreach my $attribute_type ( C4::Members::AttributeTypes::GetAttributeTypes() ) {
176
          map { { code => $_, value => $borrower{$_} } } @attributes;
174
                my $code = $attribute_type->{code};
175
                if ( exists $borrower{$code} ) {
176
                        push @$extended_patron_attributes, { code => $code, value => $borrower{$code} };
177
                }
178
        }
177
		my @errors;
179
		my @errors;
178
		#Check before add
180
		#Check before add
179
		for (my $i; $i< scalar(@$extended_patron_attributes)-1;$i++) {
181
		for (my $i; $i< scalar(@$extended_patron_attributes)-1;$i++) {
180
- 

Return to bug 8919