Lines 2897-2903
sub ModBiblioMarc {
Link Here
|
2897 |
foreach my $subfield ( $field->subfields ) { |
2897 |
foreach my $subfield ( $field->subfields ) { |
2898 |
my $key = $subfield->[0]; |
2898 |
my $key = $subfield->[0]; |
2899 |
my $value = $subfield->[1]; |
2899 |
my $value = $subfield->[1]; |
2900 |
$value =~ s/^\s+|\s+$|\n+|\r+|^\t+|\t+$//g; |
2900 |
$value =~ s/^\s+|\s+$|^\t+|\t+$|^\n+|\n+$|^\r+|\r+$//g; |
|
|
2901 |
$value =~ s/\n+|\r+/ /g; |
2901 |
$field->update( $key => $value ); |
2902 |
$field->update( $key => $value ); |
2902 |
} |
2903 |
} |
2903 |
} |
2904 |
} |
2904 |
- |
|
|