Lines 161-166
if ( $uploadbarcodes && length($uploadbarcodes) > 0 ) {
Link Here
|
161 |
my $count = 0; |
161 |
my $count = 0; |
162 |
|
162 |
|
163 |
my @barcodes; |
163 |
my @barcodes; |
|
|
164 |
my @uploadedbarcodes; |
164 |
|
165 |
|
165 |
my $sth = $dbh->column_info(undef,undef,"items","barcode"); |
166 |
my $sth = $dbh->column_info(undef,undef,"items","barcode"); |
166 |
my $barcode_def = $sth->fetchall_hashref('COLUMN_NAME'); |
167 |
my $barcode_def = $sth->fetchall_hashref('COLUMN_NAME'); |
Lines 169-176
if ( $uploadbarcodes && length($uploadbarcodes) > 0 ) {
Link Here
|
169 |
my $err_data=0; |
170 |
my $err_data=0; |
170 |
my $lines_read=0; |
171 |
my $lines_read=0; |
171 |
binmode($uploadbarcodes, ":encoding(UTF-8)"); |
172 |
binmode($uploadbarcodes, ":encoding(UTF-8)"); |
172 |
while (my $barcode=<$uploadbarcodes>){ |
173 |
while (my $barcode=<$uploadbarcodes>) { |
173 |
$barcode =~ s/\r?\n$//; |
174 |
$barcode =~ s/\r/\n/g; |
|
|
175 |
$barcode =~ s/\n\n/\n/g; |
176 |
push @uploadedbarcodes, @data; |
177 |
} |
178 |
for my $barcode (@uploadedbarcodes) { |
174 |
next unless $barcode; |
179 |
next unless $barcode; |
175 |
++$lines_read; |
180 |
++$lines_read; |
176 |
if (length($barcode)>$barcode_size) { |
181 |
if (length($barcode)>$barcode_size) { |
177 |
- |
|
|