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

(-)a/Koha/Old/Patron.pm (-1 / +10 lines)
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
- 

Return to bug 34069