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

(-)a/C4/Reserves.pm (-10 / +7 lines)
Lines 383-399 sub GetReservesFromBorrowernumber { Link Here
383
sub CanBookBeReserved{
383
sub CanBookBeReserved{
384
    my ($borrowernumber, $biblionumber) = @_;
384
    my ($borrowernumber, $biblionumber) = @_;
385
385
386
    my @items = GetItemsInfo($biblionumber);
386
    my @items = get_itemnumbers_of($biblionumber);
387
387
    #get items linked via host records
388
	#get items linked via host records
388
    my @hostitems = get_hostitemnumbers_of($biblionumber);
389
	my $marcrecord= GetMarcBiblio($biblionumber);
389
    if (@hostitems){
390
	my @hostitemInfos = GetHostItemsInfo($marcrecord);
390
	push (@items,@hostitems);
391
	if (@hostitemInfos){
391
    }
392
		push (@items,@hostitemInfos);
393
	}
394
392
395
    foreach my $item (@items){
393
    foreach my $item (@items){
396
        return 1 if CanItemBeReserved($borrowernumber, $item->{itemnumber});
394
        return 1 if CanItemBeReserved($borrowernumber, $item);
397
    }
395
    }
398
    return 0;
396
    return 0;
399
}
397
}
400
- 

Return to bug 7016