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'}, |
540 |
if ($sf && $$rec->{$f}->[$i]->{$sf}) { |
if ($sf && $$rec->{$f}->[$i]->{$sf}) { |
541 |
$$found++ if (defined($$found)); |
$$found++ if (defined($$found)); |
542 |
return $$rec->{$f}->[$i]->{$sf}; |
return $$rec->{$f}->[$i]->{$sf}; |
543 |
} elsif ($$rec->{$f}->[$i]) { |
} elsif (! $sf && $$rec->{$f}->[$i]) { |
544 |
$$found++ if (defined($$found)); |
$$found++ if (defined($$found)); |
545 |
# it still might have subfield, just |
# it still might have subfield, just |
546 |
# not specified, so we'll dump all |
# not specified, so we'll dump all |
553 |
} else { |
} else { |
554 |
return $$rec->{$f}->[$i]; |
return $$rec->{$f}->[$i]; |
555 |
} |
} |
556 |
|
} else { |
557 |
|
return ''; |
558 |
} |
} |
559 |
} else { |
} else { |
560 |
return ''; |
return ''; |