|
Lines 382-390
sub GetReservesFromBorrowernumber {
Link Here
|
| 382 |
sub CanBookBeReserved{ |
382 |
sub CanBookBeReserved{ |
| 383 |
my ($borrowernumber, $biblionumber) = @_; |
383 |
my ($borrowernumber, $biblionumber) = @_; |
| 384 |
|
384 |
|
| 385 |
my @items = GetItemsInfo($biblionumber); |
385 |
my @items = get_itemnumbers_of($biblionumber); |
| 386 |
foreach my $item (@items){ |
386 |
foreach my $item (@items){ |
| 387 |
return 1 if CanItemBeReserved($borrowernumber, $item->{itemnumber}); |
387 |
return 1 if CanItemBeReserved($borrowernumber, $item); |
| 388 |
} |
388 |
} |
| 389 |
return 0; |
389 |
return 0; |
| 390 |
} |
390 |
} |
| 391 |
- |
|
|