Lines 2-8
Link Here
|
2 |
|
2 |
|
3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
4 |
|
4 |
|
5 |
use Test::More tests => 2; |
5 |
use Test::More tests => 3; |
6 |
use C4::Context; |
6 |
use C4::Context; |
7 |
use C4::Acquisition; |
7 |
use C4::Acquisition; |
8 |
use C4::Biblio; |
8 |
use C4::Biblio; |
Lines 70-75
my $order = GetOrder( $ordernumber );
Link Here
|
70 |
is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 0, "Create items on receiving: 0 item exist after cancelling a receipt"); |
70 |
is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 0, "Create items on receiving: 0 item exist after cancelling a receipt"); |
71 |
|
71 |
|
72 |
t::lib::Mocks::mock_preference('AcqCreateItem', 'ordering'); |
72 |
t::lib::Mocks::mock_preference('AcqCreateItem', 'ordering'); |
|
|
73 |
t::lib::Mocks::mock_preference('AcqItemSetSubfieldsWhenReceiptIsCancelled', '7=9'); # notforloan is mapped with 952$7 |
73 |
( undef, $ordernumber ) = C4::Acquisition::NewOrder( |
74 |
( undef, $ordernumber ) = C4::Acquisition::NewOrder( |
74 |
{ |
75 |
{ |
75 |
basketno => $basketno1, |
76 |
basketno => $basketno1, |
Lines 95-98
CancelReceipt($ordernumber);
Link Here
|
95 |
$order = GetOrder( $ordernumber ); |
96 |
$order = GetOrder( $ordernumber ); |
96 |
is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 1, "Create items on ordering: items are not deleted after cancelling a receipt"); |
97 |
is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 1, "Create items on ordering: items are not deleted after cancelling a receipt"); |
97 |
|
98 |
|
|
|
99 |
my $item = C4::Items::GetItem( $itemnumber ); |
100 |
is( $item->{notforloan}, 9, "The notforloan value has been updated with '9'" ); |
101 |
|
98 |
$dbh->rollback; |
102 |
$dbh->rollback; |
99 |
- |
|
|