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 |
- |
|
|