From 088b193cee68036d4b46ccd74ad907d225be919c Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 4 Oct 2023 10:44:57 +0200 Subject: [PATCH] Bug 16260: Remove CheckIfIssuedToPatron --- C4/Circulation.pm | 24 ------------------------ 1 file changed, 24 deletions(-) diff --git a/C4/Circulation.pm b/C4/Circulation.pm index 4c8b51e3c73..af649a49983 100644 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -96,7 +96,6 @@ BEGIN { GetBranchItemRule GetBiblioIssues GetUpcomingDueIssues - CheckIfIssuedToPatron IsItemIssued GetAgeRestriction GetTopIssues @@ -4215,29 +4214,6 @@ sub TransferSlip { ); } -=head2 CheckIfIssuedToPatron - - CheckIfIssuedToPatron($borrowernumber, $biblionumber) - - Return 1 if any record item is issued to patron, otherwise return 0 - -=cut - -sub CheckIfIssuedToPatron { - my ($borrowernumber, $biblionumber) = @_; - - my $dbh = C4::Context->dbh; - my $query = q| - SELECT COUNT(*) FROM issues - LEFT JOIN items ON items.itemnumber = issues.itemnumber - WHERE items.biblionumber = ? - AND issues.borrowernumber = ? - |; - my $is_issued = $dbh->selectrow_array($query, {}, $biblionumber, $borrowernumber ); - return 1 if $is_issued; - return; -} - =head2 IsItemIssued IsItemIssued( $itemnumber ) -- 2.34.1