|
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 |
|