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