View | Details | Raw Unified | Return to bug 10625
Collapse All | Expand All

(-)a/tools/inventory.pl (-3 / +10 lines)
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
- 

Return to bug 10625