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

(-)a/C4/Biblio.pm (-4 / +5 lines)
Lines 2196-2204 sub TransformKohaToMarc { Link Here
2196
        my @sfl = @{$tag_hr->{$tag}};
2196
        my @sfl = @{$tag_hr->{$tag}};
2197
        @sfl = sort { $a->[0] cmp $b->[0]; } @sfl;
2197
        @sfl = sort { $a->[0] cmp $b->[0]; } @sfl;
2198
        @sfl = map { @{$_}; } @sfl;
2198
        @sfl = map { @{$_}; } @sfl;
2199
        $record->insert_fields_ordered(
2199
        # Special care for control fields: remove the subfield indication @
2200
            MARC::Field->new($tag, " ", " ", @sfl)
2200
        # and do not insert indicators.
2201
        );
2201
        my @ind = $tag < 10 ? () : ( " ", " " );
2202
        @sfl = grep { $_ ne '@' } @sfl if $tag < 10;
2203
        $record->insert_fields_ordered( MARC::Field->new($tag, @ind, @sfl) );
2202
    }
2204
    }
2203
    return $record;
2205
    return $record;
2204
}
2206
}
2205
- 

Return to bug 10306