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