|
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 |
- |
|
|