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