+
+ 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 );
+ }
+