@@ -, +, @@ --- C4/Circulation.pm | 24 ------------------------ 1 file changed, 24 deletions(-) --- a/C4/Circulation.pm +++ a/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 ) --