X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=labels%2Flabel-edit-batch.pl;h=230291e3a418260d3195adff9c6f04d904fcade4;hb=e5f251a709f3ebfcda57cdf7f32185464a6991d5;hp=687402d99f082f266b765275694e6264a4fe1686;hpb=6f204fdf96f16340da184aa27142a391871dcc37;p=koha-ffzg.git

diff --git a/labels/label-edit-batch.pl b/labels/label-edit-batch.pl
index 687402d99f..230291e3a4 100755
--- a/labels/label-edit-batch.pl
+++ b/labels/label-edit-batch.pl
@@ -19,14 +19,14 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
 use Modern::Perl;
-use vars qw($debug);
 
 use CGI qw ( -utf8 );
 
-use C4::Auth qw(get_template_and_user);
-use C4::Output qw(output_html_with_http_headers);
-use C4::Creators;
+use C4::Auth qw( get_template_and_user );
+use C4::Circulation qw( barcodedecode );
+use C4::Creators qw( get_label_summary html_table );
 use C4::Labels;
+use C4::Output qw( output_html_with_http_headers );
 
 use Koha::Items;
 
@@ -90,6 +90,7 @@ elsif ($op eq 'add') {
                 push @item_numbers, $number;
             }
             elsif ($number_type eq "barcode" ) {  # we must test in case an invalid barcode is passed in; we effectively disgard them atm
+                $number = barcodedecode($number);
                 my $item = Koha::Items->find({barcode => $number});
                 push @item_numbers, $item->itemnumber if $item;
             }