|
Lines 17-22
package Koha::Old::Patron;
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
|
|
20 |
use C4::Log qw( logaction ); |
| 21 |
|
| 20 |
use base qw(Koha::Object); |
22 |
use base qw(Koha::Object); |
| 21 |
|
23 |
|
| 22 |
=head1 NAME |
24 |
=head1 NAME |
|
Lines 62-67
sub restore_deleted_borrower {
Link Here
|
| 62 |
# Delete the entry from deletedborrowers |
64 |
# Delete the entry from deletedborrowers |
| 63 |
Koha::Old::Patrons->search( { borrowernumber => $patron_data->{borrowernumber} } )->delete; |
65 |
Koha::Old::Patrons->search( { borrowernumber => $patron_data->{borrowernumber} } )->delete; |
| 64 |
|
66 |
|
|
|
67 |
# Log the restoration |
| 68 |
logaction( |
| 69 |
'MEMBERS', |
| 70 |
'RESTORE', |
| 71 |
$restored_patron->borrowernumber, |
| 72 |
"Patron restored from deletedborrowers: " . $restored_patron->cardnumber |
| 73 |
) if C4::Context->preference('BorrowersLog'); |
| 74 |
|
| 65 |
} |
75 |
} |
| 66 |
); |
76 |
); |
| 67 |
|
77 |
|
| 68 |
- |
|
|