From d7326b14fb1ee871140f5b598204ea6a46a06915 Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Wed, 28 Mar 2012 12:21:46 -0400
Subject: [PATCH] Barcode Prefixes - Followup - Add ability to use barcode prefixes with batch item modification/deletion tool

http://bugs.koha-community.org/show_bug.cgi?id=7676
---
 tools/batchMod.pl |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/tools/batchMod.pl b/tools/batchMod.pl
index 9d59e3a..978f643 100755
--- a/tools/batchMod.pl
+++ b/tools/batchMod.pl
@@ -216,7 +216,8 @@ if ($op eq "show"){
 
         if ($filecontent eq 'barcode_file') {
             foreach my $barcode (@contentlist) {
-
+                $barcode = barcodedecode( $barcode ) if ( C4::Context->preference('itemBarcodeInputFilter') || C4::Context->preference('itembarcodelength') );
+                
                 my $itemnumber = GetItemnumberFromBarcode($barcode);
                 if ($itemnumber) {
                     push @itemnumbers,$itemnumber;
@@ -233,7 +234,8 @@ if ($op eq "show"){
             push my @barcodelist, split(/\s\n/, $list);
 
             foreach my $barcode (@barcodelist) {
-
+                $barcode = barcodedecode( $barcode ) if ( C4::Context->preference('itemBarcodeInputFilter') || C4::Context->preference('itembarcodelength') );
+                
                 my $itemnumber = GetItemnumberFromBarcode($barcode);
                 if ($itemnumber) {
                     push @itemnumbers,$itemnumber;
-- 
1.7.2.5