|
Lines 96-113
sub add_update_matching_rule {
Link Here
|
| 96 |
|
96 |
|
| 97 |
# do parsing |
97 |
# do parsing |
| 98 |
my $matcher = C4::Matcher->new($record_type, 1000); |
98 |
my $matcher = C4::Matcher->new($record_type, 1000); |
| 99 |
$matcher->code($input->param('code')); |
99 |
$matcher->code(scalar $input->param('code')); |
| 100 |
$matcher->description($input->param('description')); |
100 |
$matcher->description(scalar $input->param('description')); |
| 101 |
$matcher->threshold($input->param('threshold')); |
101 |
$matcher->threshold(scalar $input->param('threshold')); |
| 102 |
|
102 |
|
| 103 |
# matchpoints |
103 |
# matchpoints |
| 104 |
my @mp_nums = sort map { /^mp_(\d+)_search_index/ ? int($1): () } $input->param; |
104 |
my @mp_nums = sort map { /^mp_(\d+)_search_index/ ? int($1): () } $input->multi_param; |
| 105 |
foreach my $mp_num (@mp_nums) { |
105 |
foreach my $mp_num (@mp_nums) { |
| 106 |
my $index = $input->param("mp_${mp_num}_search_index"); |
106 |
my $index = $input->param("mp_${mp_num}_search_index"); |
| 107 |
my $score = $input->param("mp_${mp_num}_score"); |
107 |
my $score = $input->param("mp_${mp_num}_score"); |
| 108 |
# components |
108 |
# components |
| 109 |
my $components = []; |
109 |
my $components = []; |
| 110 |
my @comp_nums = sort map { /^mp_${mp_num}_c_(\d+)_tag/ ? int($1): () } $input->param; |
110 |
my @comp_nums = sort map { /^mp_${mp_num}_c_(\d+)_tag/ ? int($1): () } $input->multi_param; |
| 111 |
foreach my $comp_num (@comp_nums) { |
111 |
foreach my $comp_num (@comp_nums) { |
| 112 |
my $component = {}; |
112 |
my $component = {}; |
| 113 |
$component->{'tag'} = $input->param("mp_${mp_num}_c_${comp_num}_tag"); |
113 |
$component->{'tag'} = $input->param("mp_${mp_num}_c_${comp_num}_tag"); |
|
Lines 116-124
sub add_update_matching_rule {
Link Here
|
| 116 |
$component->{'length'} = $input->param("mp_${mp_num}_c_${comp_num}_length"); |
116 |
$component->{'length'} = $input->param("mp_${mp_num}_c_${comp_num}_length"); |
| 117 |
# norms |
117 |
# norms |
| 118 |
$component->{'norms'} = []; |
118 |
$component->{'norms'} = []; |
| 119 |
my @norm_nums = sort map { /^mp_${mp_num}_c_${comp_num}_n_(\d+)_norm/ ? int($1): () } $input->param; |
119 |
my @norm_nums = sort map { /^mp_${mp_num}_c_${comp_num}_n_(\d+)_norm/ ? int($1): () } $input->multi_param; |
| 120 |
foreach my $norm_num (@norm_nums) { |
120 |
foreach my $norm_num (@norm_nums) { |
| 121 |
push @{ $component->{'norms'} }, $input->param("mp_${mp_num}_c_${comp_num}_n_${norm_num}_norm"); |
121 |
push @{ $component->{'norms'} }, $input->multi_param("mp_${mp_num}_c_${comp_num}_n_${norm_num}_norm"); |
| 122 |
} |
122 |
} |
| 123 |
push @$components, $component; |
123 |
push @$components, $component; |
| 124 |
} |
124 |
} |
|
Lines 126-136
sub add_update_matching_rule {
Link Here
|
| 126 |
} |
126 |
} |
| 127 |
|
127 |
|
| 128 |
# match checks |
128 |
# match checks |
| 129 |
my @mc_nums = sort map { /^mc_(\d+)_id/ ? int($1): () } $input->param; |
129 |
my @mc_nums = sort map { /^mc_(\d+)_id/ ? int($1): () } $input->multi_param; |
| 130 |
foreach my $mc_num (@mc_nums) { |
130 |
foreach my $mc_num (@mc_nums) { |
| 131 |
# source components |
131 |
# source components |
| 132 |
my $src_components = []; |
132 |
my $src_components = []; |
| 133 |
my @src_comp_nums = sort map { /^mc_${mc_num}_src_c_(\d+)_tag/ ? int($1): () } $input->param; |
133 |
my @src_comp_nums = sort map { /^mc_${mc_num}_src_c_(\d+)_tag/ ? int($1): () } $input->multi_param; |
| 134 |
foreach my $comp_num (@src_comp_nums) { |
134 |
foreach my $comp_num (@src_comp_nums) { |
| 135 |
my $component = {}; |
135 |
my $component = {}; |
| 136 |
$component->{'tag'} = $input->param("mc_${mc_num}_src_c_${comp_num}_tag"); |
136 |
$component->{'tag'} = $input->param("mc_${mc_num}_src_c_${comp_num}_tag"); |
|
Lines 139-153
sub add_update_matching_rule {
Link Here
|
| 139 |
$component->{'length'} = $input->param("mc_${mc_num}_src_c_${comp_num}_length"); |
139 |
$component->{'length'} = $input->param("mc_${mc_num}_src_c_${comp_num}_length"); |
| 140 |
# norms |
140 |
# norms |
| 141 |
$component->{'norms'} = []; |
141 |
$component->{'norms'} = []; |
| 142 |
my @norm_nums = sort map { /^mc_${mc_num}_src_c_${comp_num}_n_(\d+)_norm/ ? int($1): () } $input->param; |
142 |
my @norm_nums = sort map { /^mc_${mc_num}_src_c_${comp_num}_n_(\d+)_norm/ ? int($1): () } $input->multi_param; |
| 143 |
foreach my $norm_num (@norm_nums) { |
143 |
foreach my $norm_num (@norm_nums) { |
| 144 |
push @{ $component->{'norms'} }, $input->param("mc_${mc_num}_src_c_${comp_num}_n_${norm_num}_norm"); |
144 |
push @{ $component->{'norms'} }, $input->multi_param("mc_${mc_num}_src_c_${comp_num}_n_${norm_num}_norm"); |
| 145 |
} |
145 |
} |
| 146 |
push @$src_components, $component; |
146 |
push @$src_components, $component; |
| 147 |
} |
147 |
} |
| 148 |
# target components |
148 |
# target components |
| 149 |
my $tgt_components = []; |
149 |
my $tgt_components = []; |
| 150 |
my @tgt_comp_nums = sort map { /^mc_${mc_num}_tgt_c_(\d+)_tag/ ? int($1): () } $input->param; |
150 |
my @tgt_comp_nums = sort map { /^mc_${mc_num}_tgt_c_(\d+)_tag/ ? int($1): () } $input->multi_param; |
| 151 |
foreach my $comp_num (@tgt_comp_nums) { |
151 |
foreach my $comp_num (@tgt_comp_nums) { |
| 152 |
my $component = {}; |
152 |
my $component = {}; |
| 153 |
$component->{'tag'} = $input->param("mc_${mc_num}_tgt_c_${comp_num}_tag"); |
153 |
$component->{'tag'} = $input->param("mc_${mc_num}_tgt_c_${comp_num}_tag"); |
|
Lines 156-164
sub add_update_matching_rule {
Link Here
|
| 156 |
$component->{'length'} = $input->param("mc_${mc_num}_tgt_c_${comp_num}_length"); |
156 |
$component->{'length'} = $input->param("mc_${mc_num}_tgt_c_${comp_num}_length"); |
| 157 |
# norms |
157 |
# norms |
| 158 |
$component->{'norms'} = []; |
158 |
$component->{'norms'} = []; |
| 159 |
my @norm_nums = sort map { /^mc_${mc_num}_tgt_c_${comp_num}_n_(\d+)_norm/ ? int($1): () } $input->param; |
159 |
my @norm_nums = sort map { /^mc_${mc_num}_tgt_c_${comp_num}_n_(\d+)_norm/ ? int($1): () } $input->multi_param; |
| 160 |
foreach my $norm_num (@norm_nums) { |
160 |
foreach my $norm_num (@norm_nums) { |
| 161 |
push @{ $component->{'norms'} }, $input->param("mc_${mc_num}_tgt_c_${comp_num}_n_${norm_num}_norm"); |
161 |
push @{ $component->{'norms'} }, $input->multi_param("mc_${mc_num}_tgt_c_${comp_num}_n_${norm_num}_norm"); |
| 162 |
} |
162 |
} |
| 163 |
push @$tgt_components, $component; |
163 |
push @$tgt_components, $component; |
| 164 |
} |
164 |
} |