|
Lines 2178-2186
sub TransformKohaToMarc {
Link Here
|
| 2178 |
my @sfl = @{$tag_hr->{$tag}}; |
2178 |
my @sfl = @{$tag_hr->{$tag}}; |
| 2179 |
@sfl = sort { $a->[0] cmp $b->[0]; } @sfl; |
2179 |
@sfl = sort { $a->[0] cmp $b->[0]; } @sfl; |
| 2180 |
@sfl = map { @{$_}; } @sfl; |
2180 |
@sfl = map { @{$_}; } @sfl; |
| 2181 |
$record->insert_fields_ordered( |
2181 |
# Special care for control fields: remove the subfield indication @ |
| 2182 |
MARC::Field->new($tag, " ", " ", @sfl) |
2182 |
# and do not insert indicators. |
| 2183 |
); |
2183 |
my @ind = $tag < 10 ? () : ( " ", " " ); |
|
|
2184 |
@sfl = grep { $_ ne '@' } @sfl if $tag < 10; |
| 2185 |
$record->insert_fields_ordered( MARC::Field->new($tag, @ind, @sfl) ); |
| 2184 |
} |
2186 |
} |
| 2185 |
return $record; |
2187 |
return $record; |
| 2186 |
} |
2188 |
} |
| 2187 |
- |
|
|