Bug 19025: Remove C4::Reserves::GetReserveInfo

Test plan:
  git grep GetReserveInfo
should not return results

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Jonathan Druart 2017-08-02 11:52:11 -03:00
parent 3ecc6fd8c6
commit bc09af634c
1 changed files with 0 additions and 54 deletions

View File

@ -108,7 +108,6 @@ BEGIN {
&GetReservesForBranch
&GetReservesToBranch
&GetReserveCount
&GetReserveInfo
&GetReserveStatus
&GetOtherReserves
@ -1231,59 +1230,6 @@ sub ModReserveMinusPriority {
_FixPriority({ reserve_id => $reserve_id, rank => '0' });
}
=head2 GetReserveInfo
&GetReserveInfo($reserve_id);
Get item and borrower details for a current hold.
Current implementation this query should have a single result.
=cut
sub GetReserveInfo {
my ( $reserve_id ) = @_;
my $dbh = C4::Context->dbh;
my $strsth="SELECT
reserve_id,
reservedate,
reservenotes,
reserves.borrowernumber,
reserves.biblionumber,
reserves.branchcode,
reserves.waitingdate,
notificationdate,
reminderdate,
priority,
found,
firstname,
surname,
phone,
email,
address,
address2,
cardnumber,
city,
zipcode,
biblio.title,
biblio.author,
items.holdingbranch,
items.itemcallnumber,
items.itemnumber,
items.location,
barcode,
notes
FROM reserves
LEFT JOIN items USING(itemnumber)
LEFT JOIN borrowers USING(borrowernumber)
LEFT JOIN biblio ON (reserves.biblionumber=biblio.biblionumber)
WHERE reserves.reserve_id = ?";
my $sth = $dbh->prepare($strsth);
$sth->execute($reserve_id);
my $data = $sth->fetchrow_hashref;
return $data;
}
=head2 IsAvailableForItemLevelRequest
my $is_available = IsAvailableForItemLevelRequest($item_record,$borrower_record);