|
Lines 35-40
use C4::Circulation qw( barcodedecode AddReturn );
Link Here
|
| 35 |
use C4::Reports::Guided qw( ); |
35 |
use C4::Reports::Guided qw( ); |
| 36 |
use C4::Charset qw( NormalizeString ); |
36 |
use C4::Charset qw( NormalizeString ); |
| 37 |
|
37 |
|
|
|
38 |
use Koha::I18N qw(__); |
| 38 |
use Koha::Biblios; |
39 |
use Koha::Biblios; |
| 39 |
use Koha::DateUtils qw( dt_from_string ); |
40 |
use Koha::DateUtils qw( dt_from_string ); |
| 40 |
use Koha::Database::Columns; |
41 |
use Koha::Database::Columns; |
|
Lines 405-411
if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){
Link Here
|
| 405 |
my ( $table, $column ) = split '\.', $key; |
406 |
my ( $table, $column ) = split '\.', $key; |
| 406 |
push @translated_keys, NormalizeString($columns->{$table}->{$column} // ''); |
407 |
push @translated_keys, NormalizeString($columns->{$table}->{$column} // ''); |
| 407 |
} |
408 |
} |
| 408 |
push @translated_keys, 'problem' if $uploadbarcodes; |
409 |
push @translated_keys, __('problem') if $uploadbarcodes; |
| 409 |
|
410 |
|
| 410 |
$csv->combine(@translated_keys); |
411 |
$csv->combine(@translated_keys); |
| 411 |
print $csv->string, "\n"; |
412 |
print $csv->string, "\n"; |
|
Lines 419-433
if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){
Link Here
|
| 419 |
my $errstr = ''; |
420 |
my $errstr = ''; |
| 420 |
foreach my $key ( keys %{$item->{problems}} ) { |
421 |
foreach my $key ( keys %{$item->{problems}} ) { |
| 421 |
if( $key eq 'wrongplace' ) { |
422 |
if( $key eq 'wrongplace' ) { |
| 422 |
$errstr .= "wrong place,"; |
423 |
$errstr .= __("wrong place") . ','; |
| 423 |
} elsif( $key eq 'changestatus' ) { |
424 |
} elsif( $key eq 'changestatus' ) { |
| 424 |
$errstr .= "unknown notforloan status,"; |
425 |
$errstr .= __("unknown notforloan status") . ','; |
| 425 |
} elsif( $key eq 'not_scanned' ) { |
426 |
} elsif( $key eq 'not_scanned' ) { |
| 426 |
$errstr .= "missing,"; |
427 |
$errstr .= __("missing") . ','; |
| 427 |
} elsif( $key eq 'no_barcode' ) { |
428 |
} elsif( $key eq 'no_barcode' ) { |
| 428 |
$errstr .= "no barcode,"; |
429 |
$errstr .= __("no barcode") . ','; |
| 429 |
} elsif( $key eq 'checkedout' ) { |
430 |
} elsif( $key eq 'checkedout' ) { |
| 430 |
$errstr .= "checked out,"; |
431 |
$errstr .= __("checked out") . ','; |
| 431 |
} |
432 |
} |
| 432 |
} |
433 |
} |
| 433 |
$errstr =~ s/,$//; |
434 |
$errstr =~ s/,$//; |
|
Lines 440-446
if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){
Link Here
|
| 440 |
my @line; |
441 |
my @line; |
| 441 |
if ($error->{'ERR_BARCODE'}) { |
442 |
if ($error->{'ERR_BARCODE'}) { |
| 442 |
push @line, map { $_ eq 'barcode' ? $error->{'barcode'} : ''} @keys; |
443 |
push @line, map { $_ eq 'barcode' ? $error->{'barcode'} : ''} @keys; |
| 443 |
push @line, "barcode not found"; |
444 |
push @line, __("barcode not found"); |
| 444 |
$csv->combine(@line); |
445 |
$csv->combine(@line); |
| 445 |
print $csv->string, "\n"; |
446 |
print $csv->string, "\n"; |
| 446 |
} |
447 |
} |
| 447 |
- |
|
|