r870@llin: dpavlin | 2006-08-25 18:20:15 +0200

 make _add_value private to please pod coverage

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@620 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Output/KinoSearch.pm b/lib/WebPAC/Output/KinoSearch.pm
index c26b895..35421bb 100644 (file)
--- a/lib/WebPAC/Output/KinoSearch.pm
+++ b/lib/WebPAC/Output/KinoSearch.pm
@@ -172,7 +172,7 @@ sub add {
 
        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 @@ sub add {
                $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 @@ sub add {
                $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 } );