12 |
|
|
13 |
my ( $analyzer, $store, $writer ); |
my ( $analyzer, $store, $writer ); |
14 |
|
|
15 |
my $debug = 1; |
my $debug = 0; |
16 |
my $create; |
my $create; |
17 |
|
|
18 |
sub create { |
sub create { |
171 |
my $title = $doc->get("title"); |
my $title = $doc->get("title"); |
172 |
my $id = $doc->get("id"); |
my $id = $doc->get("id"); |
173 |
|
|
174 |
warn "## $i $score $title\n"; |
$self->log->debug("result $i $score $title"); |
175 |
|
|
176 |
my $item = Grep::Model::Item->new(); |
my $item = Grep::Model::Item->new(); |
177 |
my ($ok,$msg) = $item->load_by_cols( id => $id ); |
my ($ok,$msg) = $item->load_by_cols( id => $id ); |
202 |
sub finish { |
sub finish { |
203 |
my $self = shift; |
my $self = shift; |
204 |
if ($writer) { |
if ($writer) { |
205 |
warn "closing index\n"; |
$self->log->debug("closing index"); |
206 |
$writer->close; |
$writer->close; |
207 |
} |
} |
208 |
undef $writer; |
undef $writer; |