From 5c8ea79f1440f89b0c404500a54f7fe4f053249a Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 15 Mar 2017 12:42:33 -0300 Subject: [PATCH] Bug 18277: Remove the C4::Biblio::GetBiblionumberFromItemnumber Content-Type: text/plain; charset=utf-8 Signed-off-by: Josef Moravec Signed-off-by: Marcel de Rooy --- C4/Biblio.pm | 16 ---------------- 1 file changed, 16 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index b311104..284b4a2 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -70,7 +70,6 @@ BEGIN { GetBiblioItemData GetBiblioItemInfosOf GetBiblioItemByBiblioNumber - GetBiblionumberFromItemnumber &GetRecordValue @@ -772,21 +771,6 @@ sub GetBiblioItemByBiblioNumber { return @results; } -=head2 GetBiblionumberFromItemnumber - - -=cut - -sub GetBiblionumberFromItemnumber { - my ($itemnumber) = @_; - my $dbh = C4::Context->dbh; - my $sth = $dbh->prepare("Select biblionumber FROM items WHERE itemnumber = ?"); - - $sth->execute($itemnumber); - my ($result) = $sth->fetchrow; - return ($result); -} - =head2 GetISBDView $isbd = &GetISBDView({ -- 2.1.4