Lines 155-160
unless($confirm_budget_exceeding) {
Link Here
|
155 |
my $budget = GetBudget($budget_id); |
155 |
my $budget = GetBudget($budget_id); |
156 |
my $budget_spent = GetBudgetSpent($budget_id); |
156 |
my $budget_spent = GetBudgetSpent($budget_id); |
157 |
my $budget_ordered = GetBudgetOrdered($budget_id); |
157 |
my $budget_ordered = GetBudgetOrdered($budget_id); |
|
|
158 |
|
159 |
my $ordernumber = $input->param('ordernumber'); |
160 |
if ( $ordernumber ) { |
161 |
# modifying an existing order so remove order price from $budget_ordered |
162 |
my $order = Koha::Acquisition::Orders->find($ordernumber); |
163 |
$budget_ordered = $budget_ordered - ( $order->ecost_tax_included * $order->quantity ); |
164 |
} |
165 |
|
158 |
my $budget_used = $budget_spent + $budget_ordered; |
166 |
my $budget_used = $budget_spent + $budget_ordered; |
159 |
my $budget_remaining = $budget->{budget_amount} - $budget_used; |
167 |
my $budget_remaining = $budget->{budget_amount} - $budget_used; |
160 |
my $budget_encumbrance = $budget->{budget_amount} * $budget->{budget_encumb} / 100; |
168 |
my $budget_encumbrance = $budget->{budget_amount} * $budget->{budget_encumb} / 100; |
161 |
- |
|
|