Lines 5803-5814
subtest 'Tests for BlockReturnOfWithdrawnItems' => sub {
Link Here
|
5803 |
plan tests => 1; |
5803 |
plan tests => 1; |
5804 |
|
5804 |
|
5805 |
t::lib::Mocks::mock_preference('BlockReturnOfWithdrawnItems', 1); |
5805 |
t::lib::Mocks::mock_preference('BlockReturnOfWithdrawnItems', 1); |
|
|
5806 |
my $RecordLocalUseOnReturn = C4::Context->preference('RecordLocalUseOnReturn') ? 1 : 0; |
5806 |
my $item = $builder->build_sample_item(); |
5807 |
my $item = $builder->build_sample_item(); |
5807 |
$item->withdrawn(1)->itemlost(1)->store; |
5808 |
$item->withdrawn(1)->itemlost(1)->store; |
5808 |
my @return = AddReturn( $item->barcode, $item->homebranch, 0, undef ); |
5809 |
my @return = AddReturn( $item->barcode, $item->homebranch, 0, undef ); |
5809 |
is_deeply( |
5810 |
is_deeply( |
5810 |
\@return, |
5811 |
\@return, |
5811 |
[ 0, { NotIssued => $item->barcode, withdrawn => 1 }, undef, {} ], "Item returned as withdrawn, no other messages"); |
5812 |
[ 0, { NotIssued => $item->barcode, withdrawn => 1, LocalUse => $RecordLocalUseOnReturn }, undef, {} ], "Item returned as withdrawn, no other messages"); |
5812 |
}; |
5813 |
}; |
5813 |
|
5814 |
|
5814 |
subtest 'Tests for transfer not in transit' => sub { |
5815 |
subtest 'Tests for transfer not in transit' => sub { |
Lines 5819-5824
subtest 'Tests for transfer not in transit' => sub {
Link Here
|
5819 |
# These tests are to ensure a 'pending' transfer, generated by |
5820 |
# These tests are to ensure a 'pending' transfer, generated by |
5820 |
# stock rotation, will be advanced when checked in |
5821 |
# stock rotation, will be advanced when checked in |
5821 |
|
5822 |
|
|
|
5823 |
my $RecordLocalUseOnReturn = C4::Context->preference('RecordLocalUseOnReturn') ? 1 : 0; |
5822 |
my $item = $builder->build_sample_item(); |
5824 |
my $item = $builder->build_sample_item(); |
5823 |
my $transfer = $builder->build_object({ class => 'Koha::Item::Transfers', value => { |
5825 |
my $transfer = $builder->build_object({ class => 'Koha::Item::Transfers', value => { |
5824 |
itemnumber => $item->id, |
5826 |
itemnumber => $item->id, |
Lines 5829-5835
subtest 'Tests for transfer not in transit' => sub {
Link Here
|
5829 |
my @return = AddReturn( $item->barcode, $item->homebranch, 0, undef ); |
5831 |
my @return = AddReturn( $item->barcode, $item->homebranch, 0, undef ); |
5830 |
is_deeply( |
5832 |
is_deeply( |
5831 |
\@return, |
5833 |
\@return, |
5832 |
[ 0, { WasTransfered => $transfer->tobranch, TransferTrigger => 'StockrotationRepatriation', NotIssued => $item->barcode }, undef, {} ], "Item is reported to have been transferred"); |
5834 |
[ 0, { WasTransfered => $transfer->tobranch, TransferTrigger => 'StockrotationRepatriation', NotIssued => $item->barcode, LocalUse => $RecordLocalUseOnReturn }, undef, {} ], "Item is reported to have been transferred"); |
5833 |
|
5835 |
|
5834 |
$transfer->discard_changes; |
5836 |
$transfer->discard_changes; |
5835 |
ok( $transfer->datesent, 'The datesent field is populated, i.e. transfer is initiated'); |
5837 |
ok( $transfer->datesent, 'The datesent field is populated, i.e. transfer is initiated'); |
5836 |
- |
|
|