| Lines 35-40
          my $as_xml;
      
      
        Link Here | 
        
          | 35 | my $process_zebraqueue; | 35 | my $process_zebraqueue; | 
        
          | 36 | my $do_not_clear_zebraqueue; | 36 | my $do_not_clear_zebraqueue; | 
        
          | 37 | my $verbose_logging; | 37 | my $verbose_logging; | 
            
              |  |  | 38 | my $limit; | 
        
          | 38 | my $zebraidx_log_opt = " -v none,fatal,warn "; | 39 | my $zebraidx_log_opt = " -v none,fatal,warn "; | 
        
          | 39 | my $result = GetOptions( | 40 | my $result = GetOptions( | 
        
          | 40 |     'd:s'           => \$directory, | 41 |     'd:s'           => \$directory, | 
  
    | Lines 52-57
          my $result = GetOptions(
      
      
        Link Here | 
        
          | 52 |     'y'             => \$do_not_clear_zebraqueue, | 53 |     'y'             => \$do_not_clear_zebraqueue, | 
        
          | 53 |     'z'             => \$process_zebraqueue, | 54 |     'z'             => \$process_zebraqueue, | 
        
          | 54 |     'v'             => \$verbose_logging, | 55 |     'v'             => \$verbose_logging, | 
            
              |  |  | 56 |     'l|limit:i'     => \$limit, | 
        
          | 55 | ); | 57 | ); | 
        
          | 56 |  | 58 |  | 
        
          | 57 |  | 59 |  | 
  
    | Lines 313-318
          sub export_marc_records_from_sth {
      
      
        Link Here | 
        
          | 313 |     my $i = 0; | 315 |     my $i = 0; | 
        
          | 314 |     my ( $itemtag, $itemsubfield ) = GetMarcFromKohaField("items.itemnumber",''); | 316 |     my ( $itemtag, $itemsubfield ) = GetMarcFromKohaField("items.itemnumber",''); | 
        
          | 315 |     while (my ($record_number) = $sth->fetchrow_array) { | 317 |     while (my ($record_number) = $sth->fetchrow_array) { | 
            
              |  |  | 318 |         last if defined $limit && $i >= $limit; | 
        
          | 316 |         print "." if ( $verbose_logging ); | 319 |         print "." if ( $verbose_logging ); | 
        
          | 317 |         print "\r$i" unless ($i++ %100 or !$verbose_logging); | 320 |         print "\r$i" unless ($i++ %100 or !$verbose_logging); | 
        
          | 318 |         if ( $nosanitize ) { | 321 |         if ( $nosanitize ) { | 
            
              | 319 | -  |  |  |