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