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