Bug 21201: Remove GetItemnumbersForBiblio
Signed-off-by: Josef Moravec <josef.moravec@gmail.com> Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
This commit is contained in:
parent
02633edc7d
commit
604cc208b5
1 changed files with 0 additions and 21 deletions
21
C4/Items.pm
21
C4/Items.pm
|
@ -72,7 +72,6 @@ BEGIN {
|
||||||
GetItemsInfo
|
GetItemsInfo
|
||||||
GetItemsLocationInfo
|
GetItemsLocationInfo
|
||||||
GetHostItemsInfo
|
GetHostItemsInfo
|
||||||
GetItemnumbersForBiblio
|
|
||||||
get_hostitemnumbers_of
|
get_hostitemnumbers_of
|
||||||
GetHiddenItemnumbers
|
GetHiddenItemnumbers
|
||||||
ItemSafeToDelete
|
ItemSafeToDelete
|
||||||
|
@ -1238,26 +1237,6 @@ sub GetLastAcquisitions {
|
||||||
return @results;
|
return @results;
|
||||||
}
|
}
|
||||||
|
|
||||||
=head2 GetItemnumbersForBiblio
|
|
||||||
|
|
||||||
my $itemnumbers = GetItemnumbersForBiblio($biblionumber);
|
|
||||||
|
|
||||||
Given a single biblionumber, return an arrayref of all the corresponding itemnumbers
|
|
||||||
|
|
||||||
=cut
|
|
||||||
|
|
||||||
sub GetItemnumbersForBiblio {
|
|
||||||
my $biblionumber = shift;
|
|
||||||
my @items;
|
|
||||||
my $dbh = C4::Context->dbh;
|
|
||||||
my $sth = $dbh->prepare("SELECT itemnumber FROM items WHERE biblionumber = ?");
|
|
||||||
$sth->execute($biblionumber);
|
|
||||||
while (my $result = $sth->fetchrow_hashref) {
|
|
||||||
push @items, $result->{'itemnumber'};
|
|
||||||
}
|
|
||||||
return \@items;
|
|
||||||
}
|
|
||||||
|
|
||||||
=head2 get_hostitemnumbers_of
|
=head2 get_hostitemnumbers_of
|
||||||
|
|
||||||
my @itemnumbers_of = get_hostitemnumbers_of($biblionumber);
|
my @itemnumbers_of = get_hostitemnumbers_of($biblionumber);
|
||||||
|
|
Loading…
Reference in a new issue