|
Lines 395-401
if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){
Link Here
|
| 395 |
my ( $table, $column ) = split '\.', $key; |
395 |
my ( $table, $column ) = split '\.', $key; |
| 396 |
push @translated_keys, NormalizeString($columns->{$table}->{$column} // ''); |
396 |
push @translated_keys, NormalizeString($columns->{$table}->{$column} // ''); |
| 397 |
} |
397 |
} |
| 398 |
push @translated_keys, 'problem' if $uploadbarcodes; |
398 |
push @translated_keys, 'Problem' if $uploadbarcodes; |
| 399 |
|
399 |
|
| 400 |
$csv->combine(@translated_keys); |
400 |
$csv->combine(@translated_keys); |
| 401 |
print $csv->string, "\n"; |
401 |
print $csv->string, "\n"; |
|
Lines 418-423
if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){
Link Here
|
| 418 |
$errstr .= "no barcode,"; |
418 |
$errstr .= "no barcode,"; |
| 419 |
} elsif( $key eq 'checkedout' ) { |
419 |
} elsif( $key eq 'checkedout' ) { |
| 420 |
$errstr .= "checked out,"; |
420 |
$errstr .= "checked out,"; |
|
|
421 |
} elsif( $key eq 'out_of_order' ) { |
| 422 |
$errstr .= "shelved out of order,"; |
| 421 |
} |
423 |
} |
| 422 |
} |
424 |
} |
| 423 |
$errstr =~ s/,$//; |
425 |
$errstr =~ s/,$//; |
| 424 |
- |
|
|