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