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 |
- |
|
|