Lines 317-338
sub ModBiblio {
Link Here
|
317 |
# strange, I (Paul P.) searched more than 1 day to understand what happends |
317 |
# strange, I (Paul P.) searched more than 1 day to understand what happends |
318 |
# but could only solve the problem this way... |
318 |
# but could only solve the problem this way... |
319 |
my @fields = $oldRecord->field($itemtag); |
319 |
my @fields = $oldRecord->field($itemtag); |
320 |
foreach my $fielditem (@fields) { |
320 |
$record->append_fields(@fields); |
321 |
my $field; |
321 |
# foreach my $fielditem (@fields) { |
322 |
foreach ( $fielditem->subfields() ) { |
322 |
# my $field; |
323 |
# re-encode the subfield only if it isn't already in utf-8. |
323 |
# foreach ( $fielditem->subfields() ) { |
324 |
my ($tag, $value) = @$_; |
324 |
# # re-encode the subfield only if it isn't already in utf-8. |
325 |
$tag = Encode::encode('utf-8', $tag) unless utf8::is_utf8($tag); |
325 |
# my ($tag, $value) = @$_; |
326 |
$value = Encode::encode('utf-8', $value) unless utf8::is_utf8($value); |
326 |
# $tag = Encode::encode('utf-8', $tag) unless utf8::is_utf8($tag); |
327 |
|
327 |
# $value = Encode::encode('utf-8', $value) unless utf8::is_utf8($value); |
328 |
if ($field) { |
328 |
# |
329 |
$field->add_subfields( $tag => $value ); |
329 |
# if ($field) { |
330 |
} else { |
330 |
# $field->add_subfields( $tag => $value ); |
331 |
$field = MARC::Field->new( "$itemtag", '', '', $tag => $value ); |
331 |
# } else { |
332 |
} |
332 |
# $field = MARC::Field->new( "$itemtag", '', '', $tag => $value ); |
333 |
} |
333 |
# } |
334 |
$record->append_fields($field); |
334 |
# } |
335 |
} |
335 |
# $record->append_fields($field); |
|
|
336 |
# } |
336 |
|
337 |
|
337 |
foreach my $field ($record->fields()) { |
338 |
foreach my $field ($record->fields()) { |
338 |
if (! $field->is_control_field()) { |
339 |
if (! $field->is_control_field()) { |
339 |
- |
|
|