Lines 2422-2430
sub TransformMarcToKohaOneField {
Link Here
|
2422 |
my $sub = $fldhash->{tagsubfield}; |
2422 |
my $sub = $fldhash->{tagsubfield}; |
2423 |
foreach my $fld ( $marc->field($tag) ) { |
2423 |
foreach my $fld ( $marc->field($tag) ) { |
2424 |
if( $sub eq '@' || $fld->is_control_field ) { |
2424 |
if( $sub eq '@' || $fld->is_control_field ) { |
2425 |
push @rv, $fld->data if $fld->data; |
2425 |
my $data = $fld->data; |
|
|
2426 |
push @rv, $data if defined $data && $data ne ''; |
2426 |
} else { |
2427 |
} else { |
2427 |
push @rv, grep { $_ } $fld->subfield($sub); |
2428 |
push @rv, grep { defined $_ && $_ ne '' } $fld->subfield($sub); |
2428 |
} |
2429 |
} |
2429 |
} |
2430 |
} |
2430 |
} |
2431 |
} |
2431 |
- |
|
|