Lines 8-14
use POSIX qw(strftime);
Link Here
|
8 |
|
8 |
|
9 |
use C4::Bookseller qw( GetBookSellerFromId ); |
9 |
use C4::Bookseller qw( GetBookSellerFromId ); |
10 |
|
10 |
|
11 |
use Test::More tests => 41; |
11 |
use Test::More tests => 56; |
12 |
|
12 |
|
13 |
BEGIN { |
13 |
BEGIN { |
14 |
use_ok('C4::Acquisition'); |
14 |
use_ok('C4::Acquisition'); |
Lines 127-130
for my $field ( @expectedfields ) {
Link Here
|
127 |
ok( exists( $firstorder->{ $field } ), "This order has a $field field" ); |
127 |
ok( exists( $firstorder->{ $field } ), "This order has a $field field" ); |
128 |
} |
128 |
} |
129 |
|
129 |
|
|
|
130 |
my $invoiceid = AddInvoice(invoicenumber => 'invoice', booksellerid => 1, unknown => "unknown"); |
131 |
|
132 |
my ($datereceived, $new_ordernumber) = ModReceiveOrder( |
133 |
$biblionumber2, |
134 |
$ordernumber2, |
135 |
2, |
136 |
undef, |
137 |
12, |
138 |
12, |
139 |
$invoiceid, |
140 |
42, |
141 |
); |
142 |
my $order2 = GetOrder( $ordernumber2 ); |
143 |
is($order2->{'quantityreceived'}, 0, 'Splitting up order did not receive any on original order'); |
144 |
is($order2->{'quantity'}, 40, '40 items on original order'); |
145 |
is($order2->{'budget_id'}, $budgetid, 'Budget on original order is unchanged'); |
146 |
|
147 |
$neworder = GetOrder( $new_ordernumber ); |
148 |
is($neworder->{'quantity'}, 2, '2 items on new order'); |
149 |
is($neworder->{'quantityreceived'}, 2, 'Splitting up order received items on new order'); |
150 |
is($neworder->{'budget_id'}, $budgetid, 'Budget on new order is unchanged'); |
151 |
|
152 |
my $budgetid2 = C4::Budgets::AddBudget( |
153 |
{ |
154 |
budget_code => "budget_code_test_modrecv", |
155 |
budget_name => "budget_name_test_modrecv", |
156 |
} |
157 |
); |
158 |
|
159 |
($datereceived, $new_ordernumber) = ModReceiveOrder( |
160 |
$biblionumber2, |
161 |
$ordernumber3, |
162 |
2, |
163 |
undef, |
164 |
12, |
165 |
12, |
166 |
$invoiceid, |
167 |
42, |
168 |
$budgetid2 |
169 |
); |
170 |
|
171 |
my $order3 = GetOrder( $ordernumber3 ); |
172 |
is($order3->{'quantityreceived'}, 0, 'Splitting up order did not receive any on original order'); |
173 |
is($order3->{'quantity'}, 2, '2 items on original order'); |
174 |
is($order3->{'budget_id'}, $budgetid, 'Budget on original order is unchanged'); |
175 |
|
176 |
$neworder = GetOrder( $new_ordernumber ); |
177 |
is($neworder->{'quantity'}, 2, '2 items on new order'); |
178 |
is($neworder->{'quantityreceived'}, 2, 'Splitting up order received items on new order'); |
179 |
is($neworder->{'budget_id'}, $budgetid2, 'Budget on new order is changed'); |
180 |
|
181 |
($datereceived, $new_ordernumber) = ModReceiveOrder( |
182 |
$biblionumber2, |
183 |
$ordernumber3, |
184 |
2, |
185 |
undef, |
186 |
12, |
187 |
12, |
188 |
$invoiceid, |
189 |
42, |
190 |
$budgetid2 |
191 |
); |
192 |
|
193 |
$order3 = GetOrder( $ordernumber3 ); |
194 |
is($order3->{'quantityreceived'}, 2, 'Order not split up'); |
195 |
is($order3->{'quantity'}, 2, '2 items on order'); |
196 |
is($order3->{'budget_id'}, $budgetid2, 'Budget has changed'); |
197 |
|
130 |
$dbh->rollback; |
198 |
$dbh->rollback; |
131 |
- |
|
|