t/db_dependent/MarcModificationTemplates.t

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