From e5929123b9d735d8c4b14c56c134fb9f1c37b3ff Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 7 Dec 2016 14:43:43 +0100 Subject: [PATCH] Bug 17738: Remove C4::Reserves::GetReservesFromBorrowernumber MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit At this point, there should not be any occurrences of GetReservesFromBorrowernumber anymore. Signed-off-by: Marc Véron Signed-off-by: Kyle M Hall Signed-off-by: Marcel de Rooy --- C4/Reserves.pm | 35 ----------------------------------- 1 file changed, 35 deletions(-) diff --git a/C4/Reserves.pm b/C4/Reserves.pm index 6f245c3b20..97dec5e1b6 100644 --- a/C4/Reserves.pm +++ b/C4/Reserves.pm @@ -104,7 +104,6 @@ BEGIN { &AddReserve &GetReserve - &GetReservesFromBorrowernumber &GetReservesForBranch &GetReservesToBranch &GetReserveCount @@ -279,40 +278,6 @@ sub GetReserve { return $sth->fetchrow_hashref(); } -=head2 GetReservesFromBorrowernumber - - $borrowerreserv = GetReservesFromBorrowernumber($borrowernumber,$tatus); - -TODO :: Descritpion - -=cut - -sub GetReservesFromBorrowernumber { - my ( $borrowernumber, $status ) = @_; - my $dbh = C4::Context->dbh; - my $sth; - if ($status) { - $sth = $dbh->prepare(" - SELECT * - FROM reserves - WHERE borrowernumber=? - AND found =? - ORDER BY reservedate - "); - $sth->execute($borrowernumber,$status); - } else { - $sth = $dbh->prepare(" - SELECT * - FROM reserves - WHERE borrowernumber=? - ORDER BY reservedate - "); - $sth->execute($borrowernumber); - } - my $data = $sth->fetchall_arrayref({}); - return @$data; -} - =head2 CanBookBeReserved $canReserve = &CanBookBeReserved($borrowernumber, $biblionumber) -- 2.39.5