@@ -, +, @@ C4::Members::GetBorrowersWhoHaveNeverBorrowed git grep GetBorrowersWhoHaveNeverBorrowed works well enough to find the cleanborrowers.pl too. --- C4/Members.pm | 48 ------------------------------------------------ tools/cleanborrowers.pl | 2 +- 2 files changed, 1 insertion(+), 49 deletions(-) --- a/C4/Members.pm +++ a/C4/Members.pm @@ -73,7 +73,6 @@ BEGIN { &GetBorNotifyAcctRecord &GetBorrowersToExpunge - &GetBorrowersWhoHaveNeverBorrowed &GetBorrowersWithIssuesHistoryOlderThan &IssueSlip @@ -1151,53 +1150,6 @@ sub GetBorrowersToExpunge { return \@results; } -=head2 GetBorrowersWhoHaveNeverBorrowed - - $results = &GetBorrowersWhoHaveNeverBorrowed - -This function get all borrowers who have never borrowed. - -I<$result> is a ref to an array which all elements are a hasref. - -=cut - -sub GetBorrowersWhoHaveNeverBorrowed { - my $filterbranch = shift || - ((C4::Context->preference('IndependentBranches') - && C4::Context->userenv - && !C4::Context->IsSuperLibrarian() - && C4::Context->userenv->{branch}) - ? C4::Context->userenv->{branch} - : ""); - my $dbh = C4::Context->dbh; - my $query = " - SELECT borrowers.borrowernumber,max(timestamp) as latestissue - FROM borrowers - LEFT JOIN issues ON borrowers.borrowernumber = issues.borrowernumber - WHERE issues.borrowernumber IS NULL - "; - my @query_params; - if ($filterbranch && $filterbranch ne ""){ - $query.=" AND borrowers.branchcode= ?"; - push @query_params,$filterbranch; - } - warn $query if $debug; - - my $sth = $dbh->prepare($query); - if (scalar(@query_params)>0){ - $sth->execute(@query_params); - } - else { - $sth->execute; - } - - my @results; - while ( my $data = $sth->fetchrow_hashref ) { - push @results, $data; - } - return \@results; -} - =head2 GetBorrowersWithIssuesHistoryOlderThan $results = &GetBorrowersWithIssuesHistoryOlderThan($date) --- a/tools/cleanborrowers.pl +++ a/tools/cleanborrowers.pl @@ -36,7 +36,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; -use C4::Members; # GetBorrowersWhoHavexxxBorrowed. +use C4::Members; use C4::Circulation; # AnonymiseIssueHistory. use Koha::DateUtils qw( dt_from_string output_pref ); use Koha::Patron::Categories; --