|
Lines 339-345
sub update_local {
Link Here
|
| 339 |
my $borrowerid = shift or croak "No borrowerid"; |
339 |
my $borrowerid = shift or croak "No borrowerid"; |
| 340 |
my $borrower = shift or croak "No borrower record"; |
340 |
my $borrower = shift or croak "No borrower record"; |
| 341 |
|
341 |
|
|
|
342 |
# skip extended patron attributes in 'borrowers' attribute update |
| 342 |
my @keys = keys %$borrower; |
343 |
my @keys = keys %$borrower; |
|
|
344 |
if (C4::Context->preference('ExtendedPatronAttributes')) { |
| 345 |
foreach my $attribute_type ( C4::Members::AttributeTypes::GetAttributeTypes() ) { |
| 346 |
my $code = $attribute_type->{code}; |
| 347 |
@keys = grep { $_ ne $code } @keys; |
| 348 |
$debug and printf STDERR "ignoring extended patron attribute '%s' in update_local()\n", $code; |
| 349 |
} |
| 350 |
} |
| 351 |
|
| 343 |
my $dbh = C4::Context->dbh; |
352 |
my $dbh = C4::Context->dbh; |
| 344 |
my $query = "UPDATE borrowers\nSET " . |
353 |
my $query = "UPDATE borrowers\nSET " . |
| 345 |
join(',', map {"$_=?"} @keys) . |
354 |
join(',', map {"$_=?"} @keys) . |
| 346 |
- |
|
|