From 9f52c6d981c85eca67d6a80f70d38fbf7734fa55 Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Fri, 22 Jan 2016 02:09:54 +0000 Subject: [PATCH] Bug 10612 [QA Followup] 1 - Use Koha::List::Patron 2 - Return only non-empty lists for deletion selection --- tools/cleanborrowers.pl | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/tools/cleanborrowers.pl b/tools/cleanborrowers.pl index d0769f1..27f88c1 100755 --- a/tools/cleanborrowers.pl +++ b/tools/cleanborrowers.pl @@ -85,9 +85,8 @@ if ( $step == 2 ) { my $patrons_to_delete; if ($patron_list_id) { - my @patron_list_patrons = - Koha::Database->new()->schema()->resultset('PatronListPatron') - ->search( { patron_list_id => $patron_list_id } ); + my @patron_list = GetPatronLists( {patron_list_id=>$patron_list_id}); + my @patron_list_patrons = $patron_list[0]->patron_list_patrons(); $patrons_to_delete = \@patron_list_patrons; } else { @@ -125,9 +124,8 @@ elsif ( $step == 3 ) { if ($do_delete) { my $patrons_to_delete; if ($patron_list_id) { - my @patron_list_patrons = - Koha::Database->new()->schema()->resultset('PatronListPatron') - ->search( { patron_list_id => $patron_list_id } ); + my @patron_lists = GetPatronLists( { patron_list_id => $patron_list_id } ); + my @patron_list_patrons = $patron_lists[0]->patron_list_patrons(); $patrons_to_delete = \@patron_list_patrons; } else { @@ -170,7 +168,13 @@ elsif ( $step == 3 ) { testrun => ( $radio eq "testrun" ) ? 1: 0, ); } else { # $step == 1 - $template->param( patron_lists => [ GetPatronLists() ] ); + my @all_lists = GetPatronLists(); + my @non_empty_lists; + foreach my $list (@all_lists){ + my @patrons = $list->patron_list_patrons(); + if( scalar @patrons ) { push(@non_empty_lists,$list) } + } + $template->param( patron_lists => [ @non_empty_lists ] ); } $template->param( -- 2.1.4