Lines 2914-2920
sub ModBiblioMarc {
Link Here
|
2914 |
foreach my $subfield ( $field->subfields ) { |
2914 |
foreach my $subfield ( $field->subfields ) { |
2915 |
my $key = $subfield->[0]; |
2915 |
my $key = $subfield->[0]; |
2916 |
my $value = $subfield->[1]; |
2916 |
my $value = $subfield->[1]; |
2917 |
$value =~ s/^\s+|\s+$|\n+|\r+|^\t+|\t+$//g; |
2917 |
$value =~ s/^\s+|\s+$|^\t+|\t+$|^\n+|\n+$|^\r+|\r+$//g; |
|
|
2918 |
$value =~ s/\n+|\r+/ /g; |
2918 |
$field->update( $key => $value ); |
2919 |
$field->update( $key => $value ); |
2919 |
} |
2920 |
} |
2920 |
} |
2921 |
} |
2921 |
- |
|
|