- $batch = C4::Labels::Batch->retrieve(batch_id => $batch_id);
- $batch = C4::Labels::Batch->new(branch_code => $branch_code) if $batch == -2;
+ if ($number_list) {
+ my @numbers_list = split /\n/, $number_list; # Entries are effectively passed in as a <cr> separated list
+ foreach my $number (@numbers_list) {
+ $number =~ s/\r$//; # strip any naughty return chars
+ if( $number_type eq "itemnumber" && GetItem($number) ) {
+ 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
+ if( my $item_number = GetItemnumberFromBarcode($number) ){
+ push @item_numbers, $item_number;
+ }
+ }
+ }
+ }
+ if ($batch_id != 0) {$batch = C4::Labels::Batch->retrieve(batch_id => $batch_id);}
+ if ($batch_id == 0 || $batch == -2) {$batch = C4::Labels::Batch->new(branch_code => $branch_code);}