Lines 154-163
if ( $uploadbarcodes && length($uploadbarcodes) > 0 ) {
Link Here
|
154 |
my $lines_read=0; |
154 |
my $lines_read=0; |
155 |
binmode($uploadbarcodes, ":encoding(UTF-8)"); |
155 |
binmode($uploadbarcodes, ":encoding(UTF-8)"); |
156 |
while (my $barcode=<$uploadbarcodes>) { |
156 |
while (my $barcode=<$uploadbarcodes>) { |
157 |
$barcode =~ s/\r/\n/g; |
157 |
push @uploadedbarcodes, grep { $_ } split( /\n|\r|[,;|]/, $barcode ); |
158 |
$barcode =~ s/\n\n/\n/g; |
|
|
159 |
my @data = split(/\n/,$barcode); |
160 |
push @uploadedbarcodes, @data; |
161 |
} |
158 |
} |
162 |
for my $barcode (@uploadedbarcodes) { |
159 |
for my $barcode (@uploadedbarcodes) { |
163 |
next unless $barcode; |
160 |
next unless $barcode; |
164 |
- |
|
|