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