New function was actually returning an arrayref, so made
perldoc and function usage consistent.
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
-=head2 GetItemnumberForBiblio
+=head2 GetItemnumbersForBiblio
- my @itemnumbers = GetItemnumbersForBiblio($biblionumber);
+ my $itemnumbers = GetItemnumbersForBiblio($biblionumber);
-Given a single biblionumber, return an array of all the corresponding itemnumbers
+Given a single biblionumber, return an arrayref of all the corresponding itemnumbers
sub CanBookBeReserved{
my ($borrowernumber, $biblionumber) = @_;
sub CanBookBeReserved{
my ($borrowernumber, $biblionumber) = @_;
- my @items = GetItemnumbersForBiblio($biblionumber);
+ my $items = GetItemnumbersForBiblio($biblionumber);
#get items linked via host records
my @hostitems = get_hostitemnumbers_of($biblionumber);
if (@hostitems){
#get items linked via host records
my @hostitems = get_hostitemnumbers_of($biblionumber);
if (@hostitems){
- push (@items,@hostitems);
+ push (@$items,@hostitems);
- foreach my $item (@items){
+ foreach my $item (@$items){
return 1 if CanItemBeReserved($borrowernumber, $item);
}
return 0;
return 1 if CanItemBeReserved($borrowernumber, $item);
}
return 0;