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 |
- |
|
|