From c655c8ccea207fd98190714b080225db1798fe4e Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 2 Aug 2017 12:00:00 -0300 Subject: [PATCH] Bug 19057: Remove C4::Reserves::GetReserve MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Marc VĂ©ron --- C4/Reserves.pm | 20 -------------------- 1 file changed, 20 deletions(-) diff --git a/C4/Reserves.pm b/C4/Reserves.pm index e1b3227..575e486 100644 --- a/C4/Reserves.pm +++ b/C4/Reserves.pm @@ -104,7 +104,6 @@ BEGIN { @EXPORT = qw( &AddReserve - &GetReserve &GetReservesForBranch &GetReserveStatus @@ -257,25 +256,6 @@ sub AddReserve { return $reserve_id; } -=head2 GetReserve - - $res = GetReserve( $reserve_id ); - - Return the current reserve. - -=cut - -sub GetReserve { - my ($reserve_id) = @_; - - my $dbh = C4::Context->dbh; - - my $query = "SELECT * FROM reserves WHERE reserve_id = ?"; - my $sth = $dbh->prepare( $query ); - $sth->execute( $reserve_id ); - return $sth->fetchrow_hashref(); -} - =head2 CanBookBeReserved $canReserve = &CanBookBeReserved($borrowernumber, $biblionumber) -- 2.1.4