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

(-)a/Koha/BackgroundJob/ImportKBARTFile.pm (-1 / +2 lines)
Lines 235-241 sub read_file { Link Here
235
            sep_char           => $delimiter,
235
            sep_char           => $delimiter,
236
            quote_char         => $quote_char,
236
            quote_char         => $quote_char,
237
            binary             => 1,
237
            binary             => 1,
238
            allow_loose_quotes => 1
238
            allow_loose_quotes => 1,
239
            formula            => 'empty'
239
        }
240
        }
240
    );
241
    );
241
    my $headers_to_check = $csv->getline($fh);
242
    my $headers_to_check = $csv->getline($fh);
(-)a/Koha/ERM/EUsage/CounterFile.pm (-3 / +3 lines)
Lines 304-310 sub validate { Link Here
304
    my ($self) = @_;
304
    my ($self) = @_;
305
305
306
    open my $fh, "<", \$self->file_content or die;
306
    open my $fh, "<", \$self->file_content or die;
307
    my $csv = Text::CSV_XS->new( { binary => 1, always_quote => 1, eol => $/, decode_utf8 => 1 } );
307
    my $csv = Text::CSV_XS->new( { binary => 1, always_quote => 1, eol => $/, decode_utf8 => 1, formula => 'empty' } );
308
308
309
    $csv->column_names(qw( header_key header_value ));
309
    $csv->column_names(qw( header_key header_value ));
310
    my @header_rows = $csv->getline_hr_all( $fh, 0, 12 );
310
    my @header_rows = $csv->getline_hr_all( $fh, 0, 12 );
Lines 331-337 sub _set_report_type_from_file { Link Here
331
    my ($self) = @_;
331
    my ($self) = @_;
332
332
333
    open my $fh, "<", \$self->file_content or die;
333
    open my $fh, "<", \$self->file_content or die;
334
    my $csv = Text::CSV_XS->new( { binary => 1, always_quote => 1, eol => $/, decode_utf8 => 1 } );
334
    my $csv = Text::CSV_XS->new( { binary => 1, always_quote => 1, eol => $/, decode_utf8 => 1, formula => 'empty' } );
335
335
336
    $csv->column_names(qw( header_key header_value ));
336
    $csv->column_names(qw( header_key header_value ));
337
    my @header_rows = $csv->getline_hr_all( $fh, 0, 12 );
337
    my @header_rows = $csv->getline_hr_all( $fh, 0, 12 );
Lines 354-360 sub _get_rows_from_COUNTER_file { Link Here
354
    my ($self) = @_;
354
    my ($self) = @_;
355
355
356
    open my $fh, "<", \$self->file_content or die;
356
    open my $fh, "<", \$self->file_content or die;
357
    my $csv = Text::CSV_XS->new( { binary => 1, always_quote => 1, eol => $/, decode_utf8 => 1 } );
357
    my $csv = Text::CSV_XS->new( { binary => 1, always_quote => 1, eol => $/, decode_utf8 => 1, formula => 'empty' } );
358
358
359
    my $header_columns = $csv->getline_all( $fh, 13, 1 );
359
    my $header_columns = $csv->getline_all( $fh, 13, 1 );
360
    $csv->column_names( @{$header_columns}[0] );
360
    $csv->column_names( @{$header_columns}[0] );
(-)a/Koha/Patrons/Import.pm (-2 / +1 lines)
Lines 65-71 has 'today_iso' => ( Link Here
65
65
66
has 'text_csv' => (
66
has 'text_csv' => (
67
    is      => 'rw', lazy => 1,
67
    is      => 'rw', lazy => 1,
68
    default => sub { Text::CSV->new( { binary => 1, } ); },
68
    default => sub { Text::CSV->new( { binary => 1, formula => 'empty' } ); },
69
);
69
);
70
70
71
sub import_patrons {
71
sub import_patrons {
72
- 

Return to bug 40579