From d7326b14fb1ee871140f5b598204ea6a46a06915 Mon Sep 17 00:00:00 2001 From: Kyle M Hall 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