From d9bc1949e9dd544cf791acccbdacf5a595458ef8 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 Signed-off-by: Tomas Cohen Arazi Signed-off-by: Jonathan Druart --- C4/Biblio.pm | 29 ----------------------------- 1 file changed, 29 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 89bb4f8797..91707fdc61 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -67,7 +67,6 @@ BEGIN { push @EXPORT, qw( GetBiblioData GetMarcBiblio - GetBiblioItemData &GetRecordValue @@ -720,34 +719,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 GetISBDView $isbd = &GetISBDView({ -- 2.39.5