&GetBiblioIssues
&GetOpenIssue
&AnonymiseIssueHistory
- &CheckIfIssuedToPatron
+ &CheckIfIssuedToPatron
);
# subs to deal with returns
=cut
sub CheckIfIssuedToPatron {
- my ($borrowernumber, $biblionumber) = @_;
- my $isissued = 0;
+ my ($borrowernumber, $biblionumber) = @_;
- my $items = GetItemsByBiblioitemnumber($biblionumber);
+ my $items = GetItemsByBiblioitemnumber($biblionumber);
- foreach my $item (@{$items}) {
- $isissued = 1 if ($item->{borrowernumber} && $item->{borrowernumber} eq $borrowernumber);
- }
+ foreach my $item (@{$items}) {
+ return 1 if ($item->{borrowernumber} && $item->{borrowernumber} eq $borrowernumber);
+ }
- return $isissued;
+ return;
}
[% UNLESS ( bibitemloo.bib_available ) %]
<div class="bibmessage">No available items.</div>
[% ELSE %]
- [% IF ( bibitemloo.already_patron_possession ) %]
- <div class="bibmessage">This title cannot be requested because it's already in your possession.</div>
- [% ELSE %]
- <div class="bibmessage">This title cannot be requested.</div>
- [% END %]
- [% END %]
+ [% IF ( bibitemloo.already_patron_possession ) %]
+ <div class="bibmessage">This title cannot be requested because it's already in your possession.</div>
+ [% ELSE %]
+ <div class="bibmessage">This title cannot be requested.</div>
+ [% END %]
+ [% END %]
[% END %]