| 
      
            Lines 1-7
          
      
      
        Link Here
      
     | 
  
        
          | 1 | 
          #!/usr/bin/perl  | 
          1 | 
          #!/usr/bin/perl  | 
        
        
          | 2 | 
           | 
          2 | 
           | 
        
        
          | 3 | 
          use Modern::Perl;  | 
          3 | 
          use Modern::Perl;  | 
        
          
            
              | 4 | 
              use Test::More tests => 18;  | 
              4 | 
              use Test::More tests => 19;  | 
            
        
          | 5 | 
          use utf8;  | 
          5 | 
          use utf8;  | 
        
        
          | 6 | 
          use File::Basename;  | 
          6 | 
          use File::Basename;  | 
        
        
          | 7 | 
          use File::Temp qw/tempfile/;  | 
          7 | 
          use File::Temp qw/tempfile/;  | 
        
  
    | 
      
            Lines 328-333
          subtest "_get_commit_action" => sub {
      
      
        Link Here
      
     | 
  
        
          | 328 | 
           | 
          328 | 
           | 
        
        
          | 329 | 
          };  | 
          329 | 
          };  | 
        
        
          | 330 | 
           | 
          330 | 
           | 
        
            
               | 
               | 
              331 | 
              subtest "Do not adjust biblionumber when replacing items during import" => sub { | 
            
            
              | 332 | 
                  plan tests => 6;  | 
            
            
              | 333 | 
               | 
            
            
              | 334 | 
                  my $item1 = $builder->build_sample_item;  | 
            
            
              | 335 | 
                  my $item2 = $builder->build_sample_item;  | 
            
            
              | 336 | 
               | 
            
            
              | 337 | 
                  my $library = $builder->build_object({ class => 'Koha::Libraries' }); | 
            
            
              | 338 | 
               | 
            
            
              | 339 | 
                  my $import_item = $builder->build_object({ class => 'Koha::Import::Record::Items', value => { | 
            
            
              | 340 | 
                      marcxml => qq{<?xml version="1.0" encoding="UTF-8"?> | 
            
            
              | 341 | 
              <collection  | 
            
            
              | 342 | 
                xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"  | 
            
            
              | 343 | 
                xsi:schemaLocation="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd"  | 
            
            
              | 344 | 
                xmlns="http://www.loc.gov/MARC21/slim">  | 
            
            
              | 345 | 
               | 
            
            
              | 346 | 
              <record>  | 
            
            
              | 347 | 
                <leader>00000    a              </leader>  | 
            
            
              | 348 | 
                <datafield tag="952" ind1=" " ind2=" ">  | 
            
            
              | 349 | 
                  <subfield code="a">${\($library->branchcode)}</subfield> | 
            
            
              | 350 | 
                  <subfield code="b">${\($library->branchcode)}</subfield> | 
            
            
              | 351 | 
                  <subfield code="c">GEN</subfield>  | 
            
            
              | 352 | 
                  <subfield code="p">${\($item1->barcode)}</subfield> | 
            
            
              | 353 | 
                  <subfield code="y">BK</subfield>  | 
            
            
              | 354 | 
                </datafield>  | 
            
            
              | 355 | 
              </record>  | 
            
            
              | 356 | 
              </collection>  | 
            
            
              | 357 | 
                      },  | 
            
            
              | 358 | 
                  }});  | 
            
            
              | 359 | 
               | 
            
            
              | 360 | 
                  isnt( $item1->homebranch, $library->branchcode, "Item's homebranch is currently not the same as our created branch's branchcode" );  | 
            
            
              | 361 | 
               | 
            
            
              | 362 | 
                  my ( $num_items_added, $num_items_replaced, $num_items_errored ) =  | 
            
            
              | 363 | 
                      C4::ImportBatch::_batchCommitItems( $import_item->import_record_id, $item2->biblionumber, 'replace' );  | 
            
            
              | 364 | 
               | 
            
            
              | 365 | 
                  $item1->discard_changes();  | 
            
            
              | 366 | 
               | 
            
            
              | 367 | 
                  is( $num_items_errored, 0, 'Item was replaced' );  | 
            
            
              | 368 | 
                  $import_item->discard_changes();  | 
            
            
              | 369 | 
                  is( $import_item->status, 'imported', 'Import was successful');  | 
            
            
              | 370 | 
                  is( $import_item->import_error, undef, 'No error was reported' );  | 
            
            
              | 371 | 
               | 
            
            
              | 372 | 
                  is( $item1->biblionumber, $item1->biblioitemnumber, "Item's biblionumber and biblioitemnumber match" );  | 
            
            
              | 373 | 
                  is( $item1->homebranch, $library->branchcode, "Item was overlayed succesfully" );  | 
            
            
              | 374 | 
              };  | 
            
            
              | 375 | 
               | 
            
        
          | 331 | 
          sub get_import_record { | 
          376 | 
          sub get_import_record { | 
        
        
          | 332 | 
              my $id_import_batch = shift;  | 
          377 | 
              my $id_import_batch = shift;  | 
        
        
          | 333 | 
              return $dbh->do('SELECT * FROM import_records WHERE import_batch_id = ?', undef, $id_import_batch); | 
          378 | 
              return $dbh->do('SELECT * FROM import_records WHERE import_batch_id = ?', undef, $id_import_batch); | 
        
            
              | 334 | 
              -   | 
               | 
               |