| 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 | -  |  |  |