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

(-)a/Koha/BackgroundJob/ImportKBARTFile.pm (-7 / +8 lines)
Lines 241-254 sub read_file { Link Here
241
    my $headers_to_check = $csv->getline($fh);
241
    my $headers_to_check = $csv->getline($fh);
242
    my $column_headers   = rescue_EBSCO_files($headers_to_check);
242
    my $column_headers   = rescue_EBSCO_files($headers_to_check);
243
    my $lines            = $csv->getline_all( $fh, 0 );
243
    my $lines            = $csv->getline_all( $fh, 0 );
244
245
    my ( $cde, $str, $pos ) = $csv->error_diag();
246
    my $error = $cde ? "$cde, $str, $pos" : "";
247
    warn $error if $error;
248
249
    close($fh);
244
    close($fh);
250
245
251
    return ( $column_headers, $lines, $error );
246
    unless($csv->eof()) {
247
        my ( $cde, $str, $pos ) = $csv->error_diag();
248
        my $error = $cde ? "$cde, $str, $pos" : "";
249
        warn $error if $error;
250
        return ( $column_headers, $lines, $error );
251
    }
252
253
    return ( $column_headers, $lines );
252
}
254
}
253
255
254
=head3 create_title_hash_from_line_data
256
=head3 create_title_hash_from_line_data
255
- 

Return to bug 36935