|
Lines 683-689
sub AddAuthority {
Link Here
|
| 683 |
my $value = $subfield->[1]; |
683 |
my $value = $subfield->[1]; |
| 684 |
$value =~ s/[\n\r]+/ /g; |
684 |
$value =~ s/[\n\r]+/ /g; |
| 685 |
$value =~ s/^\s+|\s+$|^\t+|\t+$//g; |
685 |
$value =~ s/^\s+|\s+$|^\t+|\t+$//g; |
| 686 |
$field->update( $key => $value ); |
686 |
$field->add_subfields( $key => $value ); # add subfield to the end of the subfield list |
|
|
687 |
$field->delete_subfield( pos => 0 ); # delete the subfield at the top of the subfield list |
| 687 |
} |
688 |
} |
| 688 |
} |
689 |
} |
| 689 |
} |
690 |
} |
| 690 |
- |
|
|