View | Details | Raw Unified | Return to bug 31840
Collapse All | Expand All

(-)a/acqui/addorder.pl (-1 / +8 lines)
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
- 

Return to bug 31840