|
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 |
- |
|
|