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

(-)a/C4/Auth_with_ldap.pm (-1 / +9 lines)
Lines 363-369 sub update_local { Link Here
363
    my $borrowerid = shift or croak "No borrowerid";
363
    my $borrowerid = shift or croak "No borrowerid";
364
    my $borrower   = shift or croak "No borrower record";
364
    my $borrower   = shift or croak "No borrower record";
365
365
366
    # skip extended patron attributes in 'borrowers' attribute update
366
    my @keys = keys %$borrower;
367
    my @keys = keys %$borrower;
368
    if (C4::Context->preference('ExtendedPatronAttributes')) {
369
        foreach my $attribute_type ( C4::Members::AttributeTypes::GetAttributeTypes() ) {
370
           my $code = $attribute_type->{code};
371
           @keys = grep { $_ ne $code } @keys;
372
           $debug and printf STDERR "ignoring extended patron attribute '%s' in update_local()\n", $code;
373
        }
374
    }
375
367
    my $dbh = C4::Context->dbh;
376
    my $dbh = C4::Context->dbh;
368
    my $query = "UPDATE  borrowers\nSET     " .
377
    my $query = "UPDATE  borrowers\nSET     " .
369
        join(',', map {"$_=?"} @keys) .
378
        join(',', map {"$_=?"} @keys) .
370
- 

Return to bug 14625