Lines 127-133
sub AddModificationTemplate {
Link Here
|
127 |
$action->{'field_value'}, |
127 |
$action->{'field_value'}, |
128 |
$action->{'to_field'}, |
128 |
$action->{'to_field'}, |
129 |
$action->{'to_subfield'}, |
129 |
$action->{'to_subfield'}, |
130 |
$action->{'to_regex'}, |
130 |
$action->{'to_regex_search'}, |
|
|
131 |
$action->{'to_regex_replace'}, |
132 |
$action->{'to_regex_modifiers'}, |
131 |
$action->{'conditional'}, |
133 |
$action->{'conditional'}, |
132 |
$action->{'conditional_field'}, |
134 |
$action->{'conditional_field'}, |
133 |
$action->{'conditional_subfield'}, |
135 |
$action->{'conditional_subfield'}, |
Lines 210-216
sub GetModificationTemplateActions {
Link Here
|
210 |
AddModificationTemplateAction( |
212 |
AddModificationTemplateAction( |
211 |
$template_id, $action, $field_number, |
213 |
$template_id, $action, $field_number, |
212 |
$from_field, $from_subfield, $field_value, |
214 |
$from_field, $from_subfield, $field_value, |
213 |
$to_field, $to_subfield, $to_regex, |
215 |
$to_field, $to_subfield, $to_regex_search, $to_regex_replace, $to_regex_modifiers |
214 |
$conditional, $conditional_field, $conditional_subfield, |
216 |
$conditional, $conditional_field, $conditional_subfield, |
215 |
$conditional_comparison, $conditional_value, |
217 |
$conditional_comparison, $conditional_value, |
216 |
$conditional_regex, $description |
218 |
$conditional_regex, $description |
Lines 230-236
sub AddModificationTemplateAction {
Link Here
|
230 |
$field_value, |
232 |
$field_value, |
231 |
$to_field, |
233 |
$to_field, |
232 |
$to_subfield, |
234 |
$to_subfield, |
233 |
$to_regex, |
235 |
$to_regex_search, |
|
|
236 |
$to_regex_replace, |
237 |
$to_regex_modifiers, |
234 |
$conditional, |
238 |
$conditional, |
235 |
$conditional_field, |
239 |
$conditional_field, |
236 |
$conditional_subfield, |
240 |
$conditional_subfield, |
Lines 242-252
sub AddModificationTemplateAction {
Link Here
|
242 |
|
246 |
|
243 |
C4::Koha::Log( "C4::MarcModificationTemplates::AddModificationTemplateAction( $template_id, $action, |
247 |
C4::Koha::Log( "C4::MarcModificationTemplates::AddModificationTemplateAction( $template_id, $action, |
244 |
$field_number, $from_field, $from_subfield, $field_value, $to_field, $to_subfield, |
248 |
$field_number, $from_field, $from_subfield, $field_value, $to_field, $to_subfield, |
245 |
$to_regex, $conditional, $conditional_field, $conditional_subfield, $conditional_comparison, |
249 |
$to_regex_search, $to_regex_replace, $to_regex_modifiers, $conditional, $conditional_field, $conditional_subfield, $conditional_comparison, |
246 |
$conditional_value, $conditional_regex, $description )" ) if DEBUG; |
250 |
$conditional_value, $conditional_regex, $description )" ) if DEBUG; |
247 |
warn( "C4::MarcModificationTemplates::AddModificationTemplateAction( $template_id, $action, |
251 |
warn( "C4::MarcModificationTemplates::AddModificationTemplateAction( $template_id, $action, |
248 |
$field_number, $from_field, $from_subfield, $field_value, $to_field, $to_subfield, |
252 |
$field_number, $from_field, $from_subfield, $field_value, $to_field, $to_subfield, |
249 |
$to_regex, $conditional, $conditional_field, $conditional_subfield, $conditional_comparison, |
253 |
$to_regex_search, $to_regex_replace, $to_regex_modifiers, $conditional, $conditional_field, $conditional_subfield, $conditional_comparison, |
250 |
$conditional_value, $conditional_regex, $description )" ) if DEBUG; |
254 |
$conditional_value, $conditional_regex, $description )" ) if DEBUG; |
251 |
|
255 |
|
252 |
$conditional_regex ||= '0'; |
256 |
$conditional_regex ||= '0'; |
Lines 269-275
sub AddModificationTemplateAction {
Link Here
|
269 |
field_value, |
273 |
field_value, |
270 |
to_field, |
274 |
to_field, |
271 |
to_subfield, |
275 |
to_subfield, |
272 |
to_regex, |
276 |
to_regex_search, |
|
|
277 |
to_regex_replace, |
278 |
to_regex_modifiers, |
273 |
conditional, |
279 |
conditional, |
274 |
conditional_field, |
280 |
conditional_field, |
275 |
conditional_subfield, |
281 |
conditional_subfield, |
Lines 278-284
sub AddModificationTemplateAction {
Link Here
|
278 |
conditional_regex, |
284 |
conditional_regex, |
279 |
description |
285 |
description |
280 |
) |
286 |
) |
281 |
VALUES ( NULL, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? )"; |
287 |
VALUES ( NULL, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? )"; |
282 |
|
288 |
|
283 |
$sth = $dbh->prepare( $query ); |
289 |
$sth = $dbh->prepare( $query ); |
284 |
|
290 |
|
Lines 292-298
sub AddModificationTemplateAction {
Link Here
|
292 |
$field_value, |
298 |
$field_value, |
293 |
$to_field, |
299 |
$to_field, |
294 |
$to_subfield, |
300 |
$to_subfield, |
295 |
$to_regex, |
301 |
$to_regex_search, |
|
|
302 |
$to_regex_replace, |
303 |
$to_regex_modifiers, |
296 |
$conditional, |
304 |
$conditional, |
297 |
$conditional_field, |
305 |
$conditional_field, |
298 |
$conditional_subfield, |
306 |
$conditional_subfield, |
Lines 309-315
sub AddModificationTemplateAction {
Link Here
|
309 |
ModModificationTemplateAction( |
317 |
ModModificationTemplateAction( |
310 |
$mmta_id, $action, $field_number, $from_field, |
318 |
$mmta_id, $action, $field_number, $from_field, |
311 |
$from_subfield, $field_value, $to_field, |
319 |
$from_subfield, $field_value, $to_field, |
312 |
$to_subfield, $to_regex, $conditional, |
320 |
$to_subfield, $to_regex_search, $to_regex_replace, $to_regex_modifiers, $conditional, |
313 |
$conditional_field, $conditional_subfield, |
321 |
$conditional_field, $conditional_subfield, |
314 |
$conditional_comparison, $conditional_value, |
322 |
$conditional_comparison, $conditional_value, |
315 |
$conditional_regex, $description |
323 |
$conditional_regex, $description |
Lines 329-335
sub ModModificationTemplateAction {
Link Here
|
329 |
$field_value, |
337 |
$field_value, |
330 |
$to_field, |
338 |
$to_field, |
331 |
$to_subfield, |
339 |
$to_subfield, |
332 |
$to_regex, |
340 |
$to_regex_search, |
|
|
341 |
$to_regex_replace, |
342 |
$to_regex_modifiers, |
333 |
$conditional, |
343 |
$conditional, |
334 |
$conditional_field, |
344 |
$conditional_field, |
335 |
$conditional_subfield, |
345 |
$conditional_subfield, |
Lines 350-356
sub ModModificationTemplateAction {
Link Here
|
350 |
field_value = ?, |
360 |
field_value = ?, |
351 |
to_field = ?, |
361 |
to_field = ?, |
352 |
to_subfield = ?, |
362 |
to_subfield = ?, |
353 |
to_regex = ?, |
363 |
to_regex_search = ?, |
|
|
364 |
to_regex_replace = ?, |
365 |
to_regex_modifiers = ?, |
354 |
conditional = ?, |
366 |
conditional = ?, |
355 |
conditional_field = ?, |
367 |
conditional_field = ?, |
356 |
conditional_subfield = ?, |
368 |
conditional_subfield = ?, |
Lines 370-376
sub ModModificationTemplateAction {
Link Here
|
370 |
$field_value, |
382 |
$field_value, |
371 |
$to_field, |
383 |
$to_field, |
372 |
$to_subfield, |
384 |
$to_subfield, |
373 |
$to_regex, |
385 |
$to_regex_search, |
|
|
386 |
$to_regex_replace, |
387 |
$to_regex_modifiers, |
374 |
$conditional, |
388 |
$conditional, |
375 |
$conditional_field, |
389 |
$conditional_field, |
376 |
$conditional_subfield, |
390 |
$conditional_subfield, |
Lines 511-517
sub ModifyRecordWithTemplate {
Link Here
|
511 |
my $field_value = $a->{'field_value'}; |
525 |
my $field_value = $a->{'field_value'}; |
512 |
my $to_field = $a->{'to_field'}; |
526 |
my $to_field = $a->{'to_field'}; |
513 |
my $to_subfield = $a->{'to_subfield'}; |
527 |
my $to_subfield = $a->{'to_subfield'}; |
514 |
my $to_regex = $a->{'to_regex'}; |
528 |
my $to_regex_search = $a->{'to_regex_search'}; |
|
|
529 |
my $to_regex_replace = $a->{'to_regex_replace'}; |
530 |
my $to_regex_modifiers = $a->{'to_regex_modifiers'}; |
515 |
my $conditional = $a->{'conditional'}; |
531 |
my $conditional = $a->{'conditional'}; |
516 |
my $conditional_field = $a->{'conditional_field'}; |
532 |
my $conditional_field = $a->{'conditional_field'}; |
517 |
my $conditional_subfield = $a->{'conditional_subfield'}; |
533 |
my $conditional_subfield = $a->{'conditional_subfield'}; |
Lines 540-546
sub ModifyRecordWithTemplate {
Link Here
|
540 |
} |
556 |
} |
541 |
push @params, ( |
557 |
push @params, ( |
542 |
( ( not $field_value and $to_field ) |
558 |
( ( not $field_value and $to_field ) |
543 |
? ( $to_field, $to_subfield, $to_regex ) |
559 |
? ( $to_field, $to_subfield, { search => $to_regex_search, replace => $to_regex_replace, modifiers => $to_regex_modifiers} ) |
544 |
: () ), |
560 |
: () ), |
545 |
( $field_number |
561 |
( $field_number |
546 |
? $field_number |
562 |
? $field_number |