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