View | Details | Raw Unified | Return to bug 16260
Collapse All | Expand All

(-)a/C4/Circulation.pm (-25 lines)
Lines 96-102 BEGIN { Link Here
96
      GetBranchItemRule
96
      GetBranchItemRule
97
      GetBiblioIssues
97
      GetBiblioIssues
98
      GetUpcomingDueIssues
98
      GetUpcomingDueIssues
99
      CheckIfIssuedToPatron
100
      IsItemIssued
99
      IsItemIssued
101
      GetAgeRestriction
100
      GetAgeRestriction
102
      GetTopIssues
101
      GetTopIssues
Lines 4215-4243 sub TransferSlip { Link Here
4215
    );
4214
    );
4216
}
4215
}
4217
4216
4218
=head2 CheckIfIssuedToPatron
4219
4220
  CheckIfIssuedToPatron($borrowernumber, $biblionumber)
4221
4222
  Return 1 if any record item is issued to patron, otherwise return 0
4223
4224
=cut
4225
4226
sub CheckIfIssuedToPatron {
4227
    my ($borrowernumber, $biblionumber) = @_;
4228
4229
    my $dbh = C4::Context->dbh;
4230
    my $query = q|
4231
        SELECT COUNT(*) FROM issues
4232
        LEFT JOIN items ON items.itemnumber = issues.itemnumber
4233
        WHERE items.biblionumber = ?
4234
        AND issues.borrowernumber = ?
4235
    |;
4236
    my $is_issued = $dbh->selectrow_array($query, {}, $biblionumber, $borrowernumber );
4237
    return 1 if $is_issued;
4238
    return;
4239
}
4240
4241
=head2 IsItemIssued
4217
=head2 IsItemIssued
4242
4218
4243
  IsItemIssued( $itemnumber )
4219
  IsItemIssued( $itemnumber )
4244
- 

Return to bug 16260