Lines 316-325
sub ModBiblio {
Link Here
|
316 |
foreach my $fielditem (@fields) { |
316 |
foreach my $fielditem (@fields) { |
317 |
my $field; |
317 |
my $field; |
318 |
foreach ( $fielditem->subfields() ) { |
318 |
foreach ( $fielditem->subfields() ) { |
|
|
319 |
# re-encode the subfield only if it isn't already in utf-8. |
320 |
my ($tag, $value) = @$_; |
321 |
$tag = Encode::encode('utf-8', $tag) unless utf8::is_utf8($tag); |
322 |
$value = Encode::encode('utf-8', $value) unless utf8::is_utf8($value); |
323 |
|
319 |
if ($field) { |
324 |
if ($field) { |
320 |
$field->add_subfields( Encode::encode( 'utf-8', $_->[0] ) => Encode::encode( 'utf-8', $_->[1] ) ); |
325 |
$field->add_subfields( $tag => $value ); |
321 |
} else { |
326 |
} else { |
322 |
$field = MARC::Field->new( "$itemtag", '', '', Encode::encode( 'utf-8', $_->[0] ) => Encode::encode( 'utf-8', $_->[1] ) ); |
327 |
$field = MARC::Field->new( "$itemtag", '', '', $tag => $value ); |
323 |
} |
328 |
} |
324 |
} |
329 |
} |
325 |
$record->append_fields($field); |
330 |
$record->append_fields($field); |
326 |
- |
|
|