|
Lines 1750-1756
sub merge {
Link Here
|
| 1750 |
if ( defined $controlled_ind->{sub2} ) { |
1750 |
if ( defined $controlled_ind->{sub2} ) { |
| 1751 |
|
1751 |
|
| 1752 |
# Add or replace |
1752 |
# Add or replace |
| 1753 |
$field_to->update( 2 => $controlled_ind->{sub2} ); |
1753 |
if ( $controlled_ind->{sub2} ne q{} ) { |
|
|
1754 |
$field_to->update( 2 => $controlled_ind->{sub2} ); |
| 1755 |
} |
| 1754 |
} else { |
1756 |
} else { |
| 1755 |
|
1757 |
|
| 1756 |
# Key alerts us here to remove $2 |
1758 |
# Key alerts us here to remove $2 |
| 1757 |
- |
|
|