--- trunk/lib/WebPAC/Output/KinoSearch.pm	2006/04/17 16:01:02	432
+++ trunk/lib/WebPAC/Output/KinoSearch.pm	2006/04/17 16:50:53	434
@@ -155,13 +155,13 @@
 
 	my $doc = $self->{invindex}->new_doc( $uri ) || $log->logdie("can't create new_doc( $uri )");
 
-	sub add_value($$) {
-		my ($n,$v) = @_;
+	sub add_value($$$) {
+		my ($doc,$n,$v) = @_;
 		eval { $doc->set_value($n, $self->convert($v) ) };
 		$log->warn("can't insert: $n = $v") if ($@);
 	}
 
-	add_value('uri', $uri);
+	add_value($doc, 'uri', $uri);
 
 	$log->debug("ds = ", sub { Dumper($args->{'ds'}) } );
 
@@ -183,11 +183,11 @@
 		$vals = $self->convert( $vals ) or
 			$log->logdie("can't convert '$vals' to UTF-8");
 
-		add_value( $tag, $vals );
+		add_value($doc, $tag, $vals );
 	}
 
 	if (my $text = $args->{'text'}) {
-		add_value( 'bodytext', $text );
+		add_value($doc, 'bodytext', $text );
 	}
 
 	#$log->debug("adding ", sub { $doc->dump_draft } );
@@ -196,6 +196,20 @@
 	return 1;
 }
 
+=head2 finish
+
+Close index
+
+ $index->finish;
+
+=cut
+
+sub finish {
+	my $self = shift;
+
+	$self->_get_logger()->info("finish index writing to disk");
+	$self->{invindex}->finish;
+}
 
 =head2 convert