Lines 1749-1755
sub merge {
Link Here
|
1749 |
if ( exists $controlled_ind->{sub2} ) { # thesaurus info |
1749 |
if ( exists $controlled_ind->{sub2} ) { # thesaurus info |
1750 |
if ( defined $controlled_ind->{sub2} ) { |
1750 |
if ( defined $controlled_ind->{sub2} ) { |
1751 |
|
1751 |
|
1752 |
# Add or replace |
1752 |
# Add or replace when not empty. If empty, an existing |
|
|
1753 |
# $2 value is retained (see also bug 40119). |
1753 |
if ( $controlled_ind->{sub2} ne q{} ) { |
1754 |
if ( $controlled_ind->{sub2} ne q{} ) { |
1754 |
$field_to->update( 2 => $controlled_ind->{sub2} ); |
1755 |
$field_to->update( 2 => $controlled_ind->{sub2} ); |
1755 |
} |
1756 |
} |
1756 |
- |
|
|