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

(-)a/Koha/SimpleMARC.pm (-4 / +3 lines)
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
- 

Return to bug 8015