gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

bug 7016 further followup: clarify return of GetItemnumbersForBiblio 

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>
Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
This commit is contained in:
Galen Charlton 2012-04-11 16:13:22 -04:00 committed by Jared Camins-Esakov
parent bc79b5d000
commit c85c7ca150
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C4/Items.pm
View File

@ -1500,11 +1500,11 @@ sub GetLastAcquisitions {
return @results;
}
=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
=cut

6
C4/Reserves.pm
View File

@ -384,14 +384,14 @@ sub GetReservesFromBorrowernumber {
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){
push (@items,@hostitems);
push (@$items,@hostitems);
}
foreach my $item (@items){
foreach my $item (@$items){
return 1 if CanItemBeReserved($borrowernumber, $item);
}
return 0;