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

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

Return to bug 6145