|
Lines 60-68
sub filter {
Link Here
|
| 60 |
my $value = $subfield->[1]; |
60 |
my $value = $subfield->[1]; |
| 61 |
$value =~ s/[\n\r]+/ /g; |
61 |
$value =~ s/[\n\r]+/ /g; |
| 62 |
$value =~ s/^\s+|\s+$//g; |
62 |
$value =~ s/^\s+|\s+$//g; |
| 63 |
$field->add_subfields( $key => $value ); # add subfield to the end of the subfield list |
63 |
$field->add_subfields( $key => $value ) |
| 64 |
$field->delete_subfield( pos => 0 ); # delete the subfield at the top of the subfield list |
64 |
if $value ne q{} |
|
|
65 |
; # add subfield to the end of the subfield list, but only if there is still a non empty value there |
| 66 |
$field->delete_subfield( pos => 0 ); # delete the subfield at the top of the subfield list |
| 65 |
} |
67 |
} |
|
|
68 |
|
| 69 |
# if it happed that all existing subfields had whitespaces only, |
| 70 |
# the field would be empty now and should be removed from the record |
| 71 |
$record->delete_fields($field) unless scalar( $field->subfields ); |
| 66 |
} |
72 |
} |
| 67 |
} |
73 |
} |
| 68 |
return $record; |
74 |
return $record; |
| 69 |
- |
|
|