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