- sub add_value($$$$$) {
- my ($self,$log,$doc,$n,$v) = @_;
- return unless ($v);
- eval { $doc->set_value($n, $self->convert($v) ) };
- $log->warn("can't insert: $n = $v") if ($@);
- }
-
- add_value($self,$log,$doc, 'uri', $uri);
-
- $log->debug("ds = ", sub { Dumper($args->{'ds'}) } );
-
- # filter all tags which have type defined
- my @tags = grep {
- ref($args->{'ds'}->{$_}) eq 'HASH' && defined( $args->{'ds'}->{$_}->{$type} )
- } keys %{ $args->{'ds'} };
-
- $log->debug("tags = ", join(",", @tags));