View | Details | Raw Unified | Return to bug 11478
Collapse All | Expand All

(-)a/Koha/SimpleMARC.pm (-12 / +9 lines)
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
- 

Return to bug 11478