|
Lines 38-43
use C4::Auth qw( get_template_and_user );
Link Here
|
| 38 |
use C4::Output qw( output_html_with_http_headers ); |
38 |
use C4::Output qw( output_html_with_http_headers ); |
| 39 |
use C4::Members qw( GetBorrowersToExpunge ); |
39 |
use C4::Members qw( GetBorrowersToExpunge ); |
| 40 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
40 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
|
|
41 |
use Koha::Old::Checkouts; |
| 41 |
use Koha::Patron::Categories; |
42 |
use Koha::Patron::Categories; |
| 42 |
use Koha::Patrons; |
43 |
use Koha::Patrons; |
| 43 |
use Koha::List::Patron qw( GetPatronLists ); |
44 |
use Koha::List::Patron qw( GetPatronLists ); |
|
Lines 155-161
elsif ( $step == 3 ) {
Link Here
|
| 155 |
# Anonymising all members |
156 |
# Anonymising all members |
| 156 |
if ($do_anonym) { |
157 |
if ($do_anonym) { |
| 157 |
#FIXME: anonymisation errors are not handled |
158 |
#FIXME: anonymisation errors are not handled |
| 158 |
my $rows = Koha::Patrons->search_patrons_to_anonymise( { before => $last_issue_date } )->anonymise_issue_history( { before => $last_issue_date } ); |
159 |
my $rows = Koha::Old::Checkouts |
|
|
160 |
->filter_by_anonymizable |
| 161 |
->filter_by_last_update({ |
| 162 |
to => $last_issue_date, timestamp_column_name => 'returndate' }) |
| 163 |
->anonymize; |
| 164 |
|
| 159 |
$template->param( |
165 |
$template->param( |
| 160 |
do_anonym => $rows, |
166 |
do_anonym => $rows, |
| 161 |
); |
167 |
); |
| 162 |
- |
|
|