From 09dd0f9dce1952a49c321029836e94030360af9f Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Tue, 20 Dec 2016 12:15:10 +0100
Subject: [PATCH] Bug 16966: The method should return a Koha::Patrons object

---
 Koha/Patrons.pm               | 2 +-
 t/db_dependent/Koha/Patrons.t | 6 +++++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/Koha/Patrons.pm b/Koha/Patrons.pm
index c86714c..71f78ee 100644
--- a/Koha/Patrons.pm
+++ b/Koha/Patrons.pm
@@ -167,7 +167,7 @@ sub search_patrons_to_anonymise {
       : undef;
 
     my $dtf = Koha::Database->new->schema->storage->datetime_parser;
-    my $rs = $class->search(
+    my $rs = $class->_resultset->search(
         {   returndate                  => { '<'   =>  $dtf->format_datetime($older_than_date), },
             'old_issues.borrowernumber' => { 'not' => undef },
             privacy                     => { '<>'  => 0 },                  # Keep forever
diff --git a/t/db_dependent/Koha/Patrons.t b/t/db_dependent/Koha/Patrons.t
index a2147cd..aaab41c 100644
--- a/t/db_dependent/Koha/Patrons.t
+++ b/t/db_dependent/Koha/Patrons.t
@@ -618,7 +618,7 @@ subtest 'search_patrons_to_anonymise & anonymise_issue_history' => sub {
     t::lib::Mocks::mock_preference( 'AnonymousPatron', '' );
 
     subtest 'AnonymousPatron is not defined' => sub {
-        plan tests => 3;
+        plan tests => 4;
 
         t::lib::Mocks::mock_preference('IndependentBranches', 0);
         my $patron = $builder->build(
@@ -645,6 +645,10 @@ subtest 'search_patrons_to_anonymise & anonymise_issue_history' => sub {
 
         my ( $returned, undef, undef ) = C4::Circulation::AddReturn( $item->{barcode}, undef, undef, undef, '2010-10-10' );
         is( $returned, 1, 'The item should have been returned' );
+
+        my $patron_to_anonymise = Koha::Patrons->search_patrons_to_anonymise( '2010-10-11' )->search( { 'me.borrowernumber' => $patron->{borrowernumber} } )->next;
+        is( ref($patron_to_anonymise), 'Koha::Patron', 'search_patrons_to_anonymise should return Koha::Patrons' );
+
         my $rows_affected = Koha::Patrons->search_patrons_to_anonymise( '2010-10-11')->anonymise_issue_history('2010-10-11');
         ok( $rows_affected > 0, 'AnonymiseIssueHistory should affect at least 1 row' );
 
-- 
2.9.3