|
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 |
- |
|
|