t/db_dependent/MarcModificationTemplates.t

   1 use Modern::Perl;
   2
   3 use Test::More tests => 95;
   4
   5 use Koha::SimpleMARC;
   6
   7 use_ok("MARC::Field");
   8 use_ok("MARC::Record");
   9 use_ok("C4::MarcModificationTemplates");
  10
  11 my $dbh = C4::Context->dbh;
  12 $dbh->{AutoCommit} = 0;
  13 $dbh->{RaiseError} = 1;
  14
  15 $dbh->do(q|DELETE FROM marc_modification_templates|);
  16
  17 # Creation
  18 my $template_id = AddModificationTemplate("template_name");
  19 like( $template_id, qr|^\d+$|, "new template returns an id" );
  20
  21 is( AddModificationTemplateAction(
  22     $template_id, 'move_field', 1,
  23     '464', 'u', '', '464', '3',
  24     '', '', '',
  25     '', '', '', '', '', '',
  26     'move first 464$u to 464$3'
  27 ), 1, "Add first action");
  28
  29 is( AddModificationTemplateAction(
  30     $template_id, 'update_field', 0,
  31     '099', 't', 'LIV', '', '',
  32     '', '', '',
  33     'if', '200', 'b', 'equals', 'Text', '',
  34     'Update field 099$t with value LIV if 200$b matches "Text"'
  35 ), 1, "Add second action");
  36
  37 is( AddModificationTemplateAction(
  38     $template_id, 'copy_field', 0,
  39     '606', 'a', '', '607', 'a',
  40     '', '', '',
  41     'unless', '606', 'a', 'not_equals', '^AJAX', '1',
  42     'Copy field 606$a to 607$a unless 606$a matches RegEx m^AJAX'
  43 ), 1, "Add third action");
  44
  45 # Getter
  46 my @actions = GetModificationTemplateActions( $template_id );
  47 is( @actions, 3, "3 actions are insered");
  48
  49 for my $action ( @actions ) {
  50     isnt( GetModificationTemplateAction( $action->{mmta_id} ), undef, "action with id $action->{mmta_id} exists" );
  51 }
  52
  53 my $first_action = $actions[0];
  54 is( $first_action->{ordering}, 1, "test ordering for first action" );
  55 is( $first_action->{action}, 'move_field', "test action for first action" );
  56 is( $first_action->{from_field}, '464', "test from_field for first action" );
  57 is( $first_action->{from_subfield}, 'u', "test from_subfield for first action" );
  58 is( $first_action->{to_field}, '464', "test to_field for first action" );
  59 is( $first_action->{to_subfield}, '3', "test to_subfield for first action" );
  60
  61 my $second_action = $actions[1];
  62 is( $second_action->{ordering}, 2, "test ordering for second action" );
  63 is( $second_action->{action}, 'update_field', "test action for second action" );
  64 is( $second_action->{from_field}, '099',"test from_field for second action" );
  65 is( $second_action->{from_subfield}, 't', "test from_subfield for second action" );
  66 is( $second_action->{field_value}, 'LIV', "test firld_value for second action" );
  67 is( $second_action->{to_field}, '', "test to_field for second action" );
  68 is( $second_action->{to_subfield}, '', "test to_subfield for second action" );
  69 is( $second_action->{conditional}, 'if', "test conditional for second action" );
  70 is( $second_action->{conditional_field}, '200', "test conditional_field for second action" );
  71 is( $second_action->{conditional_subfield}, 'b', "test conditional_subfield for second action" );
  72 is( $second_action->{conditional_comparison}, 'equals', "test conditional_comparison for second action" );
  73
  74 my $third_action = $actions[2];
  75 is( $third_action->{ordering}, 3, "test ordering for third action" );
  76 is( $third_action->{action}, 'copy_field', "test  factionor third action" );
  77 is( $third_action->{from_field}, '606', "test from_field for third action" );
  78 is( $third_action->{from_subfield}, 'a', "test from_subfield for third action" );
  79 is( $third_action->{to_field}, '607', "test to_field for third action" );
  80 is( $third_action->{to_subfield}, 'a', "test to_subfield for third action" );
  81 is( $third_action->{conditional}, 'unless', "test conditional for third action" );
  82 is( $third_action->{conditional_field}, '606', "test conditional_field for third action" );
  83 is( $third_action->{conditional_subfield}, 'a', "test conditional_subfield for third action" );
  84 is( $third_action->{conditional_comparison}, 'not_equals', "test conditional_comparison for third action" );
  85 is( $third_action->{conditional_value}, '^AJAX', "test conditional_value for third action" );
  86
  87
  88 # Modifications
  89 is( ModModificationTemplateAction(
  90     $actions[1]->{mmta_id}, 'update_field', 0,
  91     '100', 'u', 'LIV', '', '',
  92     '', '', '',
  93     'if', '200', 'c', 'equals', 'Text', '',
  94     'Update field 099$t with value LIV if 200$b matches "Text"'
  95 ), 1, "Modify second action");
  96
  97 $second_action = GetModificationTemplateAction( $actions[1]->{mmta_id} );
  98 is( $second_action->{ordering}, 2, "test ordering for second action modified" );
  99 is( $second_action->{action}, 'update_field', "test action for second action modified" );
 100 is( $second_action->{from_field}, '100',"test from_field for second action modified" );
 101 is( $second_action->{from_subfield}, 'u', "test from_subfield for second action modified" );
 102 is( $second_action->{field_value}, 'LIV', "test firld_value for second action modified" );
 103 is( $second_action->{to_field}, '', "test to_field for second action modified" );
 104 is( $second_action->{to_subfield}, '', "test to_subfield for second action modified" );
 105 is( $second_action->{conditional}, 'if', "test conditional for second action modified" );
 106 is( $second_action->{conditional_field}, '200', "test conditional_field for second action modified" );
 107 is( $second_action->{conditional_subfield}, 'c', "test conditional_subfield for second action modified" );
 108 is( $second_action->{conditional_comparison}, 'equals', "test conditional_comparison for second action modified" );
 109
 110 # Up and down
 111 is( MoveModificationTemplateAction( $actions[2]->{mmta_id}, 'top' ), '1', 'Move the third action on top' );
 112 is( MoveModificationTemplateAction( $actions[0]->{mmta_id}, 'bottom' ), '1', 'Move the first action on bottom' );
 113
 114 is( GetModificationTemplateAction( $actions[0]->{mmta_id} )->{ordering}, '3', 'First becomes third' );
 115 is( GetModificationTemplateAction( $actions[1]->{mmta_id} )->{ordering}, '2', 'Second stays second' );
 116 is( GetModificationTemplateAction( $actions[2]->{mmta_id} )->{ordering}, '1', 'Third becomes first' );
 117
 118 is( MoveModificationTemplateAction( $actions[0]->{mmta_id}, 'up' ), '1', 'Move up the first action (was third)' );
 119 is( MoveModificationTemplateAction( $actions[0]->{mmta_id}, 'up' ), '1', 'Move up the first action (was second)' );
 120 is( MoveModificationTemplateAction( $actions[2]->{mmta_id}, 'down' ), '1', 'Move down the third action (was second)' );
 121
 122 is( GetModificationTemplateAction( $actions[0]->{mmta_id} )->{ordering}, '1', 'First becomes again first' );
 123 is( GetModificationTemplateAction( $actions[1]->{mmta_id} )->{ordering}, '2', 'Second stays again second' );
 124 is( GetModificationTemplateAction( $actions[2]->{mmta_id} )->{ordering}, '3', 'Third becomes again third' );
 125
 126 # Cleaning
 127 is( DelModificationTemplateAction( $actions[0]->{mmta_id} ), 2, "Delete the first action, 2 others are reordered" );
 128 is( GetModificationTemplateAction( $actions[0]->{mmta_id} ), undef, "first action does not exist anymore" );
 129
 130 is( DelModificationTemplate( $template_id ), 1, "The template has been deleted" );
 131
 132 is( GetModificationTemplateAction( $actions[1]->{mmta_id} ), undef, "second action does not exist anymore" );
 133 is( GetModificationTemplateAction( $actions[2]->{mmta_id} ), undef, "third action does not exist anymore" );
 134
 135 is( GetModificationTemplateActions( $template_id ), 0, "There is no action for deleted template" );
 136
 137 # ModifyRecordWithTemplate
 138 my @USERENV = (
 139     1,
 140     'test',
 141     'MASTERTEST',
 142     'Test',
 143     'Test',
 144     't',
 145     'Test',
 146     0,
 147 );
 148 C4::Context->_new_userenv ('DUMMY_SESSION_ID');
 149 C4::Context->set_userenv ( @USERENV );
 150
 151 $template_id = AddModificationTemplate("new_template_test");
 152 like( $template_id, qr|^\d+$|, "new template returns an id" );
 153
 154 is( AddModificationTemplateAction(
 155     $template_id, 'delete_field', 0,
 156     '245', '', '', '', '',
 157     '', '', '',
 158     'if', '245', 'a', 'equals', 'Bad title', '',
 159     'Delete field 245 if 245$a eq "Bad title"'
 160 ), 1, 'Add first action: delete field 245 if 245$a eq "Bad title"');
 161
 162 is( AddModificationTemplateAction(
 163     $template_id, 'copy_field', 0,
 164     '245', 'a', '', '246', 'a',
 165     '', '', '',
 166     '', '', '', '', '', '',
 167     'copy field 245$a to 246$a'
 168 ), 1, 'Add second action: copy 245$a to 246$a');
 169
 170 is( AddModificationTemplateAction(
 171     $template_id, 'delete_field', 0,
 172     '650', 'a', '', '', '',
 173     '', '', '',
 174     'if', '650', '9', 'equals', '462', '',
 175     'Delete field 650$a if 650$9=462'
 176 ), 1, 'Add third action: delete field 650$a if 650$9=462');
 177
 178 is( AddModificationTemplateAction(
 179     $template_id, 'update_field', 0,
 180     '952', 'p', '3010023917_updated', '', '',
 181     '', '', '',
 182     'unless', '650', '9', 'equals', '42', '',
 183     'Update field 952$p with "3010023917_updated" if 650$9 != 42'
 184 ), 1, 'Add fourth action: update field 952$p with "3010023917_updated" if 650$9 != 42');
 185
 186 is( AddModificationTemplateAction(
 187     $template_id, 'move_field', 0,
 188     '952', 'd', '', '952', 'e',
 189     '', '', '',
 190     'if', '952', 'c', 'equals', '^GEN', '1',
 191     'Move field 952$d to 952$e if 952$c =~ /^GEN/'
 192 ), 1, 'Add fifth action: move field 952$d to 952$e if 952$c =~ /^GEN/');
 193
 194 is( AddModificationTemplateAction(
 195     $template_id, 'update_field', 0,
 196     '650', 'a', 'Computer algorithms.', '', '',
 197     '', '', '',
 198     'if', '650', '9', 'equals', '499', '',
 199     'Update field 650$a with "Computer algorithms." to 651 if 650$9 == 499'
 200 ), 1, 'Add sixth action: update field 650$a with "Computer algorithms." if 650$9 == 499');
 201
 202 is( AddModificationTemplateAction(
 203     $template_id, 'move_field', 0,
 204     '650', '', '', '651', '',
 205     '', '', '',
 206     'if', '650', '9', 'equals', '499', '',
 207     'Move field 650 to 651 if 650$9 == 499'
 208 ), 1, 'Add seventh action: move field 650 to 651 if 650$9 == 499');
 209
 210 is( AddModificationTemplateAction(
 211     $template_id, 'update_field', 0,
 212     '999', 'a', 'non existent.', '', '',
 213     '', '', '',
 214     '', '', '', '', '', '',
 215     'Update non existent field 999$a with "non existent"'
 216 ), 1, 'Add eighth action: update field non existent 999$a with "non existent."');
 217
 218 my $record = new_record();
 219
 220 is( ModifyRecordWithTemplate( $template_id, $record ), undef, "The ModifyRecordWithTemplate returns undef" );
 221
 222 my $expected_record = expected_record_1();
 223 is_deeply( $record, $expected_record, "Record modification as expected");
 224
 225 $template_id = AddModificationTemplate("another_template_test");
 226
 227 # Duplicate 245 => 3x245
 228 is( AddModificationTemplateAction(
 229     $template_id, 'copy_field', 0,
 230     '245', '', '', '245', '',
 231     '', '', '',
 232     'if', '245', 'a', 'equals', 'Bad title', '',
 233     'Copy field 245 if 245$a eq "Bad title"'
 234 ), 1, 'Add action: copy field 245 if 245$a eq "Bad title"');
 235
 236 $record = new_record();
 237 is( ModifyRecordWithTemplate( $template_id, $record ), undef, "The ModifyRecordWithTemplate returns undef" );
 238
 239 my @fields_245a = Koha::SimpleMARC::read_field({
 240     record => $record,
 241     field => '245',
 242     subfield => 'a',
 243 });
 244 is_deeply( \@fields_245a, [
 245         'The art of computer programming',
 246         'Bad title',
 247         'Bad title',
 248     ], 'Copy field has copied the "Bad title"' );
 249
 250 # Update first "Bad title"
 251 is( AddModificationTemplateAction(
 252     $template_id, 'update_field', 1,
 253     '245', 'a', 'Bad title updated', '', '',
 254     '', '', '',
 255     'if', '245', 'a', 'equals', 'Bad title', '',
 256     'Update first 245$a matching "Bad title" with "Bad title updated"'
 257 ), 1, 'Add action: update field 245$a matching "Bad title" with "Bad title updated');
 258
 259 $record = new_record();
 260 is( ModifyRecordWithTemplate( $template_id, $record ), undef, "The ModifyRecordWithTemplate returns undef" );
 261
 262 @fields_245a = Koha::SimpleMARC::read_field({
 263     record => $record,
 264     field => '245',
 265     subfield => 'a',
 266 });
 267 is_deeply( \@fields_245a, [
 268         'The art of computer programming',
 269         'Bad title updated',
 270         'Bad title',
 271     ], 'update_field has update first the "Bad title"' );
 272
 273 # Duplicate first 245 => 3x245
 274 is( AddModificationTemplateAction(
 275     $template_id, 'copy_field', 1,
 276     '245', '', '', '245', '',
 277     '', '', '',
 278     'if', '245', 'a', 'equals', '^Bad title', '1',
 279     'Copy field 245 if 245$a =~ "^Bad title"'
 280 ), 1, 'Add action: copy field 245 if 245$a =~ "^Bad title"');
 281
 282 $record = new_record();
 283 is( ModifyRecordWithTemplate( $template_id, $record ), undef, "The ModifyRecordWithTemplate returns undef" );
 284
 285 @fields_245a = Koha::SimpleMARC::read_field({
 286     record => $record,
 287     field => '245',
 288     subfield => 'a',
 289 });
 290 is_deeply( \@fields_245a, [
 291         'The art of computer programming',
 292         'Bad title updated',
 293         'Bad title',
 294         'Bad title updated',
 295     ], 'Copy field has copied first "^Bad title"' );
 296
 297 # Delete first ^Bad title
 298 is( AddModificationTemplateAction(
 299     $template_id, 'delete_field', 1,
 300     '245', '', '', '', '',
 301     '', '', '',
 302     'if', '245', 'a', 'equals', '^Bad title', '1',
 303     'Delete first 245$a mathing ^Bad title'
 304 ), 1, 'Delete first 245$a mathing ^Bad title');
 305
 306 $record = new_record();
 307 is( ModifyRecordWithTemplate( $template_id, $record ), undef, "The ModifyRecordWithTemplate returns undef" );
 308 @fields_245a = Koha::SimpleMARC::read_field({
 309     record => $record,
 310     field => '245',
 311     subfield => 'a',
 312 });
 313 is_deeply( \@fields_245a, [
 314         'The art of computer programming',
 315         'Bad title',
 316         'Bad title updated',
 317     ], 'delete field has been deleted the right field"' );
 318
 319 is( AddModificationTemplateAction(
 320     $template_id, 'delete_field', 0,
 321     '245', '', '', '', '',
 322     '', '', '',
 323     'if', '245', 'a', 'equals', 'updated$', '1',
 324     'Delete first 245$a mathing updated$'
 325 ), 1, 'Delete first 245$a mathing updated$');
 326
 327 $record = new_record();
 328 is( ModifyRecordWithTemplate( $template_id, $record ), undef, "The ModifyRecordWithTemplate returns undef" );
 329 @fields_245a = Koha::SimpleMARC::read_field({
 330     record => $record,
 331     field => '245',
 332     subfield => 'a',
 333 });
 334 is_deeply( \@fields_245a, [
 335         'The art of computer programming',
 336         'Bad title'
 337     ], 'delete field has been deleted the right field"' );
 338
 339 subtest 'GetModificationTemplates' => sub {
 340     plan tests => 1;
 341     $dbh->do(q|DELETE FROM marc_modification_templates|);
 342     AddModificationTemplate("zzz");
 343     AddModificationTemplate("aaa");
 344     AddModificationTemplate("mmm");
 345     my @templates = GetModificationTemplates();
 346     is_deeply( [map{$_->{name}} @templates], ['aaa', 'mmm', 'zzz'] );
 347 };
 348
 349 sub new_record {
 350     my $record = MARC::Record->new;
 351     $record->leader('03174nam a2200445 a 4500');
 352     my @fields = (
 353         MARC::Field->new(
 354             100, '1', ' ',
 355             a => 'Knuth, Donald Ervin',
 356             d => '1938',
 357         ),
 358         MARC::Field->new(
 359             245, '1', '4',
 360             a => 'The art of computer programming',
 361             c => 'Donald E. Knuth.',
 362         ),
 363         MARC::Field->new(
 364             245, '1', '4',
 365             a => 'Bad title',
 366             c => 'Donald E. Knuth.',
 367         ),
 368         MARC::Field->new(
 369             650, ' ', '0',
 370             a => 'Computer programming.',
 371             9 => '462',
 372         ),
 373         MARC::Field->new(
 374             650, ' ', '0',
 375             a => 'Computer programming.',
 376             9 => '499',
 377         ),
 378         MARC::Field->new(
 379             952, ' ', ' ',
 380             p => '3010023917',
 381             y => 'BK',
 382             c => 'GEN',
 383             d => '2001-06-25',
 384         ),
 385     );
 386     $record->append_fields(@fields);
 387     return $record;
 388 }
 389
 390 sub expected_record_1 {
 391     my $record = MARC::Record->new;
 392     $record->leader('03174nam a2200445 a 4500');
 393     my @fields = (
 394         MARC::Field->new(
 395             100, '1', ' ',
 396             a => 'Knuth, Donald Ervin',
 397             d => '1938',
 398         ),
 399         MARC::Field->new(
 400             245, '1', '4',
 401             a => 'The art of computer programming',
 402             c => 'Donald E. Knuth.',
 403         ),
 404         MARC::Field->new(
 405             650, ' ', '0',
 406             9 => '462',
 407         ),
 408         MARC::Field->new(
 409             952, ' ', ' ',
 410             p => '3010023917_updated',
 411             y => 'BK',
 412             c => 'GEN',
 413             e => '2001-06-25',
 414         ),
 415         MARC::Field->new(
 416             246, '', ' ',
 417             a => 'The art of computer programming',
 418         ),
 419         MARC::Field->new(
 420             651, ' ', '0',
 421             a => 'Computer algorithms.',
 422             9 => '499',
 423         ),
 424         MARC::Field->new(
 425             999, ' ', ' ',
 426             a => 'non existent.',
 427         ),
 428     );
 429     $record->append_fields(@fields);
 430     return $record;
 431 }
 432
 433 sub expected_record_2 {
 434     my $record = MARC::Record->new;
 435     $record->leader('03174nam a2200445 a 4500');
 436     my @fields = (
 437         MARC::Field->new(
 438             100, '1', ' ',
 439             a => 'Knuth, Donald Ervin',
 440             d => '1938',
 441         ),
 442         MARC::Field->new(
 443             245, '1', '4',
 444             a => 'The art of computer programming',
 445             c => 'Donald E. Knuth.',
 446         ),
 447         MARC::Field->new(
 448             650, ' ', '0',
 449             9 => '462',
 450         ),
 451         MARC::Field->new(
 452             952, ' ', ' ',
 453             p => '3010023917_updated',
 454             y => 'BK',
 455             c => 'GEN',
 456             e => '2001-06-25',
 457         ),
 458         MARC::Field->new(
 459             246, '', ' ',
 460             a => 'The art of computer programming',
 461         ),
 462         MARC::Field->new(
 463             651, ' ', '0',
 464             a => 'Computer algorithms.',
 465             9 => '499',
 466         ),
 467         MARC::Field->new(
 468             999, ' ', ' ',
 469             a => 'non existent.',
 470         ),
 471     );
 472     $record->append_fields(@fields);
 473     return $record;
 474 }
 475
 476 # C4::Context->userenv
 477 sub Mock_userenv {
 478     return { branchcode => 'CPL' };
 479 }