Lines 262-268
sub field_equals {
Link Here
|
262 |
sub move_field { |
262 |
sub move_field { |
263 |
my ( $record, $fromFieldName, $fromSubfieldName, $toFieldName, $toSubfieldName, $regex, $n ) = @_; |
263 |
my ( $record, $fromFieldName, $fromSubfieldName, $toFieldName, $toSubfieldName, $regex, $n ) = @_; |
264 |
C4::Koha::Log( "C4::SimpleMARC::move_field( '$record', '$fromFieldName', '$fromSubfieldName', '$toFieldName', '$toSubfieldName', '$regex', '$n' )" ) if $debug; |
264 |
C4::Koha::Log( "C4::SimpleMARC::move_field( '$record', '$fromFieldName', '$fromSubfieldName', '$toFieldName', '$toSubfieldName', '$regex', '$n' )" ) if $debug; |
265 |
copy_field( $record, $fromFieldName, $fromSubfieldName, $toFieldName, $toSubfieldName, $regex, $n , "don't_erase"); |
265 |
copy_field( $record, $fromFieldName, $fromSubfieldName, $toFieldName, $toSubfieldName, $regex, $n , 1); |
266 |
delete_field( $record, $fromFieldName, $fromSubfieldName, $n ); |
266 |
delete_field( $record, $fromFieldName, $fromSubfieldName, $n ); |
267 |
} |
267 |
} |
268 |
|
268 |
|
Lines 316-326
sub _update_repeatable_field_with_single_value {
Link Here
|
316 |
if ( $subfieldName ) { |
316 |
if ( $subfieldName ) { |
317 |
if ( my @fields = $record->field( $fieldName ) ) { |
317 |
if ( my @fields = $record->field( $fieldName ) ) { |
318 |
foreach my $field ( @fields ) { |
318 |
foreach my $field ( @fields ) { |
319 |
$field->update( "$subfieldName" => $value ); |
319 |
$field->update( $subfieldName => $value ); |
320 |
} |
320 |
} |
321 |
} else { |
321 |
} else { |
322 |
## Field does not exist, create it. |
322 |
## Field does not exist, create it. |
323 |
$field = MARC::Field->new( $fieldName, '', '', "$subfieldName" => $value ); |
323 |
$field = MARC::Field->new( $fieldName, undef, undef, $subfieldName => $value ); |
324 |
$record->append_fields( $field ); |
324 |
$record->append_fields( $field ); |
325 |
} |
325 |
} |
326 |
} else { ## No subfield |
326 |
} else { ## No subfield |
327 |
- |
|
|