Lines 258-264
my $searcher = Koha::SearchEngine::Search->new(
Link Here
|
258 |
print "Characteristic MARC flavour: $marc_flavour\n" if $verbose; |
258 |
print "Characteristic MARC flavour: $marc_flavour\n" if $verbose; |
259 |
my $starttime = gettimeofday; |
259 |
my $starttime = gettimeofday; |
260 |
|
260 |
|
261 |
my $fh = IO::File->new($input_marc_file); # don't let MARC::Batch open the file, as it applies the ':utf8' IO layer |
261 |
# don't let MARC::Batch open the file, as it applies the ':utf8' IO layer |
|
|
262 |
my $fh = IO::File->new($input_marc_file) or die "Could not open $input_marc_file: $!"; |
263 |
|
262 |
if ( defined $format && $format =~ /XML/i ) { |
264 |
if ( defined $format && $format =~ /XML/i ) { |
263 |
|
265 |
|
264 |
# ugly hack follows -- MARC::File::XML, when used by MARC::Batch, |
266 |
# ugly hack follows -- MARC::File::XML, when used by MARC::Batch, |
265 |
- |
|
|