Attachment #60705 for bug #16966

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

Lines 199-205 sub search_patrons_to_anonymise { Link Here

(-)a/Koha/Patrons.pm (-1 / +1 lines)
199	: undef;	199	: undef;
200		200
201	my $dtf = Koha::Database->new->schema->storage->datetime_parser;	201	my $dtf = Koha::Database->new->schema->storage->datetime_parser;
202	my $rs = $class->search(	202	my $rs = $class->_resultset->search(
203	{ returndate => { '<' => $dtf->format_datetime($older_than_date), },	203	{ returndate => { '<' => $dtf->format_datetime($older_than_date), },
204	'old_issues.borrowernumber' => { 'not' => undef },	204	'old_issues.borrowernumber' => { 'not' => undef },
205	privacy => { '<>' => 0 }, # Keep forever	205	privacy => { '<>' => 0 }, # Keep forever

Lines 19-25 Link Here

(-)a/t/db_dependent/Koha/Patrons.t (-3 / +6 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Test::More tests => 20;	22	use Test::More tests => 21;
23	use Test::Warn;	23	use Test::Warn;
24	use DateTime;	24	use DateTime;
25		25
Lines 688-694 subtest 'search_patrons_to_anonymise & anonymise_issue_history' => sub { Link Here
688	t::lib::Mocks::mock_preference( 'AnonymousPatron', $anonymous->{borrowernumber} );	688	t::lib::Mocks::mock_preference( 'AnonymousPatron', $anonymous->{borrowernumber} );
689		689
690	subtest 'patron privacy is 1 (default)' => sub {	690	subtest 'patron privacy is 1 (default)' => sub {
691	plan tests => 3;	691	plan tests => 4;
692		692
693	t::lib::Mocks::mock_preference('IndependentBranches', 0);	693	t::lib::Mocks::mock_preference('IndependentBranches', 0);
694	my $patron = $builder->build(	694	my $patron = $builder->build(
Lines 715-720 subtest 'search_patrons_to_anonymise & anonymise_issue_history' => sub { Link Here
715		715
716	my ( $returned, undef, undef ) = C4::Circulation::AddReturn( $item->{barcode}, undef, undef, undef, '2010-10-10' );	716	my ( $returned, undef, undef ) = C4::Circulation::AddReturn( $item->{barcode}, undef, undef, undef, '2010-10-10' );
717	is( $returned, 1, 'The item should have been returned' );	717	is( $returned, 1, 'The item should have been returned' );
		718
		719	my $patron_to_anonymise = Koha::Patrons->search_patrons_to_anonymise( '2010-10-11' )->search( { 'me.borrowernumber' => $patron->{borrowernumber} } )->next;
		720	is( ref($patron_to_anonymise), 'Koha::Patron', 'search_patrons_to_anonymise should return Koha::Patrons' );
		721
718	my $rows_affected = Koha::Patrons->search_patrons_to_anonymise( '2010-10-11')->anonymise_issue_history('2010-10-11');	722	my $rows_affected = Koha::Patrons->search_patrons_to_anonymise( '2010-10-11')->anonymise_issue_history('2010-10-11');
719	ok( $rows_affected > 0, 'AnonymiseIssueHistory should affect at least 1 row' );	723	ok( $rows_affected > 0, 'AnonymiseIssueHistory should affect at least 1 row' );
720		724
721	-

Return to bug 16966