Lines 313-319
$patstodel = GetBorrowersToExpunge( {branchcode => $library3->{branchcode},patro
Link Here
|
313 |
ok( scalar(@$patstodel) == 1 && $patstodel->[0]->{'borrowernumber'} eq $bor2inlist,'Staff patron not deleted by branchcode and list'); |
313 |
ok( scalar(@$patstodel) == 1 && $patstodel->[0]->{'borrowernumber'} eq $bor2inlist,'Staff patron not deleted by branchcode and list'); |
314 |
$patstodel = GetBorrowersToExpunge( {expired_before => '2015-01-02', patron_list_id => $list1->patron_list_id() } ); |
314 |
$patstodel = GetBorrowersToExpunge( {expired_before => '2015-01-02', patron_list_id => $list1->patron_list_id() } ); |
315 |
ok( scalar(@$patstodel) == 1 && $patstodel->[0]->{'borrowernumber'} eq $bor2inlist,'Staff patron not deleted by expirationdate and list'); |
315 |
ok( scalar(@$patstodel) == 1 && $patstodel->[0]->{'borrowernumber'} eq $bor2inlist,'Staff patron not deleted by expirationdate and list'); |
316 |
$patstodel = GetBorrowersToExpunge( {not_borrowered_since => '2016-01-02', patron_list_id => $list1->patron_list_id() } ); |
316 |
$patstodel = GetBorrowersToExpunge( {not_borrowed_since => '2016-01-02', patron_list_id => $list1->patron_list_id() } ); |
317 |
ok( scalar(@$patstodel) == 1 && $patstodel->[0]->{'borrowernumber'} eq $bor2inlist,'Staff patron not deleted by last issue date'); |
317 |
ok( scalar(@$patstodel) == 1 && $patstodel->[0]->{'borrowernumber'} eq $bor2inlist,'Staff patron not deleted by last issue date'); |
318 |
|
318 |
|
319 |
ModMember( borrowernumber => $bor1inlist, categorycode => 'CIVILIAN' ); |
319 |
ModMember( borrowernumber => $bor1inlist, categorycode => 'CIVILIAN' ); |
Lines 325-331
$patstodel = GetBorrowersToExpunge( {branchcode => $library3->{branchcode},patro
Link Here
|
325 |
ok( scalar(@$patstodel) == 1 && $patstodel->[0]->{'borrowernumber'} eq $bor2inlist,'Guarantor patron not deleted by branchcode and list'); |
325 |
ok( scalar(@$patstodel) == 1 && $patstodel->[0]->{'borrowernumber'} eq $bor2inlist,'Guarantor patron not deleted by branchcode and list'); |
326 |
$patstodel = GetBorrowersToExpunge( {expired_before => '2015-01-02', patron_list_id => $list1->patron_list_id() } ); |
326 |
$patstodel = GetBorrowersToExpunge( {expired_before => '2015-01-02', patron_list_id => $list1->patron_list_id() } ); |
327 |
ok( scalar(@$patstodel) == 1 && $patstodel->[0]->{'borrowernumber'} eq $bor2inlist,'Guarantor patron not deleted by expirationdate and list'); |
327 |
ok( scalar(@$patstodel) == 1 && $patstodel->[0]->{'borrowernumber'} eq $bor2inlist,'Guarantor patron not deleted by expirationdate and list'); |
328 |
$patstodel = GetBorrowersToExpunge( {not_borrowered_since => '2016-01-02', patron_list_id => $list1->patron_list_id() } ); |
328 |
$patstodel = GetBorrowersToExpunge( {not_borrowed_since => '2016-01-02', patron_list_id => $list1->patron_list_id() } ); |
329 |
ok( scalar(@$patstodel) == 1 && $patstodel->[0]->{'borrowernumber'} eq $bor2inlist,'Guarantor patron not deleted by last issue date'); |
329 |
ok( scalar(@$patstodel) == 1 && $patstodel->[0]->{'borrowernumber'} eq $bor2inlist,'Guarantor patron not deleted by last issue date'); |
330 |
ModMember( borrowernumber => $guarantee->{borrowernumber}, guarantorid=>'' ); |
330 |
ModMember( borrowernumber => $guarantee->{borrowernumber}, guarantorid=>'' ); |
331 |
|
331 |
|
Lines 350-356
$patstodel = GetBorrowersToExpunge( {category_code => 'CIVILIAN',patron_list_id
Link Here
|
350 |
is( scalar(@$patstodel),2,'Borrowers without issues deleted by category_code and list'); |
350 |
is( scalar(@$patstodel),2,'Borrowers without issues deleted by category_code and list'); |
351 |
$patstodel = GetBorrowersToExpunge( {expired_before => '2015-01-02',patron_list_id => $list1->patron_list_id() } ); |
351 |
$patstodel = GetBorrowersToExpunge( {expired_before => '2015-01-02',patron_list_id => $list1->patron_list_id() } ); |
352 |
is( scalar(@$patstodel),2,'Borrowers without issues deleted by expiration_date and list'); |
352 |
is( scalar(@$patstodel),2,'Borrowers without issues deleted by expiration_date and list'); |
353 |
$patstodel = GetBorrowersToExpunge( {not_borrowered_since => '2016-01-02', patron_list_id => $list1->patron_list_id() } ); |
353 |
$patstodel = GetBorrowersToExpunge( {not_borrowed_since => '2016-01-02', patron_list_id => $list1->patron_list_id() } ); |
354 |
is( scalar(@$patstodel),2,'Borrowers without issues deleted by last issue date'); |
354 |
is( scalar(@$patstodel),2,'Borrowers without issues deleted by last issue date'); |
355 |
|
355 |
|
356 |
|
356 |
|