Bug 17792: Add opac_editable and opac_display methods

[koha.git] / misc / cronjobs / batch_anonymise.pl

diff --git a/misc/cronjobs/batch_anonymise.pl b/misc/cronjobs/batch_anonymise.pl
index 3ce77d4..013f7d1 100755 (executable)
--- a/misc/cronjobs/batch_anonymise.pl
+++ b/misc/cronjobs/batch_anonymise.pl
@@ -30,8 +30,7 @@ BEGIN {
 }
 
 use C4::Context;
-use C4::Circulation;
-use C4::Dates;
+use Koha::Patrons;
 use Date::Calc qw(
   Today
   Add_Delta_Days
@@ -46,6 +45,7 @@ Usage: $0  --days DAYS  [-h|--help]
    -v --verbose       gives a little more information
    -h --help          prints this help message, and exits, ignoring all
                       other options
+Note: If the system preference 'AnonymousPatron' is not defined, NULL will be used.
 USAGE
     exit $_[0];
 }
@@ -74,8 +74,7 @@ my ($newyear,$newmonth,$newday) = Add_Delta_Days ($year,$month,$day,(-1)*$days);
 my $formatdate = sprintf "%4d-%02d-%02d",$newyear,$newmonth,$newday;
 $verbose and print "Checkouts before $formatdate will be anonymised.\n";
 
-my ($rows, $err_history_not_deleted) = AnonymiseIssueHistory($formatdate);
-carp "Anonymisation of reading history failed." if ($err_history_not_deleted);
-$verbose and print "$rows checkouts anonymised.\n";
+my $rows = Koha::Patrons->search_patrons_to_anonymise( { before => $formatdate } )->anonymise_issue_history( { before => $formatdate } );
+$verbose and print int($rows) . " checkouts anonymised.\n";
 
 exit(0);