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 |
- |
|
|