View | Details | Raw Unified | Return to bug 5883
Collapse All | Expand All

(-)a/C4/Biblio.pm (-3 / +7 lines)
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
- 

Return to bug 5883