Bug 21184: Remove GetBarcodeFromItemnumber

Test plan:
  git grep GetBarcodeFromItemnumber
should not return anything

Signed-off-by: Josef Moravec <josef.moravec@gmail.com>
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>

diff --git a/C4/Items.pm b/C4/Items.pm
index 6a8cb07..fa9c9ac 100644 (file)
--- a/C4/Items.pm
+++ b/C4/Items.pm
@@ -74,7 +74,6 @@ BEGIN {
        GetHostItemsInfo
         GetItemnumbersForBiblio
        get_hostitemnumbers_of
-        GetBarcodeFromItemnumber
         GetHiddenItemnumbers
         ItemSafeToDelete
         DelItemCheck
@@ -1307,24 +1306,6 @@ sub get_hostitemnumbers_of {
     return @returnhostitemnumbers;
 }
 
-
-=head2 GetBarcodeFromItemnumber
-
-  $result = GetBarcodeFromItemnumber($itemnumber);
-
-=cut
-
-sub GetBarcodeFromItemnumber {
-    my ($itemnumber) = @_;
-    my $dbh = C4::Context->dbh;
-
-    my $rq =
-      $dbh->prepare("SELECT barcode FROM items WHERE items.itemnumber=?");
-    $rq->execute($itemnumber);
-    my ($result) = $rq->fetchrow;
-    return ($result);
-}
-
 =head2 GetHiddenItemnumbers
 
     my @itemnumbers_to_hide = GetHiddenItemnumbers(@items);