my $budget = GetBudget($budget_id);
my $budget_spent = GetBudgetSpent($budget_id);
my $budget_ordered = GetBudgetOrdered($budget_id);
+
+ my $ordernumber = $input->param('ordernumber');
+ if ( $ordernumber ) {
+ # modifying an existing order so remove order price from $budget_ordered
+ my $order = Koha::Acquisition::Orders->find($ordernumber);
+ $budget_ordered = $budget_ordered - ( $order->ecost_tax_included * $order->quantity );
+ }
+
my $budget_used = $budget_spent + $budget_ordered;
my $budget_remaining = $budget->{budget_amount} - $budget_used;
my $budget_encumbrance = $budget->{budget_amount} * $budget->{budget_encumb} / 100;
foreach (keys %$vars) {
push @vars_loop, {
name => $_,
- values => [$input->param($_)],
+ values => [ $input->multi_param($_) ],
};
}
sort1 => scalar $input->param('sort1'),
sort2 => scalar $input->param('sort2'),
subscriptionid => scalar $input->param('subscriptionid'),
+ estimated_delivery_date => scalar $input->param('estimated_delivery_date'),
};
$orderinfo->{uncertainprice} ||= 0;
}
$orderinfo->{unitprice} = $orderinfo->{ecost} if not defined $orderinfo->{unitprice} or $orderinfo->{unitprice} eq '';
- $orderinfo->{estimated_delivery_date} = $orderinfo->{estimated_delivery_date} ? dt_from_string($orderinfo->{estimated_delivery_date}) : undef;
my $order;
my $log_action_name;