# 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;
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;
}