View | Details | Raw Unified | Return to bug 18626
Collapse All | Expand All

(-)a/C4/Members.pm (-2 / +21 lines)
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
- 

Return to bug 18626