4 use Test::More tests => 43;
7 use C4::Acquisition qw( NewBasket GetBasketsInfosByBookseller );
8 use C4::Biblio qw( AddBiblio );
9 use C4::Budgets qw( AddBudget );
12 use Koha::Acquisition::Orders;
14 my $schema = Koha::Database->new()->schema();
15 $schema->storage->txn_begin();
17 my $supplier = Koha::Acquisition::Bookseller->new(
20 address1 => 'bookseller\'s address',
26 my $supplierid = $supplier->id;
29 ok($basketno = NewBasket($supplierid, 1), 'NewBasket( $supplierid , 1 ) returns $basketno');
31 my $budgetid = C4::Budgets::AddBudget(
33 budget_code => 'budget_code_test_1',
34 budget_name => 'budget_name_test_1',
37 my $budget = C4::Budgets::GetBudget( $budgetid );
39 my ($biblionumber1, $biblioitemnumber1) = AddBiblio(MARC::Record->new, '');
40 my ($biblionumber2, $biblioitemnumber2) = AddBiblio(MARC::Record->new, '');
41 my ($biblionumber3, $biblioitemnumber3) = AddBiblio(MARC::Record->new, '');
43 my $order1 = Koha::Acquisition::Order->new(
45 basketno => $basketno,
47 biblionumber => $biblionumber1,
48 budget_id => $budget->{budget_id},
51 my $ordernumber1 = $order1->ordernumber;
53 my $order2 = Koha::Acquisition::Order->new(
55 basketno => $basketno,
57 biblionumber => $biblionumber2,
58 budget_id => $budget->{budget_id},
61 my $ordernumber2 = $order2->ordernumber;
63 my $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
64 is( scalar(@$baskets), 1, 'Start: 1 basket' );
65 my $basket = $baskets->[0];
66 is( $basket->{total_items}, 6, 'Start with 6 items' );
67 is( $basket->{total_biblios}, 2, 'Start with 2 biblios' );
68 is( $basket->{total_items_cancelled}, 0, 'Start with 0 item cancelled' );
69 is( $basket->{expected_items}, 6, 'Start with 6 items expected' );
70 is( $basket->{total_biblios_cancelled}, 0, 'Start with 0 biblio cancelled' );
72 $order1->uncertainprice(1)->store;
73 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
74 $basket = $baskets->[0];
75 is( $basket->{uncertainprices}, 1, "Uncertain prcies returns number of uncertain items");
76 $order2->uncertainprice(1)->store;
77 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
78 $basket = $baskets->[0];
79 is( $basket->{uncertainprices}, 2, "Uncertain prcies returns number of uncertain items");
80 $order1->uncertainprice(0)->store;
81 $order2->uncertainprice(0)->store;
82 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
83 $basket = $baskets->[0];
84 is( $basket->{uncertainprices}, 0, "Uncertain prcies returns number of uncertain items");
86 Koha::Acquisition::Orders->find($ordernumber2)->cancel;
87 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
88 is( scalar(@$baskets), 1, 'Order2 deleted, still 1 basket' );
89 $basket = $baskets->[0];
90 is( $basket->{total_items}, 6, 'Order2 deleted, still 6 items' );
91 is( $basket->{total_biblios}, 2, 'Order2 deleted, still 2 biblios' );
92 is( $basket->{total_items_cancelled}, 4, 'Order2 deleted, 4 items cancelled' );
93 is( $basket->{expected_items}, 2, 'Order2 deleted, now 2 items are expected' );
94 is( $basket->{total_biblios_cancelled}, 1, 'Order2 deleted, 1 biblios cancelled' );
96 Koha::Acquisition::Orders->find($ordernumber1)->cancel;
97 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
98 is( scalar(@$baskets), 1, 'Both orders deleted, still 1 basket' );
99 $basket = $baskets->[0];
100 is( $basket->{total_items}, 6, 'Both orders deleted, still 6 items' );
101 is( $basket->{total_biblios}, 2, 'Both orders deleted, still 2 biblios' );
102 is( $basket->{total_items_cancelled}, 6, 'Both orders deleted, 6 items cancelled' );
103 is( $basket->{expected_items}, 0, 'Both orders delete, now 0 items are expected' );
104 is( $basket->{total_biblios_cancelled}, 2, 'Both orders deleted, 2 biblios cancelled' );
106 Koha::Acquisition::Baskets->find( $basketno )->close;
107 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
108 is( scalar(@$baskets), 0, 'Basket is closed, 0 basket opened' );
109 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid, 1 );
110 is( scalar(@$baskets), 1, 'Basket is closed, test allbasket parameter');
112 C4::Acquisition::ReopenBasket( $basketno );
113 my $order3 = Koha::Acquisition::Order->new(
115 basketno => $basketno,
117 biblionumber => $biblionumber3,
118 budget_id => $budget->{budget_id},
121 my $ordernumber3 = $order3->ordernumber;
123 Koha::Acquisition::Baskets->find( $basketno )->close;
124 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
125 is( scalar(@$baskets), 1, 'Basket is closed and has items to receive' );
126 $basket = $baskets->[0];
127 is( $basket->{total_items}, 10, '2 orders deleted, 1 order pending, 10 items total' );
128 is( $basket->{total_biblios}, 3, '2 orders deleted, 1 order pending, 3 biblios total' );
129 is( $basket->{total_items_cancelled}, 6, '2 orders deleted, 1 order pending, still 6 items cancelled' );
130 is( $basket->{expected_items}, 4, '2 orders delete, 1 order pending, 4 items are expected' );
131 is( $basket->{total_biblios_cancelled}, 2, '2 orders deleted, 1 order pending, still 2 biblios cancelled' );
133 my $invoiceid1 = C4::Acquisition::AddInvoice(invoicenumber => 'invoice1', booksellerid => $supplierid, unknown => "unknown");
134 my $invoice1 = C4::Acquisition::GetInvoice( $invoiceid1 );
135 my ( $date_received, $ordernumber4 ) = C4::Acquisition::ModReceiveOrder(
137 biblionumber => $biblionumber3,
138 order => $order3->unblessed,
139 quantityreceived => 2,
140 budget_id => $budget->{budget_id},
141 invoice => $invoice1,
144 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
145 is( scalar(@$baskets), 1, 'Basket is closed and still has items to receive' );
146 $basket = $baskets->[0];
147 is( $basket->{total_items}, 10, '2 orders deleted, 1 order pending, 10 items total' );
148 is( $basket->{total_biblios}, 3, '2 orders deleted, 1 order pending, 3 biblios total' );
149 is( $basket->{total_items_cancelled}, 6, '2 orders deleted, 1 order pending, still 6 items cancelled' );
150 is( $basket->{expected_items}, 2, '2 orders delete, 1 order pending, 2 items are expected' );
151 is( $basket->{total_biblios_cancelled}, 2, '2 orders deleted, 1 order pending, still 2 biblios cancelled' );
153 my $invoiceid2 = C4::Acquisition::AddInvoice(invoicenumber => 'invoice1', booksellerid => $supplierid, unknown => "unknown");
154 my $invoice2 = C4::Acquisition::GetInvoice( $invoiceid2 );
155 my ( $date_received2, $ordernumber5 ) = C4::Acquisition::ModReceiveOrder(
157 biblionumber => $biblionumber3,
158 order => $order3->get_from_storage->unblessed,
159 quantityreceived => 2,
160 budget_id => $budget->{budget_id},
161 invoice => $invoice2,
164 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid, 1 );
165 is( scalar(@$baskets), 1, 'Basket is closed and has no items to receive, test allbasket parameter');
166 $basket = $baskets->[0];
167 is( $basket->{total_items}, 10, 'Basket is closed and has no items to receive, still 10 items total' );
168 is( $basket->{total_biblios}, 3, 'Basket is closed and has no items to receive, still 3 biblios total' );
169 is( $basket->{total_items_cancelled}, 6, 'Basket is closed and has no items to receive, still 6 items cancelled' );
170 is( $basket->{expected_items}, 0, 'Basket is closed and has no items to receive, 0 items are expected' );
171 is( $basket->{total_biblios_cancelled}, 2, 'Basket is closed and has no items to receive, still 2 biblios cancelled' );
173 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
174 is( scalar(@$baskets), 0, 'Basket is closed and has no items to receive' );
176 $schema->storage->txn_rollback();