|
Lines 2-14
Link Here
|
| 2 |
|
2 |
|
| 3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
| 4 |
|
4 |
|
| 5 |
use Test::More tests => 6; |
5 |
use Test::More tests => 8; |
| 6 |
use C4::Context; |
6 |
use C4::Context; |
| 7 |
use C4::Acquisition; |
7 |
use C4::Acquisition; |
| 8 |
use C4::Biblio; |
8 |
use C4::Biblio; |
| 9 |
use C4::Items; |
9 |
use C4::Items; |
| 10 |
use C4::Bookseller; |
10 |
use C4::Bookseller; |
| 11 |
use C4::Budgets; |
11 |
use C4::Budgets; |
|
|
12 |
use Koha::DateUtils; |
| 12 |
use MARC::Record; |
13 |
use MARC::Record; |
| 13 |
|
14 |
|
| 14 |
my $dbh = C4::Context->dbh; |
15 |
my $dbh = C4::Context->dbh; |
|
Lines 56-62
my $itemnumber = AddItem({}, $biblionumber);
Link Here
|
| 56 |
my ( undef, $ordernumber ) = C4::Acquisition::NewOrder( |
57 |
my ( undef, $ordernumber ) = C4::Acquisition::NewOrder( |
| 57 |
{ |
58 |
{ |
| 58 |
basketno => $basketno1, |
59 |
basketno => $basketno1, |
| 59 |
quantity => 24, |
60 |
quantity => 2, |
| 60 |
biblionumber => $biblionumber, |
61 |
biblionumber => $biblionumber, |
| 61 |
budget_id => $budget->{budget_id}, |
62 |
budget_id => $budget->{budget_id}, |
| 62 |
} |
63 |
} |
|
Lines 77-80
is(scalar GetOrders($basketno2), 1, "1 order in basket2");
Link Here
|
| 77 |
($order) = GetOrders($basketno2); |
78 |
($order) = GetOrders($basketno2); |
| 78 |
is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 1, "1 item in basket2's order"); |
79 |
is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 1, "1 item in basket2's order"); |
| 79 |
|
80 |
|
|
|
81 |
ModReceiveOrder( $biblionumber, $newordernumber, 2, undef, undef, undef, undef, undef, undef, dt_from_string ); |
| 82 |
CancelReceipt( $newordernumber ); |
| 83 |
$order = GetOrder( $newordernumber ); |
| 84 |
is ( $order->{ordernumber}, $newordernumber, 'Regression test Bug 11549: After a transfer, receive and cancel the receive should be possible.' ); |
| 85 |
is ( $order->{basketno}, $basketno2, 'Regression test Bug 11549: The order still exist in the basket where the transfer has been done.'); |
| 86 |
|
| 80 |
$dbh->rollback; |
87 |
$dbh->rollback; |
| 81 |
- |
|
|