|
Lines 91-97
sub new {
Link Here
|
| 91 |
my $self = $class->SUPER::new( |
91 |
my $self = $class->SUPER::new( |
| 92 |
{ |
92 |
{ |
| 93 |
binary => 1, # Always 1 for UTF-8 |
93 |
binary => 1, # Always 1 for UTF-8 |
| 94 |
formula => 'empty', # Always 'empty' for security |
94 |
formula => undef, # Hard-coded to empty for security |
| 95 |
always_quote => $params->{always_quote} // 0, # Overridable |
95 |
always_quote => $params->{always_quote} // 0, # Overridable |
| 96 |
eol => $params->{eol} // "\n", # Overridable |
96 |
eol => $params->{eol} // "\n", # Overridable |
| 97 |
sep_char => $sep_char, # From Koha config or override |
97 |
sep_char => $sep_char, # From Koha config or override |
|
Lines 101-107
sub new {
Link Here
|
| 101 |
$self->{_csv} = Text::CSV_XS->new( |
101 |
$self->{_csv} = Text::CSV_XS->new( |
| 102 |
{ |
102 |
{ |
| 103 |
binary => $self->binary, |
103 |
binary => $self->binary, |
| 104 |
formula => $self->formula, |
104 |
formula => $self->formula // 'empty', |
| 105 |
always_quote => $self->always_quote, |
105 |
always_quote => $self->always_quote, |
| 106 |
eol => $self->eol, |
106 |
eol => $self->eol, |
| 107 |
sep_char => $self->sep_char, |
107 |
sep_char => $self->sep_char, |