View | Details | Raw Unified | Return to bug 41619
Collapse All | Expand All

(-)a/Koha/CSV.pm (-3 / +2 lines)
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      => undef,                              # Hard-coded to empty for security
94
            formula      => 'empty',                            # 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 // 'empty',
104
            formula      => $self->formula // 'empty',          # Hard-coded catch-all of 'empty' for security
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,
108
- 

Return to bug 41619