From 5b4b501fbdd0d43ee5ecf4b5a8dc19d77c1398d0 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 24 Feb 2017 12:25:33 +0100 Subject: [PATCH] Bug 16966: Fix small QA issues --- Koha/Patrons.pm | 2 +- t/db_dependent/Koha/Patrons.t | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Koha/Patrons.pm b/Koha/Patrons.pm index 8430d16..5571417 100644 --- a/Koha/Patrons.pm +++ b/Koha/Patrons.pm @@ -71,7 +71,7 @@ sub search_housebound_deliverers { return Koha::Patrons->_new_from_dbic($del); } -=head3 +=head3 search_upcoming_membership_expires my $patrons = Koha::Patrons->search_upcoming_membership_expires(); diff --git a/t/db_dependent/Koha/Patrons.t b/t/db_dependent/Koha/Patrons.t index 04f4565..09a060e 100644 --- a/t/db_dependent/Koha/Patrons.t +++ b/t/db_dependent/Koha/Patrons.t @@ -716,8 +716,8 @@ 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 $patrons_to_anonymise = Koha::Patrons->search_patrons_to_anonymise( '2010-10-11' )->search( { 'me.borrowernumber' => $patron->{borrowernumber} } ); + is( ref($patrons_to_anonymise), 'Koha::Patrons', '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