Lines 125-131
sub stripWhitespaceChars {
Link Here
|
125 |
my $key = $subfield->[0]; |
125 |
my $key = $subfield->[0]; |
126 |
my $value = $subfield->[1]; |
126 |
my $value = $subfield->[1]; |
127 |
$value =~ s/[\n\r]+/ /g; |
127 |
$value =~ s/[\n\r]+/ /g; |
128 |
$value =~ s/^\s+|\s+$|^\t+|\t+$//g; |
128 |
$value =~ s/^\s+|\s+$//g; |
129 |
$field->add_subfields( $key => $value ); # add subfield to the end of the subfield list |
129 |
$field->add_subfields( $key => $value ); # add subfield to the end of the subfield list |
130 |
$field->delete_subfield( pos => 0 ); # delete the subfield at the top of the subfield list |
130 |
$field->delete_subfield( pos => 0 ); # delete the subfield at the top of the subfield list |
131 |
} |
131 |
} |
132 |
- |
|
|