$value = GetAuthorisedValueDesc( $tag, $letter, $value, '', $tagslib )
if $av->{ $tag }->{ $letter };
push( @new_subfields, $letter, $value );
}
$field ->replace_with( MARC::Field->new(
if (@new_subfields) {
$tag,
$field->indicator(1),
$field->indicator(2),
@new_subfields
) );
else {
$record->delete_fields($field);
-