Lines 2-8
Link Here
|
2 |
|
2 |
|
3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
4 |
|
4 |
|
5 |
use Test::More tests => 3; |
5 |
use Test::More tests => 4; |
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 69-75
CancelReceipt($ordernumber);
Link Here
|
69 |
my $order = GetOrder( $ordernumber ); |
69 |
my $order = GetOrder( $ordernumber ); |
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 |
$itemnumber = AddItem({}, $biblionumber); |
72 |
my $itemnumber1 = AddItem({}, $biblionumber); |
|
|
73 |
my $itemnumber2 = AddItem({}, $biblionumber); |
73 |
t::lib::Mocks::mock_preference('AcqCreateItem', 'ordering'); |
74 |
t::lib::Mocks::mock_preference('AcqCreateItem', 'ordering'); |
74 |
t::lib::Mocks::mock_preference('AcqItemSetSubfieldsWhenReceiptIsCancelled', '7=9'); # notforloan is mapped with 952$7 |
75 |
t::lib::Mocks::mock_preference('AcqItemSetSubfieldsWhenReceiptIsCancelled', '7=9'); # notforloan is mapped with 952$7 |
75 |
( undef, $ordernumber ) = C4::Acquisition::NewOrder( |
76 |
( undef, $ordernumber ) = C4::Acquisition::NewOrder( |
Lines 81-103
t::lib::Mocks::mock_preference('AcqItemSetSubfieldsWhenReceiptIsCancelled', '7=9
Link Here
|
81 |
} |
82 |
} |
82 |
); |
83 |
); |
83 |
|
84 |
|
84 |
ModReceiveOrder( |
85 |
NewOrderItem($itemnumber1, $ordernumber); |
|
|
86 |
NewOrderItem($itemnumber2, $ordernumber); |
87 |
|
88 |
my ( undef, $new_ordernumber ) = ModReceiveOrder( |
85 |
{ |
89 |
{ |
86 |
biblionumber => $biblionumber, |
90 |
biblionumber => $biblionumber, |
87 |
ordernumber => $ordernumber, |
91 |
ordernumber => $ordernumber, |
88 |
quantityreceived => 2, |
92 |
quantityreceived => 1, |
89 |
datereceived => dt_from_string |
93 |
datereceived => dt_from_string, |
|
|
94 |
received_items => [ $itemnumber1 ], |
90 |
} |
95 |
} |
91 |
); |
96 |
); |
92 |
|
97 |
|
93 |
NewOrderItem($itemnumber, $ordernumber); |
98 |
CancelReceipt($new_ordernumber); |
94 |
|
99 |
|
95 |
CancelReceipt($ordernumber); |
100 |
is(scalar( GetItemnumbersFromOrder($ordernumber) ), 2, "Create items on ordering: items are not deleted after cancelling a receipt"); |
96 |
|
101 |
|
97 |
$order = GetOrder( $ordernumber ); |
102 |
my $item1 = C4::Items::GetItem( $itemnumber1 ); |
98 |
is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 1, "Create items on ordering: items are not deleted after cancelling a receipt"); |
103 |
is( $item1->{notforloan}, 9, "The notforloan value has been updated with '9'" ); |
99 |
|
104 |
|
100 |
my $item = C4::Items::GetItem( $itemnumber ); |
105 |
my $item2 = C4::Items::GetItem( $itemnumber2 ); |
101 |
is( $item->{notforloan}, 9, "The notforloan value has been updated with '9'" ); |
106 |
is( $item2->{notforloan}, 0, "The notforloan value has been updated with '9'" ); |
102 |
|
107 |
|
103 |
$dbh->rollback; |
108 |
$dbh->rollback; |
104 |
- |
|
|