From 9d6a4a5c9bb6002dedbbde7f80a45d0fd5fd6095 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 7 Aug 2017 17:25:15 -0300 Subject: [PATCH] Bug 19055: Remove C4::Reserves::GetReservesToBranch This subroutine is no longer in used and can be removed Test plan: git grep GetReservesToBranch must not return any results --- C4/Reserves.pm | 28 ---------------------------- 1 file changed, 28 deletions(-) diff --git a/C4/Reserves.pm b/C4/Reserves.pm index c3b21264f9..f07dd7f042 100644 --- a/C4/Reserves.pm +++ b/C4/Reserves.pm @@ -106,7 +106,6 @@ BEGIN { &GetReserve &GetReservesForBranch - &GetReservesToBranch &GetReserveCount &GetReserveStatus @@ -609,33 +608,6 @@ SELECT COUNT(*) FROM reserves WHERE biblionumber=? AND borrowernumber<>? return $fee; } -=head2 GetReservesToBranch - - @transreserv = GetReservesToBranch( $frombranch ); - -Get reserve list for a given branch - -=cut - -sub GetReservesToBranch { - my ( $frombranch ) = @_; - my $dbh = C4::Context->dbh; - my $sth = $dbh->prepare( - "SELECT reserve_id,borrowernumber,reservedate,itemnumber,timestamp - FROM reserves - WHERE priority='0' - AND branchcode=?" - ); - $sth->execute( $frombranch ); - my @transreserv; - my $i = 0; - while ( my $data = $sth->fetchrow_hashref ) { - $transreserv[$i] = $data; - $i++; - } - return (@transreserv); -} - =head2 GetReservesForBranch @transreserv = GetReservesForBranch($frombranch); -- 2.11.0