232 |
use WebPAC::Output::EstraierNative; |
use WebPAC::Output::EstraierNative; |
233 |
$indexer = new WebPAC::Output::EstraierNative( %{ $indexer_config } ); |
$indexer = new WebPAC::Output::EstraierNative( %{ $indexer_config } ); |
234 |
|
|
|
$use_indexer = 'hyperestraier'; |
|
|
|
|
235 |
} elsif ($use_indexer eq 'kinosearch') { |
} elsif ($use_indexer eq 'kinosearch') { |
236 |
|
|
237 |
# open KinoSearch |
# open KinoSearch |
400 |
# reset position in database |
# reset position in database |
401 |
$input_db->seek(1); |
$input_db->seek(1); |
402 |
|
|
403 |
|
# generate name of config key for indexer (strip everything after -) |
404 |
|
my $indexer_config = $use_indexer; |
405 |
|
$indexer_config =~ s/^(\w+)-?.*$/$1/g if ($indexer_config); |
406 |
|
|
407 |
foreach my $pos ( 0 ... $input_db->size ) { |
foreach my $pos ( 0 ... $input_db->size ) { |
408 |
|
|
409 |
my $row = $input_db->fetch || next; |
my $row = $input_db->fetch || next; |
453 |
$indexer->add( |
$indexer->add( |
454 |
id => $input->{name} . "/" . $mfn, |
id => $input->{name} . "/" . $mfn, |
455 |
ds => $ds, |
ds => $ds, |
456 |
type => $config->{$use_indexer}->{type}, |
type => $config->{$indexer_config}->{type}, |
457 |
) if ($indexer && $ds); |
) if ($indexer && $ds); |
458 |
|
|
459 |
if ($marc) { |
if ($marc) { |
493 |
$marc->finish if ($marc); |
$marc->finish if ($marc); |
494 |
|
|
495 |
# close report |
# close report |
496 |
close($report_fh) || $log->logdie("can't close report: $!"); |
close($report_fh) if ($report_fh) |
497 |
} |
} |
498 |
|
|
499 |
} |
} |