|
Lines 2645-2651
subtest 'Cancel transfers on lost items' => sub {
Link Here
|
| 2645 |
my ($datesent,$frombranch,$tobranch) = GetTransfers($item->itemnumber); |
2645 |
my ($datesent,$frombranch,$tobranch) = GetTransfers($item->itemnumber); |
| 2646 |
is( $tobranch, $library_2->{branchcode}, 'The transfer record exists in the branchtransfers table'); |
2646 |
is( $tobranch, $library_2->{branchcode}, 'The transfer record exists in the branchtransfers table'); |
| 2647 |
my $itemcheck = Koha::Items->find($item->itemnumber); |
2647 |
my $itemcheck = Koha::Items->find($item->itemnumber); |
| 2648 |
is( $itemcheck->holdingbranch, $library_2->{branchcode}, 'Items holding branch is the transfers destination branch before it is marked as lost' ); |
2648 |
is( $itemcheck->holdingbranch, $library_1->{branchcode}, 'Items holding branch is the transfers origin branch before it is marked as lost' ); |
| 2649 |
|
2649 |
|
| 2650 |
#Simulate item being marked as lost and confirm the transfer is deleted and the items holding branch is the transfers source branch |
2650 |
#Simulate item being marked as lost and confirm the transfer is deleted and the items holding branch is the transfers source branch |
| 2651 |
ModItem( { itemlost => 1 }, $item->biblionumber, $item->itemnumber ); |
2651 |
ModItem( { itemlost => 1 }, $item->biblionumber, $item->itemnumber ); |
| 2652 |
- |
|
|