|
Lines 88-108
sub copy_field {
Link Here
|
| 88 |
$modifiers .= $modifier |
88 |
$modifiers .= $modifier |
| 89 |
if grep {/$modifier/} @available_modifiers; |
89 |
if grep {/$modifier/} @available_modifiers; |
| 90 |
} |
90 |
} |
| 91 |
foreach my $value ( @values ) { |
91 |
foreach my $value (@values) { |
| 92 |
for ( $modifiers ) { |
92 |
if ( $modifiers =~ m/^(ig|gi)$/ ) { |
| 93 |
when ( /^(ig|gi)$/ ) { |
|
|
| 94 |
$value =~ s/$regex->{search}/$regex->{replace}/ig; |
93 |
$value =~ s/$regex->{search}/$regex->{replace}/ig; |
| 95 |
} |
94 |
} |
| 96 |
when ( /^i$/ ) { |
95 |
elsif ( $modifiers eq 'i' ) { |
| 97 |
$value =~ s/$regex->{search}/$regex->{replace}/i; |
96 |
$value =~ s/$regex->{search}/$regex->{replace}/i; |
| 98 |
} |
97 |
} |
| 99 |
when ( /^g$/ ) { |
98 |
elsif ( $modifiers eq 'g' ) { |
| 100 |
$value =~ s/$regex->{search}/$regex->{replace}/g; |
99 |
$value =~ s/$regex->{search}/$regex->{replace}/g; |
| 101 |
} |
100 |
} |
| 102 |
default { |
101 |
else { |
| 103 |
$value =~ s/$regex->{search}/$regex->{replace}/; |
102 |
$value =~ s/$regex->{search}/$regex->{replace}/; |
| 104 |
} |
103 |
} |
| 105 |
} |
|
|
| 106 |
} |
104 |
} |
| 107 |
} |
105 |
} |
| 108 |
update_field( $record, $toFieldName, $toSubfieldName, $dont_erase, @values ); |
106 |
update_field( $record, $toFieldName, $toSubfieldName, $dont_erase, @values ); |
| 109 |
- |
|
|