diff --git a/C4/Items.pm b/C4/Items.pm
index c4ca4489e2..2f588c4e27 100644
--- 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);