|
Lines 17-23
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
| 20 |
use Test::More tests => 66; |
20 |
use Test::More tests => 67; |
| 21 |
use DateTime::Duration; |
21 |
use DateTime::Duration; |
| 22 |
|
22 |
|
| 23 |
use t::lib::Mocks; |
23 |
use t::lib::Mocks; |
|
Lines 462-472
AddReturn( 'barcode_3', $branchcode_1 );
Link Here
|
| 462 |
$item = Koha::Items->find( $itemnumber ); |
462 |
$item = Koha::Items->find( $itemnumber ); |
| 463 |
ok( $item->notforloan eq 0, q{UpdateNotForLoanStatusOnCheckin _ALL_ rules are applied if there are no specific item type rule matching the returned item} ); |
463 |
ok( $item->notforloan eq 0, q{UpdateNotForLoanStatusOnCheckin _ALL_ rules are applied if there are no specific item type rule matching the returned item} ); |
| 464 |
|
464 |
|
| 465 |
t::lib::Mocks::mock_preference( 'UpdateNotForLoanStatusOnCheckin', '1: ONLYMESSAGE' ); |
465 |
t::lib::Mocks::mock_preference( |
|
|
466 |
'UpdateNotForLoanStatusOnCheckin', q{_ALL_: |
| 467 |
1: ONLYMESSAGE |
| 468 |
} |
| 469 |
); |
| 466 |
$item->notforloan(1)->store; |
470 |
$item->notforloan(1)->store; |
| 467 |
AddReturn( 'barcode_3', $branchcode_1 ); |
471 |
AddReturn( 'barcode_3', $branchcode_1 ); |
| 468 |
$item = Koha::Items->find( $itemnumber ); |
472 |
$item->discard_changes; |
| 469 |
ok( $item->notforloan eq 1, q{UpdateNotForLoanStatusOnCheckin does not update notforloan value from 1 with setting "1: ONLYMESSAGE"} ); |
473 |
is( |
|
|
474 |
$item->notforloan, 1, |
| 475 |
q{UpdateNotForLoanStatusOnCheckin does not update notforloan value from 1 for _ALL_ with setting "1: ONLYMESSAGE"} |
| 476 |
); |
| 477 |
|
| 478 |
|
| 479 |
t::lib::Mocks::mock_preference( |
| 480 |
'UpdateNotForLoanStatusOnCheckin', "$itemtype:\n |
| 481 |
1: ONLYMESSAGE |
| 482 |
" |
| 483 |
); |
| 484 |
AddReturn( 'barcode_3', $branchcode_1 ); |
| 485 |
$item->discard_changes; |
| 486 |
is( |
| 487 |
$item->notforloan, 1, |
| 488 |
q{UpdateNotForLoanStatusOnCheckin does not update notforloan value for specific itemtype from 1 with setting "1: ONLYMESSAGE"} |
| 489 |
); |
| 470 |
|
490 |
|
| 471 |
my $itemnumber2 = Koha::Item->new( |
491 |
my $itemnumber2 = Koha::Item->new( |
| 472 |
{ |
492 |
{ |
| 473 |
- |
|
|