|
Lines 359-365
binmode( STDOUT, ':encoding(UTF-8)' );
Link Here
|
| 359 |
our $csv; # the Text::CSV_XS object |
359 |
our $csv; # the Text::CSV_XS object |
| 360 |
our $csv_fh; # the filehandle to the CSV file. |
360 |
our $csv_fh; # the filehandle to the CSV file. |
| 361 |
if ( defined $csvfilename ) { |
361 |
if ( defined $csvfilename ) { |
| 362 |
my $sep_char = C4::Context->preference('delimiter') || ','; |
362 |
my $sep_char = C4::Context->preference('delimiter') || ';'; |
| 363 |
$sep_char = "\t" if ($sep_char eq 'tabulation'); |
363 |
$sep_char = "\t" if ($sep_char eq 'tabulation'); |
| 364 |
$csv = Text::CSV_XS->new( { binary => 1 , sep_char => $sep_char } ); |
364 |
$csv = Text::CSV_XS->new( { binary => 1 , sep_char => $sep_char } ); |
| 365 |
if ( $csvfilename eq '' ) { |
365 |
if ( $csvfilename eq '' ) { |
|
Lines 629-635
END_SQL
Link Here
|
| 629 |
# Generate the content of the csv with headers |
629 |
# Generate the content of the csv with headers |
| 630 |
my $content; |
630 |
my $content; |
| 631 |
if ( defined $csvfilename ) { |
631 |
if ( defined $csvfilename ) { |
| 632 |
my $delimiter = C4::Context->preference('delimiter') // ';'; |
632 |
my $delimiter = C4::Context->preference('delimiter') || ';'; |
| 633 |
$content = join($delimiter, qw(title name surname address1 address2 zipcode city country email itemcount itemsinfo due_date issue_date)) . "\n"; |
633 |
$content = join($delimiter, qw(title name surname address1 address2 zipcode city country email itemcount itemsinfo due_date issue_date)) . "\n"; |
| 634 |
} |
634 |
} |
| 635 |
else { |
635 |
else { |
| 636 |
- |
|
|