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

(-)a/Koha/Patrons.pm (-1 / +1 lines)
Lines 199-205 sub search_patrons_to_anonymise { Link Here
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
(-)a/t/db_dependent/Koha/Patrons.t (-3 / +6 lines)
Lines 19-25 Link Here
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