Lines 83-89
BEGIN {
Link Here
|
83 |
&GetBiblioIssues |
83 |
&GetBiblioIssues |
84 |
&GetOpenIssue |
84 |
&GetOpenIssue |
85 |
&AnonymiseIssueHistory |
85 |
&AnonymiseIssueHistory |
86 |
&CheckIfIssuedToPatron |
86 |
&CheckIfIssuedToPatron |
87 |
); |
87 |
); |
88 |
|
88 |
|
89 |
# subs to deal with returns |
89 |
# subs to deal with returns |
Lines 3455-3470
sub TransferSlip {
Link Here
|
3455 |
=cut |
3455 |
=cut |
3456 |
|
3456 |
|
3457 |
sub CheckIfIssuedToPatron { |
3457 |
sub CheckIfIssuedToPatron { |
3458 |
my ($borrowernumber, $biblionumber) = @_; |
3458 |
my ($borrowernumber, $biblionumber) = @_; |
3459 |
my $isissued = 0; |
|
|
3460 |
|
3459 |
|
3461 |
my $items = GetItemsByBiblioitemnumber($biblionumber); |
3460 |
my $items = GetItemsByBiblioitemnumber($biblionumber); |
3462 |
|
3461 |
|
3463 |
foreach my $item (@{$items}) { |
3462 |
foreach my $item (@{$items}) { |
3464 |
$isissued = 1 if ($item->{borrowernumber} && $item->{borrowernumber} eq $borrowernumber); |
3463 |
return 1 if ($item->{borrowernumber} && $item->{borrowernumber} eq $borrowernumber); |
3465 |
} |
3464 |
} |
3466 |
|
3465 |
|
3467 |
return $isissued; |
3466 |
return; |
3468 |
} |
3467 |
} |
3469 |
|
3468 |
|
3470 |
|
3469 |
|