@@ -, +, @@ item --- C4/Items.pm | 2 ++ t/db_dependent/Circulation/transfers.t | 19 ++++++++++++++++++- 2 files changed, 20 insertions(+), 1 deletion(-) --- a/C4/Items.pm +++ a/C4/Items.pm @@ -623,6 +623,8 @@ sub ModItemTransfer { # Remove the 'shelving cart' location status if it is being used. CartToShelf( $itemnumber ) if ( C4::Context->preference("ReturnToShelvingCart") ); + $dbh->do("UPDATE branchtransfers SET datearrived = NOW(), comments = ? WHERE itemnumber = ?", undef, "Canceled, new transfer from $frombranch to $tobranch created", $itemnumber); + #new entry in branchtransfers.... my $sth = $dbh->prepare( "INSERT INTO branchtransfers (itemnumber, frombranch, datesent, tobranch) --- a/t/db_dependent/Circulation/transfers.t +++ a/t/db_dependent/Circulation/transfers.t @@ -23,10 +23,11 @@ use C4::Circulation; use Koha::Database; use Koha::DateUtils; use DateTime::Duration; +use Koha::Item::Transfers; use t::lib::TestBuilder; -use Test::More tests => 22; +use Test::More tests => 24; use Test::Deep; BEGIN { @@ -192,5 +193,21 @@ cmp_deeply( "Barcode and itemnumber for same item both generate same TransferSlip" ); +$dbh->do("DELETE FROM branchtransfers"); +ModItemTransfer( + $item_id1, + $branchcode_1, + $branchcode_2 +); +my $transfer = Koha::Item::Transfers->search()->next(); +ModItemTransfer( + $item_id1, + $branchcode_1, + $branchcode_2 +); +$transfer->{_result}->discard_changes; +ok( $transfer->datearrived, 'Date arrived is set when new transfer is initiated' ); +is( $transfer->comments, "Canceled, new transfer from $branchcode_1 to $branchcode_2 created" ); + $schema->storage->txn_rollback; --