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 302-308 sub validate { Link Here
302
    my ($self) = @_;
302
    my ($self) = @_;
303
303
304
    open my $fh, "<", \$self->file_content or die;
304
    open my $fh, "<", \$self->file_content or die;
305
    my $csv = Text::CSV_XS->new( { binary => 1, always_quote => 1, eol => $/, decode_utf8 => 1 } );
305
    my $csv = Text::CSV_XS->new( { binary => 1, always_quote => 1, eol => $/, decode_utf8 => 1, formula => 'empty' } );
306
306
307
    $csv->column_names(qw( header_key header_value ));
307
    $csv->column_names(qw( header_key header_value ));
308
    my @header_rows = $csv->getline_hr_all( $fh, 0, 12 );
308
    my @header_rows = $csv->getline_hr_all( $fh, 0, 12 );
Lines 329-335 sub _set_report_type_from_file { Link Here
329
    my ($self) = @_;
329
    my ($self) = @_;
330
330
331
    open my $fh, "<", \$self->file_content or die;
331
    open my $fh, "<", \$self->file_content or die;
332
    my $csv = Text::CSV_XS->new( { binary => 1, always_quote => 1, eol => $/, decode_utf8 => 1 } );
332
    my $csv = Text::CSV_XS->new( { binary => 1, always_quote => 1, eol => $/, decode_utf8 => 1, formula => 'empty' } );
333
333
334
    $csv->column_names(qw( header_key header_value ));
334
    $csv->column_names(qw( header_key header_value ));
335
    my @header_rows = $csv->getline_hr_all( $fh, 0, 12 );
335
    my @header_rows = $csv->getline_hr_all( $fh, 0, 12 );
Lines 352-358 sub _get_rows_from_COUNTER_file { Link Here
352
    my ($self) = @_;
352
    my ($self) = @_;
353
353
354
    open my $fh, "<", \$self->file_content or die;
354
    open my $fh, "<", \$self->file_content or die;
355
    my $csv = Text::CSV_XS->new( { binary => 1, always_quote => 1, eol => $/, decode_utf8 => 1 } );
355
    my $csv = Text::CSV_XS->new( { binary => 1, always_quote => 1, eol => $/, decode_utf8 => 1, formula => 'empty' } );
356
356
357
    my $header_columns = $csv->getline_all( $fh, 13, 1 );
357
    my $header_columns = $csv->getline_all( $fh, 13, 1 );
358
    $csv->column_names( @{$header_columns}[0] );
358
    $csv->column_names( @{$header_columns}[0] );
(-)a/Koha/Patrons/Import.pm (-2 / +1 lines)
Lines 61-67 has 'today_iso' => ( is => 'ro', lazy => 1, Link Here
61
    default => sub { output_pref( { dt => dt_from_string(), dateonly => 1, dateformat => 'iso' } ); }, );
61
    default => sub { output_pref( { dt => dt_from_string(), dateonly => 1, dateformat => 'iso' } ); }, );
62
62
63
has 'text_csv' => ( is => 'rw', lazy => 1,
63
has 'text_csv' => ( is => 'rw', lazy => 1,
64
    default => sub { Text::CSV->new( { binary => 1, } ); },  );
64
    default => sub { Text::CSV->new( { binary => 1, formula => 'empty' } ); },  );
65
65
66
sub import_patrons {
66
sub import_patrons {
67
    my ($self, $params) = @_;
67
    my ($self, $params) = @_;
68
- 

Return to bug 40579