Lines 17-23
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 33; |
20 |
use Test::More tests => 45; |
21 |
use DateTime::Duration; |
21 |
use DateTime::Duration; |
22 |
|
22 |
|
23 |
use t::lib::Mocks; |
23 |
use t::lib::Mocks; |
Lines 373-378
AddReturn( 'barcode_3', $branchcode_1 );
Link Here
|
373 |
$item = Koha::Items->find( $itemnumber ); |
373 |
$item = Koha::Items->find( $itemnumber ); |
374 |
ok( $item->notforloan eq 9, q{UpdateNotForLoanStatusOnCheckin does not update notforloan value from 9 with setting "1: 9"} ); |
374 |
ok( $item->notforloan eq 9, q{UpdateNotForLoanStatusOnCheckin does not update notforloan value from 9 with setting "1: 9"} ); |
375 |
|
375 |
|
|
|
376 |
my $itemnumber2; |
377 |
($biblionumber, $biblioitemnumber, $itemnumber2) = C4::Items::AddItem( |
378 |
{ |
379 |
barcode => 'barcode_4', |
380 |
itemcallnumber => 'callnumber4', |
381 |
homebranch => $branchcode_1, |
382 |
holdingbranch => $branchcode_1, |
383 |
location => 'FIC', |
384 |
itype => $itemtype |
385 |
}, |
386 |
$biblionumber |
387 |
); |
388 |
|
389 |
t::lib::Mocks::mock_preference( 'UpdateItemLocationOnCheckin', q{} ); |
390 |
AddReturn( 'barcode_4', $branchcode_1 ); |
391 |
my $item2 = Koha::Items->find( $itemnumber2 ); |
392 |
ok( $item2->location eq 'FIC', 'UpdateItemLocationOnCheckin does not modify value when not enabled' ); |
393 |
|
394 |
t::lib::Mocks::mock_preference( 'UpdateItemLocationOnCheckin', 'FIC: GEN' ); |
395 |
AddReturn( 'barcode_4', $branchcode_1 ); |
396 |
$item2 = Koha::Items->find( $itemnumber2 ); |
397 |
ok( $item2->location eq 'GEN', q{UpdateItemLocationOnCheckin updates location value from 'FIC' to 'GEN' with setting "FIC: GEN"} ); |
398 |
ok( $item2->permanent_location eq 'GEN', q{UpdateItemLocationOnCheckin updates permanent_location value from 'FIC' to 'GEN' with setting "FIC: GEN"} ); |
399 |
AddReturn( 'barcode_4', $branchcode_1 ); |
400 |
$item2 = Koha::Items->find( $itemnumber2 ); |
401 |
ok( $item2->location eq 'GEN', q{UpdateItemLocationOnCheckin does not update location value from 'GEN' with setting "FIC: GEN"} ); |
402 |
|
403 |
t::lib::Mocks::mock_preference( 'UpdateItemLocationOnCheckin', '_ALL_: CART' ); |
404 |
AddReturn( 'barcode_4', $branchcode_1 ); |
405 |
$item2 = Koha::Items->find( $itemnumber2 ); |
406 |
ok( $item2->location eq 'CART', q{UpdateItemLocationOnCheckin updates location value from 'GEN' with setting "_ALL_: CART"} ); |
407 |
ok( $item2->permanent_location eq 'GEN', q{UpdateItemLocationOnCheckin does not update permanent_location value from 'GEN' with setting "_ALL_: CART"} ); |
408 |
AddIssue( $borrower_1, 'barcode_4', $daysago10,0, $today, '' ); |
409 |
$item2 = Koha::Items->find( $itemnumber2 ); |
410 |
ok( $item2->location eq 'GEN', q{Location updates from 'CART' to permanent location on issue} ); |
411 |
|
412 |
t::lib::Mocks::mock_preference( 'UpdateItemLocationOnCheckin', "GEN: _BLANK_\n_BLANK_: PROC\nPROC: _PERM_" ); |
413 |
AddReturn( 'barcode_4', $branchcode_1 ); |
414 |
$item2 = Koha::Items->find( $itemnumber2 ); |
415 |
ok( $item2->location eq '', q{UpdateItemLocationOnCheckin updates location value from 'GEN' to '' with setting "GEN: _BLANK_"} ); |
416 |
AddReturn( 'barcode_4', $branchcode_1 ); |
417 |
$item2 = Koha::Items->find( $itemnumber2 ); |
418 |
ok( $item2->location eq 'PROC' , q{UpdateItemLocationOnCheckin updates location value from '' to 'PROC' with setting "_BLANK_: PROC"} ); |
419 |
ok( $item2->permanent_location eq '' , q{UpdateItemLocationOnCheckin does not update permanent_location value from '' to 'PROC' with setting "_BLANK_: PROC"} ); |
420 |
AddReturn( 'barcode_4', $branchcode_1 ); |
421 |
$item2 = Koha::Items( $itemnumber2 ); |
422 |
ok( $item2->location eq '' , q{UpdateItemLocationOnCheckin updates location value from 'PROC' to '' with setting "PROC: _PERM_" } ); |
423 |
ok( $item2->permanent_location eq '' , q{UpdateItemLocationOnCheckin does not update permanent_location from '' with setting "PROC: _PERM_" } ); |
424 |
|
425 |
|
426 |
|
427 |
|
376 |
# Bug 14640 - Cancel the hold on checking out if asked |
428 |
# Bug 14640 - Cancel the hold on checking out if asked |
377 |
my $reserve_id = AddReserve($branchcode_1, $borrower_id1, $biblionumber, |
429 |
my $reserve_id = AddReserve($branchcode_1, $borrower_id1, $biblionumber, |
378 |
undef, 1, undef, undef, "a note", "a title", undef, ''); |
430 |
undef, 1, undef, undef, "a note", "a title", undef, ''); |