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