| 
      
            Lines 19-25
          
      
      
        Link Here
      
     | 
  
        
          | 19 | 
           | 
          19 | 
           | 
        
        
          | 20 | 
          use Modern::Perl;  | 
          20 | 
          use Modern::Perl;  | 
        
        
          | 21 | 
           | 
          21 | 
           | 
        
          
            
              | 22 | 
              use Test::More tests => 4;  | 
              22 | 
              use Test::More tests => 5;  | 
            
        
          | 23 | 
           | 
          23 | 
           | 
        
        
          | 24 | 
          use C4::Biblio;  | 
          24 | 
          use C4::Biblio;  | 
        
        
          | 25 | 
           | 
          25 | 
           | 
        
  
    | 
      
            Lines 330-332
          subtest 'pickup_locations' => sub {
      
      
        Link Here
      
     | 
  
        
          | 330 | 
           | 
          330 | 
           | 
        
        
          | 331 | 
              $schema->storage->txn_rollback;  | 
          331 | 
              $schema->storage->txn_rollback;  | 
        
        
          | 332 | 
          };  | 
          332 | 
          };  | 
        
          
            
              | 333 | 
              -   | 
              333 | 
               | 
            
            
               | 
               | 
              334 | 
              subtest 'move_to_biblio() tests' => sub { | 
            
            
              | 335 | 
               | 
            
            
              | 336 | 
                  plan tests => 12;  | 
            
            
              | 337 | 
               | 
            
            
              | 338 | 
                  $schema->storage->txn_begin;  | 
            
            
              | 339 | 
               | 
            
            
              | 340 | 
                  my $dbh = C4::Context->dbh;  | 
            
            
              | 341 | 
               | 
            
            
              | 342 | 
                  my $source_biblio = $builder->build_sample_biblio();  | 
            
            
              | 343 | 
                  my $target_biblio = $builder->build_sample_biblio();  | 
            
            
              | 344 | 
               | 
            
            
              | 345 | 
                  my $source_biblionumber = $source_biblio->biblionumber;  | 
            
            
              | 346 | 
               | 
            
            
              | 347 | 
                  my $item1 = $builder->build_sample_item({ biblionumber => $source_biblionumber }); | 
            
            
              | 348 | 
                  my $item2 = $builder->build_sample_item({ biblionumber => $source_biblionumber }); | 
            
            
              | 349 | 
               | 
            
            
              | 350 | 
                  my $itemnumber1 = $item1->itemnumber;  | 
            
            
              | 351 | 
                  my $itemnumber2 = $item2->itemnumber;  | 
            
            
              | 352 | 
               | 
            
            
              | 353 | 
                  my $library = $builder->build_object({ class => 'Koha::Libraries' }); | 
            
            
              | 354 | 
               | 
            
            
              | 355 | 
                  my $patron = $builder->build_object({ | 
            
            
              | 356 | 
                      class => 'Koha::Patrons',  | 
            
            
              | 357 | 
                      value => { branchcode => $library->branchcode, } | 
            
            
              | 358 | 
                  });  | 
            
            
              | 359 | 
                  my $borrowernumber = $patron->borrowernumber;  | 
            
            
              | 360 | 
               | 
            
            
              | 361 | 
                  $dbh->do("INSERT INTO aqbudgets (budget_notes) VALUES ('test')"); | 
            
            
              | 362 | 
                  my $budget_id = $dbh->last_insert_id(undef, undef, 'aqbudgets', 'budget_id');  | 
            
            
              | 363 | 
               | 
            
            
              | 364 | 
                  $dbh->do('INSERT INTO aqorders (biblionumber, budget_id) VALUES (?, ?)', undef, $source_biblionumber, $budget_id); | 
            
            
              | 365 | 
                  my $ordernumber1 = $dbh->last_insert_id(undef, undef, 'aqorders', 'ordernumber');  | 
            
            
              | 366 | 
                  $dbh->do('INSERT INTO aqorders_items (ordernumber, itemnumber) VALUES (?, ?)', undef, $ordernumber1, $itemnumber1); | 
            
            
              | 367 | 
               | 
            
            
              | 368 | 
                  $dbh->do('INSERT INTO aqorders (biblionumber, budget_id) VALUES (?, ?)', undef, $source_biblionumber, $budget_id); | 
            
            
              | 369 | 
                  my $ordernumber2 = $dbh->last_insert_id(undef, undef, 'aqorders', 'ordernumber');  | 
            
            
              | 370 | 
                  $dbh->do('INSERT INTO aqorders_items (ordernumber, itemnumber) VALUES (?, ?)', undef, $ordernumber2, $source_biblionumber); | 
            
            
              | 371 | 
               | 
            
            
              | 372 | 
                  my $reserve_id1 = C4::Reserves::AddReserve(  | 
            
            
              | 373 | 
                      $library->branchcode, $borrowernumber,  | 
            
            
              | 374 | 
                      $source_biblionumber, '',  | 
            
            
              | 375 | 
                      1,                    undef,  | 
            
            
              | 376 | 
                      undef,                '',  | 
            
            
              | 377 | 
                      "title",              $itemnumber1,  | 
            
            
              | 378 | 
                  );  | 
            
            
              | 379 | 
               | 
            
            
              | 380 | 
                  my $reserve_id2 = C4::Reserves::AddReserve(  | 
            
            
              | 381 | 
                      $library->branchcode, $patron->borrowernumber,  | 
            
            
              | 382 | 
                      $source_biblionumber, '',  | 
            
            
              | 383 | 
                      1,                    undef,  | 
            
            
              | 384 | 
                      undef,                '',  | 
            
            
              | 385 | 
                      "title",              $itemnumber2,  | 
            
            
              | 386 | 
                  );  | 
            
            
              | 387 | 
               | 
            
            
              | 388 | 
                  $dbh->do("INSERT INTO tmp_holdsqueue (surname,borrowernumber,itemnumber,biblionumber) VALUES ('Clamp',?,?,?)", undef, $borrowernumber, $itemnumber1, $source_biblionumber); | 
            
            
              | 389 | 
                  $dbh->do("INSERT INTO tmp_holdsqueue (surname,borrowernumber,itemnumber,biblionumber) VALUES ('Clamp',?,?,?)", undef, $borrowernumber, $itemnumber2, $source_biblionumber); | 
            
            
              | 390 | 
               | 
            
            
              | 391 | 
                  $dbh->do('INSERT INTO hold_fill_targets (borrowernumber,itemnumber,biblionumber) VALUES (?,?,?)', undef, $borrowernumber, $itemnumber1, $source_biblionumber); | 
            
            
              | 392 | 
                  $dbh->do('INSERT INTO hold_fill_targets (borrowernumber,itemnumber,biblionumber) VALUES (?,?,?)', undef, $borrowernumber, $itemnumber2, $source_biblionumber); | 
            
            
              | 393 | 
               | 
            
            
              | 394 | 
                  $dbh->do('INSERT INTO linktracker (borrowernumber,itemnumber,biblionumber) VALUES (?,?,?)', undef, $borrowernumber, $itemnumber1, $source_biblionumber); | 
            
            
              | 395 | 
                  $dbh->do('INSERT INTO linktracker (borrowernumber,itemnumber,biblionumber) VALUES (?,?,?)', undef, $borrowernumber, $itemnumber2, $source_biblionumber); | 
            
            
              | 396 | 
               | 
            
            
              | 397 | 
                  $item1->move_to_biblio($target_biblio);  | 
            
            
              | 398 | 
               | 
            
            
              | 399 | 
                  my @result = $dbh->selectrow_array('SELECT biblionumber FROM items WHERE itemnumber = ?', undef, $itemnumber1); | 
            
            
              | 400 | 
                  is($result[0], $target_biblio->biblionumber, 'Correct biblionumber in the moved item');  | 
            
            
              | 401 | 
               | 
            
            
              | 402 | 
                  @result = $dbh->selectrow_array('SELECT biblionumber FROM items WHERE itemnumber = ?', undef, $itemnumber2); | 
            
            
              | 403 | 
                  is($result[0], $source_biblionumber, 'Correct biblionumber in the unmoved item');  | 
            
            
              | 404 | 
               | 
            
            
              | 405 | 
                  @result = $dbh->selectrow_array('SELECT biblionumber FROM aqorders WHERE ordernumber = ?', undef, $ordernumber1); | 
            
            
              | 406 | 
                  is($result[0], $target_biblio->biblionumber, 'Correct biblionumber in aqorders for order with the moved item');  | 
            
            
              | 407 | 
               | 
            
            
              | 408 | 
                  @result = $dbh->selectrow_array('SELECT biblionumber FROM aqorders WHERE ordernumber = ?', undef, $ordernumber2); | 
            
            
              | 409 | 
                  is($result[0], $source_biblionumber, 'Correct biblionumber in aqorders for order with the unmoved item');  | 
            
            
              | 410 | 
               | 
            
            
              | 411 | 
                  @result = $dbh->selectrow_array('SELECT biblionumber FROM reserves WHERE reserve_id = ?', undef, $reserve_id1); | 
            
            
              | 412 | 
                  is($result[0], $target_biblio->biblionumber, 'Correct biblionumber in reserves for moved item');  | 
            
            
              | 413 | 
               | 
            
            
              | 414 | 
                  @result = $dbh->selectrow_array('SELECT biblionumber FROM reserves WHERE reserve_id = ?', undef, $reserve_id2); | 
            
            
              | 415 | 
                  is($result[0], $source_biblionumber, 'Correct biblionumber in reserves for unmoved item');  | 
            
            
              | 416 | 
               | 
            
            
              | 417 | 
                  @result = $dbh->selectrow_array('SELECT biblionumber FROM tmp_holdsqueue WHERE itemnumber = ?', undef, $itemnumber1); | 
            
            
              | 418 | 
                  is($result[0], $target_biblio->biblionumber, 'Correct biblionumber in tmp_holdsqueue for moved item');  | 
            
            
              | 419 | 
               | 
            
            
              | 420 | 
                  @result = $dbh->selectrow_array('SELECT biblionumber FROM tmp_holdsqueue WHERE itemnumber = ?', undef, $itemnumber2); | 
            
            
              | 421 | 
                  is($result[0], $source_biblionumber, 'Correct biblionumber in tmp_holdsqueue for unmoved item');  | 
            
            
              | 422 | 
               | 
            
            
              | 423 | 
                  @result = $dbh->selectrow_array('SELECT biblionumber FROM hold_fill_targets WHERE itemnumber = ?', undef, $itemnumber1); | 
            
            
              | 424 | 
                  is($result[0], $target_biblio->biblionumber, 'Correct biblionumber in hold_fill_targets for moved item');  | 
            
            
              | 425 | 
               | 
            
            
              | 426 | 
                  @result = $dbh->selectrow_array('SELECT biblionumber FROM hold_fill_targets WHERE itemnumber = ?', undef, $itemnumber2); | 
            
            
              | 427 | 
                  is($result[0], $source_biblionumber, 'Correct biblionumber in hold_fill_targets for unmoved item');  | 
            
            
              | 428 | 
               | 
            
            
              | 429 | 
                  @result = $dbh->selectrow_array('SELECT biblionumber FROM linktracker WHERE itemnumber = ?', undef, $itemnumber1); | 
            
            
              | 430 | 
                  is($result[0], $target_biblio->biblionumber, 'Correct biblionumber in linktracker for moved item');  | 
            
            
              | 431 | 
               | 
            
            
              | 432 | 
                  @result = $dbh->selectrow_array('SELECT biblionumber FROM linktracker WHERE itemnumber = ?', undef, $itemnumber2); | 
            
            
              | 433 | 
                  is($result[0], $source_biblionumber, 'Correct biblionumber in linktracker for unmoved item');  | 
            
            
              | 434 | 
               | 
            
            
              | 435 | 
                  $schema->storage->txn_rollback;  | 
            
            
              | 436 | 
              };  |