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