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

(-)a/C4/Members.pm (+5 lines)
Lines 1477-1482 sub GetBorrowersToExpunge { Link Here
1477
    my $params = shift;
1477
    my $params = shift;
1478
    my $filterdate       = $params->{'not_borrowed_since'};
1478
    my $filterdate       = $params->{'not_borrowed_since'};
1479
    my $filterexpiry     = $params->{'expired_before'};
1479
    my $filterexpiry     = $params->{'expired_before'};
1480
    my $filterlastseen   = $params->{'last_seen'};
1480
    my $filtercategory   = $params->{'category_code'};
1481
    my $filtercategory   = $params->{'category_code'};
1481
    my $filterbranch     = $params->{'branchcode'} ||
1482
    my $filterbranch     = $params->{'branchcode'} ||
1482
                        ((C4::Context->preference('IndependentBranches')
1483
                        ((C4::Context->preference('IndependentBranches')
Lines 1517-1522 sub GetBorrowersToExpunge { Link Here
1517
        $query .= " AND dateexpiry < ? ";
1518
        $query .= " AND dateexpiry < ? ";
1518
        push( @query_params, $filterexpiry );
1519
        push( @query_params, $filterexpiry );
1519
    }
1520
    }
1521
    if ( $filterlastseen ) {
1522
        $query .= ' AND lastseen < ? ';
1523
        push @query_params, $filterlastseen;
1524
    }
1520
    if ( $filtercategory ) {
1525
    if ( $filtercategory ) {
1521
        $query .= " AND categorycode = ? ";
1526
        $query .= " AND categorycode = ? ";
1522
        push( @query_params, $filtercategory );
1527
        push( @query_params, $filtercategory );
(-)a/t/db_dependent/Members.t (-5 / +12 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 79;
20
use Test::More tests => 81;
21
use Test::MockModule;
21
use Test::MockModule;
22
use Data::Dumper;
22
use Data::Dumper;
23
use C4::Context;
23
use C4::Context;
Lines 376-384 is( scalar(@$patstodel),2,'Borrowers without issues deleted by expiration_date a Link Here
376
$patstodel = GetBorrowersToExpunge( {not_borrowed_since => '2016-01-02', patron_list_id => $list1->patron_list_id() } );
376
$patstodel = GetBorrowersToExpunge( {not_borrowed_since => '2016-01-02', patron_list_id => $list1->patron_list_id() } );
377
is( scalar(@$patstodel),2,'Borrowers without issues deleted by last issue date');
377
is( scalar(@$patstodel),2,'Borrowers without issues deleted by last issue date');
378
378
379
379
# Test GetBorrowersToExpunge and TrackLastPatronActivity
380
380
$dbh->do(q|UPDATE borrowers SET lastseen=NULL|);
381
381
$builder->build({ source => 'Borrower', value => { lastseen => '2016-01-01 01:01:01', guarantorid => undef } } );
382
$builder->build({ source => 'Borrower', value => { lastseen => '2016-02-02 02:02:02', guarantorid => undef } } );
383
$builder->build({ source => 'Borrower', value => { lastseen => '2016-03-03 03:03:03', guarantorid => undef } } );
384
$patstodel = GetBorrowersToExpunge( { last_seen => '1999-12-12' });
385
is( scalar @$patstodel, 0, 'TrackLastPatronActivity - 0 patrons must be deleted' );
386
$patstodel = GetBorrowersToExpunge( { last_seen => '2016-02-15' });
387
is( scalar @$patstodel, 2, 'TrackLastPatronActivity - 2 patrons must be deleted' );
388
$patstodel = GetBorrowersToExpunge( { last_seen => '2016-04-04' });
389
is( scalar @$patstodel, 3, 'TrackLastPatronActivity - 3 patrons must be deleted' );
382
390
383
# Regression tests for BZ13502
391
# Regression tests for BZ13502
384
## Remove all entries with userid='' (should be only 1 max)
392
## Remove all entries with userid='' (should be only 1 max)
385
- 

Return to bug 16276