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