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

(-)a/Koha/SimpleMARC.pm (-4 / +9 lines)
Lines 415-423 sub field_equals { Link Here
415
  my @field_numbers = ();
415
  my @field_numbers = ();
416
  my $current_field_number = 1;
416
  my $current_field_number = 1;
417
  FIELDS: for my $field ( $record->field( $fieldName ) ) {
417
  FIELDS: for my $field ( $record->field( $fieldName ) ) {
418
    my @subfield_values = $subfieldName
418
    my @subfield_values;
419
        ? $field->subfield( $subfieldName )
419
    if ( $field->is_control_field ) {
420
        : map { $_->[1] } $field->subfields;
420
        push @subfield_values, $field->data;
421
    } else {
422
        @subfield_values =
423
            $subfieldName
424
          ? $field->subfield($subfieldName)
425
          : map { $_->[1] } $field->subfields;
426
    }
421
427
422
    SUBFIELDS: for my $subfield_value ( @subfield_values ) {
428
    SUBFIELDS: for my $subfield_value ( @subfield_values ) {
423
      if (
429
      if (
424
- 

Return to bug 22571