From bc2517772526f691026f2f598727d6ceca6db51a Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 9 Jan 2018 14:38:10 -0300 Subject: [PATCH] Bug 19943: Remove C4::Biblio::GetBiblioItemData It is no longer used. Signed-off-by: Kyle M Hall --- C4/Biblio.pm | 29 ----------------------------- 1 file changed, 29 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index dac0656..0242a88 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -67,7 +67,6 @@ BEGIN { push @EXPORT, qw( GetBiblioData GetMarcBiblio - GetBiblioItemData GetBiblioItemInfosOf GetBiblioItemByBiblioNumber @@ -722,34 +721,6 @@ sub GetBiblioData { return ($data); } # sub GetBiblioData -=head2 GetBiblioItemData - - $itemdata = &GetBiblioItemData($biblioitemnumber); - -Looks up the biblioitem with the given biblioitemnumber. Returns a -reference-to-hash. The keys are the fields from the C, -C, and C tables in the Koha database, except -that C is given as C<$itemdata-E{bnotes}>. - -=cut - -sub GetBiblioItemData { - my ($biblioitemnumber) = @_; - my $dbh = C4::Context->dbh; - my $query = "SELECT *,biblioitems.notes AS bnotes - FROM biblio LEFT JOIN biblioitems on biblio.biblionumber=biblioitems.biblionumber "; - unless ( C4::Context->preference('item-level_itypes') ) { - $query .= "LEFT JOIN itemtypes on biblioitems.itemtype=itemtypes.itemtype "; - } - $query .= " WHERE biblioitemnumber = ? "; - my $sth = $dbh->prepare($query); - my $data; - $sth->execute($biblioitemnumber); - $data = $sth->fetchrow_hashref; - $sth->finish; - return ($data); -} # sub &GetBiblioItemData - =head2 GetBiblioItemByBiblioNumber NOTE : This function has been copy/paste from C4/Biblio.pm from head before zebra integration. -- 2.10.2