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