--- trunk/lib/WebPAC/Output/KinoSearch.pm	2006/08/01 18:20:59	610
+++ trunk/lib/WebPAC/Output/KinoSearch.pm	2006/08/25 16:20:21	620
@@ -172,7 +172,7 @@
 
 	my $doc = $self->{invindex}->new_doc( $uri ) || $log->logdie("can't create new_doc( $uri )");
 
-	sub add_value($$$$$) {
+	sub _add_value($$$$$) {
 		my ($self,$log,$doc,$n,$v) = @_;
 		return unless ($v);
 
@@ -183,7 +183,7 @@
 		$log->warn("can't insert: $n = $v") if ($@);
 	}
 
-	add_value($self,$log,$doc, 'uri', $uri);
+	_add_value($self,$log,$doc, 'uri', $uri);
 
 	$log->debug("ds = ", sub { Dumper($args->{'ds'}) } );
 
@@ -205,11 +205,11 @@
 		$vals = $self->convert( $vals ) or
 			$log->logdie("can't convert '$vals' to UTF-8");
 
-		add_value($self, $log, $doc, $tag, $vals );
+		_add_value($self, $log, $doc, $tag, $vals );
 	}
 
 	if (my $text = $args->{'text'}) {
-		add_value($self, $log, $doc, 'bodytext', $text );
+		_add_value($self, $log, $doc, 'bodytext', $text );
 	}
 
 	#$log->debug("adding ", sub { $doc->dump_draft } );