|
Lines 2758-2764
sub ModBiblioMarc {
Link Here
|
| 2758 |
my $value = $subfield->[1]; |
2758 |
my $value = $subfield->[1]; |
| 2759 |
$value =~ s/[\n\r]+/ /g; |
2759 |
$value =~ s/[\n\r]+/ /g; |
| 2760 |
$value =~ s/^\s+|\s+$|^\t+|\t+$//g; |
2760 |
$value =~ s/^\s+|\s+$|^\t+|\t+$//g; |
| 2761 |
$field->update( $key => $value ); |
2761 |
$field->add_subfields( $key => $value ); # add subfield to the end of the subfield list |
|
|
2762 |
$field->delete_subfield( pos => 0 ); # delete the subfield at the top of the subfield list |
| 2762 |
} |
2763 |
} |
| 2763 |
} |
2764 |
} |
| 2764 |
} |
2765 |
} |
| 2765 |
- |
|
|