171 |
#print "field $field [",$self->{'tag'},"] = ",Dumper($self->{'import_xml'}->{'indexer'}->{$field}->{$self->{'tag'}}); |
#print "field $field [",$self->{'tag'},"] = ",Dumper($self->{'import_xml'}->{'indexer'}->{$field}->{$self->{'tag'}}); |
172 |
|
|
173 |
foreach my $tag (@{$self->{'import_xml'}->{'indexer'}->{$field}->{$self->{'tag'}}}) { |
foreach my $tag (@{$self->{'import_xml'}->{'indexer'}->{$field}->{$self->{'tag'}}}) { |
174 |
my $format = $tag->{'value'} || $tag->{'content'}; |
my $format; |
175 |
|
|
176 |
|
$log->logdie("expected tag HASH and got $tag") unless (ref($tag) eq 'HASH'); |
177 |
|
$format = $tag->{'value'} || $tag->{'content'}; |
178 |
|
|
179 |
$log->debug("format: $format"); |
$log->debug("format: $format"); |
180 |
|
|
257 |
|
|
258 |
} |
} |
259 |
|
|
260 |
|
$log->logdie("there is no current_filename defined! Do you have filename tag in conf/normalize/?.xml") unless ($self->{'current_filename'}); |
261 |
|
|
262 |
$self->{'db'}->save_ds( |
$self->{'db'}->save_ds( |
263 |
ds => \@ds, |
ds => \@ds, |
264 |
current_filename => $self->{'current_filename'}, |
current_filename => $self->{'current_filename'}, |