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
|
||||
GetItemsLocationInfo
|
||||
GetHostItemsInfo
|
||||
GetItemnumbersForBiblio
|
||||
get_hostitemnumbers_of
|
||||
GetHiddenItemnumbers
|
||||
ItemSafeToDelete
|
||||
|
@ -1238,26 +1237,6 @@ sub GetLastAcquisitions {
|
|||
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
|
||||
|
||||
my @itemnumbers_of = get_hostitemnumbers_of($biblionumber);
|
||||
|
|
Loading…
Reference in a new issue