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

(-)a/C4/Reserves.pm (-4 / +4 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 = get_itemnumbers_of($biblionumber);
394
    my $items = &get_itemnumbers_of($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 (@hostitems,$items);
399
    }
399
    }
400
400
401
    foreach my $item (@items){
401
    my %itemhash = %$items;
402
        foreach my $item (keys %itemhash) {
402
        return 1 if CanItemBeReserved($borrowernumber, $item);
403
        return 1 if CanItemBeReserved($borrowernumber, $item);
403
    }
404
    }
404
    return 0;
405
    return 0;
405
- 

Return to bug 7970