@@ -, +, @@ --- C4/Items.pm | 6 +++--- C4/Reserves.pm | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) --- a/C4/Items.pm +++ a/C4/Items.pm @@ -1496,11 +1496,11 @@ sub GetLastAcquisitions { return @results; } -=head2 GetItemnumberForBiblio +=head2 GetItemnumbersForBiblio - my @itemnumbers = GetItemnumbersForBiblio($biblionumber); + my $itemnumbers = GetItemnumbersForBiblio($biblionumber); -Given a single biblionumber, return an array of all the corresponding itemnumbers +Given a single biblionumber, return an arrayref of all the corresponding itemnumbers =cut --- a/C4/Reserves.pm +++ a/C4/Reserves.pm @@ -391,14 +391,14 @@ sub GetReservesFromBorrowernumber { sub CanBookBeReserved{ my ($borrowernumber, $biblionumber) = @_; - my @items = GetItemnumbersForBiblio($biblionumber); + my $items = GetItemnumbersForBiblio($biblionumber); #get items linked via host records my @hostitems = get_hostitemnumbers_of($biblionumber); if (@hostitems){ - push (@items,@hostitems); + push (@$items,@hostitems); } - foreach my $item (@items){ + foreach my $item (@$items){ return 1 if CanItemBeReserved($borrowernumber, $item); } return 0; --