|
Lines 27-32
use String::Random qw( random_string );
Link Here
|
| 27 |
use Scalar::Util qw( looks_like_number ); |
27 |
use Scalar::Util qw( looks_like_number ); |
| 28 |
use Date::Calc qw/Today check_date Date_to_Days/; |
28 |
use Date::Calc qw/Today check_date Date_to_Days/; |
| 29 |
use List::MoreUtils qw( uniq ); |
29 |
use List::MoreUtils qw( uniq ); |
|
|
30 |
use JSON qw(to_json); |
| 30 |
use C4::Log; # logaction |
31 |
use C4::Log; # logaction |
| 31 |
use C4::Overdues; |
32 |
use C4::Overdues; |
| 32 |
use C4::Reserves; |
33 |
use C4::Reserves; |
|
Lines 324-329
sub ModMember {
Link Here
|
| 324 |
|
325 |
|
| 325 |
my $patron = Koha::Patrons->find( $new_borrower->{borrowernumber} ); |
326 |
my $patron = Koha::Patrons->find( $new_borrower->{borrowernumber} ); |
| 326 |
|
327 |
|
|
|
328 |
my $borrowers_log = C4::Context->preference("BorrowersLog"); |
| 329 |
if ( $borrowers_log && $patron->cardnumber ne $new_borrower->{cardnumber} ) |
| 330 |
{ |
| 331 |
logaction( |
| 332 |
"MEMBERS", |
| 333 |
"MODIFY", |
| 334 |
$data{'borrowernumber'}, |
| 335 |
to_json( |
| 336 |
{ |
| 337 |
cardnumber_replaced => { |
| 338 |
previous_cardnumber => $patron->cardnumber, |
| 339 |
new_cardnumber => $new_borrower->{cardnumber}, |
| 340 |
} |
| 341 |
}, |
| 342 |
{ utf8 => 1, pretty => 1 } |
| 343 |
) |
| 344 |
); |
| 345 |
} |
| 346 |
|
| 327 |
delete $new_borrower->{userid} if exists $new_borrower->{userid} and not $new_borrower->{userid}; |
347 |
delete $new_borrower->{userid} if exists $new_borrower->{userid} and not $new_borrower->{userid}; |
| 328 |
|
348 |
|
| 329 |
my $execute_success = $patron->store if $patron->set($new_borrower); |
349 |
my $execute_success = $patron->store if $patron->set($new_borrower); |
|
Lines 355-361
sub ModMember {
Link Here
|
| 355 |
Koha::NorwegianPatronDB::NLSync({ 'borrowernumber' => $data{'borrowernumber'} }); |
375 |
Koha::NorwegianPatronDB::NLSync({ 'borrowernumber' => $data{'borrowernumber'} }); |
| 356 |
} |
376 |
} |
| 357 |
|
377 |
|
| 358 |
logaction("MEMBERS", "MODIFY", $data{'borrowernumber'}, "UPDATE (executed w/ arg: $data{'borrowernumber'})") if C4::Context->preference("BorrowersLog"); |
378 |
logaction("MEMBERS", "MODIFY", $data{'borrowernumber'}, "UPDATE (executed w/ arg: $data{'borrowernumber'})") if $borrowers_log; |
| 359 |
} |
379 |
} |
| 360 |
return $execute_success; |
380 |
return $execute_success; |
| 361 |
} |
381 |
} |
| 362 |
- |
|
|