View | Details | Raw Unified | Return to bug 7016
Collapse All | Expand All

(-)a/C4/Items.pm (-3 / +3 lines)
Lines 1496-1506 sub GetLastAcquisitions { Link Here
1496
	return @results;
1496
	return @results;
1497
}
1497
}
1498
1498
1499
=head2 GetItemnumberForBiblio
1499
=head2 GetItemnumbersForBiblio
1500
1500
1501
  my @itemnumbers = GetItemnumbersForBiblio($biblionumber);
1501
  my $itemnumbers = GetItemnumbersForBiblio($biblionumber);
1502
1502
1503
Given a single biblionumber, return an array of all the corresponding itemnumbers
1503
Given a single biblionumber, return an arrayref of all the corresponding itemnumbers
1504
1504
1505
=cut
1505
=cut
1506
1506
(-)a/C4/Reserves.pm (-4 / +3 lines)
Lines 391-404 sub GetReservesFromBorrowernumber { Link Here
391
sub CanBookBeReserved{
391
sub CanBookBeReserved{
392
    my ($borrowernumber, $biblionumber) = @_;
392
    my ($borrowernumber, $biblionumber) = @_;
393
393
394
    my @items = GetItemnumbersForBiblio($biblionumber);
394
    my $items = GetItemnumbersForBiblio($biblionumber);
395
    #get items linked via host records
395
    #get items linked via host records
396
    my @hostitems = get_hostitemnumbers_of($biblionumber);
396
    my @hostitems = get_hostitemnumbers_of($biblionumber);
397
    if (@hostitems){
397
    if (@hostitems){
398
	push (@items,@hostitems);
398
	push (@$items,@hostitems);
399
    }
399
    }
400
400
401
    foreach my $item (@items){
401
    foreach my $item (@$items){
402
        return 1 if CanItemBeReserved($borrowernumber, $item);
402
        return 1 if CanItemBeReserved($borrowernumber, $item);
403
    }
403
    }
404
    return 0;
404
    return 0;
405
- 

Return to bug 7016