|
Lines 92-100
sub copy_field {
Link Here
|
| 92 |
if ( ! ( $record && $fromFieldName && $toFieldName ) ) { return; } |
92 |
if ( ! ( $record && $fromFieldName && $toFieldName ) ) { return; } |
| 93 |
|
93 |
|
| 94 |
|
94 |
|
| 95 |
if ( not $fromSubfieldName |
95 |
if ( not defined $fromSubfieldName |
| 96 |
or $fromSubfieldName eq '' |
96 |
or $fromSubfieldName eq '' |
| 97 |
or not $toSubfieldName |
97 |
or not defined $toSubfieldName |
| 98 |
or $toSubfieldName eq '' ) { |
98 |
or $toSubfieldName eq '' ) { |
| 99 |
_copy_move_field( |
99 |
_copy_move_field( |
| 100 |
{ record => $record, |
100 |
{ record => $record, |
| 101 |
- |
|
|