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