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