From 9f70a7581aa9ee30ff3fb285401d14a93396db1e Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 15 Mar 2017 12:21:16 -0300 Subject: [PATCH] Bug 18276: Remove the C4::Biblio::GetBiblioFromItemNumber subroutine Signed-off-by: Josef Moravec --- C4/Biblio.pm | 40 ---------------------------------------- 1 file changed, 40 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 80ca362928..b3111047ec 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -70,7 +70,6 @@ BEGIN { GetBiblioItemData GetBiblioItemInfosOf GetBiblioItemByBiblioNumber - GetBiblioFromItemNumber GetBiblionumberFromItemnumber &GetRecordValue @@ -788,45 +787,6 @@ sub GetBiblionumberFromItemnumber { return ($result); } -=head2 GetBiblioFromItemNumber - - $item = &GetBiblioFromItemNumber($itemnumber,$barcode); - -Looks up the item with the given itemnumber. if undef, try the barcode. - -C<&itemnodata> returns a reference-to-hash whose keys are the fields -from the C, C, and C tables in the Koha -database. - -=cut - -#' -sub GetBiblioFromItemNumber { - my ( $itemnumber, $barcode ) = @_; - my $dbh = C4::Context->dbh; - my $sth; - if ($itemnumber) { - $sth = $dbh->prepare( - "SELECT * FROM items - LEFT JOIN biblio ON biblio.biblionumber = items.biblionumber - LEFT JOIN biblioitems ON biblioitems.biblioitemnumber = items.biblioitemnumber - WHERE items.itemnumber = ?" - ); - $sth->execute($itemnumber); - } else { - $sth = $dbh->prepare( - "SELECT * FROM items - LEFT JOIN biblio ON biblio.biblionumber = items.biblionumber - LEFT JOIN biblioitems ON biblioitems.biblioitemnumber = items.biblioitemnumber - WHERE items.barcode = ?" - ); - $sth->execute($barcode); - } - my $data = $sth->fetchrow_hashref; - $sth->finish; - return ($data); -} - =head2 GetISBDView $isbd = &GetISBDView({ -- 2.11.0