Lines 807-812
is( $neworder->{'quantityreceived'},
Link Here
|
807 |
2, 'Splitting up order received items on new order' ); |
807 |
2, 'Splitting up order received items on new order' ); |
808 |
is( $neworder->{'budget_id'}, $budgetid, 'Budget on new order is unchanged' ); |
808 |
is( $neworder->{'budget_id'}, $budgetid, 'Budget on new order is unchanged' ); |
809 |
|
809 |
|
|
|
810 |
is( $neworder->{ordernumber}, $new_ordernumber, 'Split: test ordernumber' ); |
811 |
is( $neworder->{parent_ordernumber}, $ordernumber2, 'Split: test parent_ordernumber' ); |
812 |
|
813 |
( $orders ) = GetHistory( ordernumber => $ordernumber2 ); |
814 |
is( scalar( @$orders ), 1, 'GetHistory with a given ordernumber returns 1 order' ); |
815 |
( $orders ) = GetHistory( ordernumber => $ordernumber2, search_children_too => 1 ); |
816 |
is( scalar( @$orders ), 2, 'GetHistory with a given ordernumber and search_children_too set returns 2 orders' ); |
817 |
|
810 |
my $budgetid2 = C4::Budgets::AddBudget( |
818 |
my $budgetid2 = C4::Budgets::AddBudget( |
811 |
{ |
819 |
{ |
812 |
budget_code => "budget_code_test_modrecv", |
820 |
budget_code => "budget_code_test_modrecv", |
813 |
- |
|
|