|
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 |
$barcode =~ s/\n$//; |
| 177 |
$barcode =~ s/^\n//; |
| 178 |
my @data = split(/\n/,$barcode); |
| 179 |
push @uploadedbarcodes, @data; |
| 180 |
} |
| 181 |
for my $barcode (@uploadedbarcodes) { |
| 174 |
next unless $barcode; |
182 |
next unless $barcode; |
| 175 |
++$lines_read; |
183 |
++$lines_read; |
| 176 |
if (length($barcode)>$barcode_size) { |
184 |
if (length($barcode)>$barcode_size) { |
| 177 |
- |
|
|