View | Details | Raw Unified | Return to bug 33500
Collapse All | Expand All

(-)a/C4/Circulation.pm (+2 lines)
Lines 2114-2119 sub AddReturn { Link Here
2114
        if (C4::Context->preference("RecordLocalUseOnReturn")) {
2114
        if (C4::Context->preference("RecordLocalUseOnReturn")) {
2115
           $messages->{'LocalUse'} = 1;
2115
           $messages->{'LocalUse'} = 1;
2116
           $stat_type = 'localuse';
2116
           $stat_type = 'localuse';
2117
        } else {
2118
           $messages->{'LocalUse'} = 0;
2117
        }
2119
        }
2118
    }
2120
    }
2119
2121
(-)a/t/db_dependent/Circulation.t (-3 / +4 lines)
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
- 

Return to bug 33500