172 |
|
|
173 |
my $doc = $self->{invindex}->new_doc( $uri ) || $log->logdie("can't create new_doc( $uri )"); |
my $doc = $self->{invindex}->new_doc( $uri ) || $log->logdie("can't create new_doc( $uri )"); |
174 |
|
|
175 |
sub add_value($$$$$) { |
sub _add_value($$$$$) { |
176 |
my ($self,$log,$doc,$n,$v) = @_; |
my ($self,$log,$doc,$n,$v) = @_; |
177 |
return unless ($v); |
return unless ($v); |
178 |
|
|
183 |
$log->warn("can't insert: $n = $v") if ($@); |
$log->warn("can't insert: $n = $v") if ($@); |
184 |
} |
} |
185 |
|
|
186 |
add_value($self,$log,$doc, 'uri', $uri); |
_add_value($self,$log,$doc, 'uri', $uri); |
187 |
|
|
188 |
$log->debug("ds = ", sub { Dumper($args->{'ds'}) } ); |
$log->debug("ds = ", sub { Dumper($args->{'ds'}) } ); |
189 |
|
|
205 |
$vals = $self->convert( $vals ) or |
$vals = $self->convert( $vals ) or |
206 |
$log->logdie("can't convert '$vals' to UTF-8"); |
$log->logdie("can't convert '$vals' to UTF-8"); |
207 |
|
|
208 |
add_value($self, $log, $doc, $tag, $vals ); |
_add_value($self, $log, $doc, $tag, $vals ); |
209 |
} |
} |
210 |
|
|
211 |
if (my $text = $args->{'text'}) { |
if (my $text = $args->{'text'}) { |
212 |
add_value($self, $log, $doc, 'bodytext', $text ); |
_add_value($self, $log, $doc, 'bodytext', $text ); |
213 |
} |
} |
214 |
|
|
215 |
#$log->debug("adding ", sub { $doc->dump_draft } ); |
#$log->debug("adding ", sub { $doc->dump_draft } ); |