View | Details | Raw Unified | Return to bug 11549
Collapse All | Expand All

(-)a/t/db_dependent/Acquisition/TransferOrder.t (-3 / +9 lines)
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
- 

Return to bug 11549