From 9cc7268362219e39b22aebb03a83e013f467d93a 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 MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit This subroutine is no longer in used and can be removed Test plan: git grep GetReservesToBranch must not return any results Signed-off-by: Marc Véron Signed-off-by: Julian Maurice Signed-off-by: Jonathan Druart --- 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.39.5