Bug 21183: Remove GetItemnumberFromBarcode

Test plan:
  git grep GetItemnumberFromBarcode
should not return anything

Signed-off-by: Josef Moravec <josef.moravec@gmail.com>
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>

diff --git a/C4/Items.pm b/C4/Items.pm
index c4ca448..2f588c4 100644 (file)
--- a/C4/Items.pm
+++ b/C4/Items.pm
@@ -75,7 +75,6 @@ BEGIN {
        GetHostItemsInfo
         GetItemnumbersForBiblio
        get_hostitemnumbers_of
-        GetItemnumberFromBarcode
         GetBarcodeFromItemnumber
         GetHiddenItemnumbers
         ItemSafeToDelete
@@ -1367,23 +1366,6 @@ sub get_hostitemnumbers_of {
 }
 
 
-=head2 GetItemnumberFromBarcode
-
-  $result = GetItemnumberFromBarcode($barcode);
-
-=cut
-
-sub GetItemnumberFromBarcode {
-    my ($barcode) = @_;
-    my $dbh = C4::Context->dbh;
-
-    my $rq =
-      $dbh->prepare("SELECT itemnumber FROM items WHERE items.barcode=?");
-    $rq->execute($barcode);
-    my ($result) = $rq->fetchrow;
-    return ($result);
-}
-
 =head2 GetBarcodeFromItemnumber
 
   $result = GetBarcodeFromItemnumber($itemnumber);