Lines 405-411
if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){
Link Here
|
405 |
my ( $table, $column ) = split '\.', $key; |
405 |
my ( $table, $column ) = split '\.', $key; |
406 |
push @translated_keys, NormalizeString($columns->{$table}->{$column} // ''); |
406 |
push @translated_keys, NormalizeString($columns->{$table}->{$column} // ''); |
407 |
} |
407 |
} |
408 |
push @translated_keys, 'problem' if $uploadbarcodes; |
408 |
push @translated_keys, 'Problem' if $uploadbarcodes; |
409 |
|
409 |
|
410 |
$csv->combine(@translated_keys); |
410 |
$csv->combine(@translated_keys); |
411 |
print $csv->string, "\n"; |
411 |
print $csv->string, "\n"; |
Lines 428-433
if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){
Link Here
|
428 |
$errstr .= "no barcode,"; |
428 |
$errstr .= "no barcode,"; |
429 |
} elsif( $key eq 'checkedout' ) { |
429 |
} elsif( $key eq 'checkedout' ) { |
430 |
$errstr .= "checked out,"; |
430 |
$errstr .= "checked out,"; |
|
|
431 |
} elsif( $key eq 'out_of_order' ) { |
432 |
$errstr .= "shelved out of order,"; |
431 |
} |
433 |
} |
432 |
} |
434 |
} |
433 |
$errstr =~ s/,$//; |
435 |
$errstr =~ s/,$//; |
434 |
- |
|
|