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 |
- |
|
|