summaryrefslogtreecommitdiff
path: root/LedgerSMB/IR.pm
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-07-07 18:48:43 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-07-07 18:48:43 +0000
commit4c7c23a02f4b4544a76a3f0abff53d5114ba81bb (patch)
tree485a2af29197f03ad03995886718d6765f400396 /LedgerSMB/IR.pm
parent79ad62faabde1c58e42aac8a10e1d1f0fdb6ed18 (diff)
Applying Victor Sterpu's fix to bug 1748895
Fixing bareword error with pos.conf.pl Adding Victor to contributors file git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1353 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/IR.pm')
-rw-r--r--LedgerSMB/IR.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/LedgerSMB/IR.pm b/LedgerSMB/IR.pm
index ff0b2704..f3008ef3 100644
--- a/LedgerSMB/IR.pm
+++ b/LedgerSMB/IR.pm
@@ -406,6 +406,8 @@ sub post_invoice {
$form->update_balance( $dbh, "invoice", "allocated",
qq|id = $ref->{id}|,
$qty * -1 );
+ $form->update_balance( $dbh, "invoice", "allocated",
+ qq|id =$invoice_id|,$qty);
$allocated += $qty;
@@ -1411,4 +1413,4 @@ sub toggle_on_hold {
}
}
-1; \ No newline at end of file
+1;