|
Lines 330-335
our $csv; # the Text::CSV_XS object
Link Here
|
| 330 |
our $csv_fh; # the filehandle to the CSV file. |
330 |
our $csv_fh; # the filehandle to the CSV file. |
| 331 |
if ( defined $csvfilename ) { |
331 |
if ( defined $csvfilename ) { |
| 332 |
my $sep_char = C4::Context->preference('delimiter') || ','; |
332 |
my $sep_char = C4::Context->preference('delimiter') || ','; |
|
|
333 |
$sep_char = "\t" if ($sep_char eq 'tabulation'); |
| 333 |
$csv = Text::CSV_XS->new( { binary => 1 , sep_char => $sep_char } ); |
334 |
$csv = Text::CSV_XS->new( { binary => 1 , sep_char => $sep_char } ); |
| 334 |
if ( $csvfilename eq '' ) { |
335 |
if ( $csvfilename eq '' ) { |
| 335 |
$csv_fh = *STDOUT; |
336 |
$csv_fh = *STDOUT; |
| 336 |
- |
|
|