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