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

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

Return to bug 19585