Lines 2757-2763
sub ModBiblioMarc {
Link Here
|
2757 |
foreach my $subfield ( $field->subfields ) { |
2757 |
foreach my $subfield ( $field->subfields ) { |
2758 |
my $key = $subfield->[0]; |
2758 |
my $key = $subfield->[0]; |
2759 |
my $value = $subfield->[1]; |
2759 |
my $value = $subfield->[1]; |
2760 |
$value =~ s/^\s+|\s+$|\n+|\r+|^\t+|\t+$//g; |
2760 |
$value =~ s/^\s+|\s+$|^\t+|\t+$|^\n+|\n+$|^\r+|\r+$//g; |
|
|
2761 |
$value =~ s/\n+|\r+/ /g; |
2761 |
$field->update( $key => $value ); |
2762 |
$field->update( $key => $value ); |
2762 |
} |
2763 |
} |
2763 |
} |
2764 |
} |
2764 |
- |
|
|