Lines 383-399
sub GetReservesFromBorrowernumber {
Link Here
|
383 |
sub CanBookBeReserved{ |
383 |
sub CanBookBeReserved{ |
384 |
my ($borrowernumber, $biblionumber) = @_; |
384 |
my ($borrowernumber, $biblionumber) = @_; |
385 |
|
385 |
|
386 |
my @items = GetItemsInfo($biblionumber); |
386 |
my @items = get_itemnumbers_of($biblionumber); |
387 |
|
387 |
#get items linked via host records |
388 |
#get items linked via host records |
388 |
my @hostitems = get_hostitemnumbers_of($biblionumber); |
389 |
my $marcrecord= GetMarcBiblio($biblionumber); |
389 |
if (@hostitems){ |
390 |
my @hostitemInfos = GetHostItemsInfo($marcrecord); |
390 |
push (@items,@hostitems); |
391 |
if (@hostitemInfos){ |
391 |
} |
392 |
push (@items,@hostitemInfos); |
|
|
393 |
} |
394 |
|
392 |
|
395 |
foreach my $item (@items){ |
393 |
foreach my $item (@items){ |
396 |
return 1 if CanItemBeReserved($borrowernumber, $item->{itemnumber}); |
394 |
return 1 if CanItemBeReserved($borrowernumber, $item); |
397 |
} |
395 |
} |
398 |
return 0; |
396 |
return 0; |
399 |
} |
397 |
} |
400 |
- |
|
|