@@ -, +, @@ GetBorrowersNamesAndLatestIssue commit 5904681faca77c87ff8071414d66e123a2d3baa9 Date: Wed Mar 19 10:11:12 2008 -0500 CleanBorrowers fixing. git grep GetBorrowersNamesAndLatestIssue --- C4/Members.pm | 26 -------------------------- 1 file changed, 26 deletions(-) --- a/C4/Members.pm +++ a/C4/Members.pm @@ -1963,32 +1963,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 ); --