From 8bbb174bd75f5fb6715905b6ffc45f7267060e46 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 12 Jul 2016 08:37:33 +0100 Subject: [PATCH] Bug 16913: Koha::Patrons - Remove GetBorrowersNamesAndLatestIssue MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Content-Type: text/plain; charset=utf-8 This subroutine has been added by commit 5904681faca77c87ff8071414d66e123a2d3baa9 Date: Wed Mar 19 10:11:12 2008 -0500 CleanBorrowers fixing. but has never been used. It can be removed safely. Test plan: git grep GetBorrowersNamesAndLatestIssue should not return any results. Signed-off-by: Marc VĂ©ron Signed-off-by: Marcel de Rooy --- C4/Members.pm | 26 -------------------------- 1 file changed, 26 deletions(-) diff --git a/C4/Members.pm b/C4/Members.pm index 677e221..7d62ef1 100644 --- a/C4/Members.pm +++ b/C4/Members.pm @@ -1964,32 +1964,6 @@ sub GetBorrowersWithIssuesHistoryOlderThan { return \@results; } -=head2 GetBorrowersNamesAndLatestIssue - - $results = &GetBorrowersNamesAndLatestIssueList(@borrowernumbers) - -this function get borrowers Names and surnames and Issue information. - -I<@borrowernumbers> is an array which all elements are borrowernumbers. -This hashref is containt the number of time this borrowers has borrowed before I<$date> and the borrowernumber. - -=cut - -sub GetBorrowersNamesAndLatestIssue { - my $dbh = C4::Context->dbh; - my @borrowernumbers=@_; - my $query = " - SELECT surname,lastname, phone, email,max(timestamp) - FROM borrowers - LEFT JOIN issues ON borrowers.borrowernumber=issues.borrowernumber - GROUP BY borrowernumber - "; - my $sth = $dbh->prepare($query); - $sth->execute; - my $results = $sth->fetchall_arrayref({}); - return $results; -} - =head2 ModPrivacy my $success = ModPrivacy( $borrowernumber, $privacy ); -- 1.7.10.4