summaryrefslogtreecommitdiff
path: root/LedgerSMB/IR.pm
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2008-06-05 04:00:18 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2008-06-05 04:00:18 +0000
commit2f3d852644fb85287c34a60eba9e35966492ed58 (patch)
tree0f4402a85c71b901b3d6dda67a403701857d3f4f /LedgerSMB/IR.pm
parentf650d1c819842ecdd1cb92fdf4c4490f718b9eaf (diff)
Final revisions to Changelog and Build.PL for 1.2.14 before beta
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@2158 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/IR.pm')
-rwxr-xr-xLedgerSMB/IR.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/LedgerSMB/IR.pm b/LedgerSMB/IR.pm
index 4d9958a9..1de8155a 100755
--- a/LedgerSMB/IR.pm
+++ b/LedgerSMB/IR.pm
@@ -907,16 +907,16 @@ sub reverse_invoice {
# delete acc_trans
$query = qq|DELETE FROM acc_trans WHERE trans_id = ?|;
- $dbh->prepare($query);
+ $sth = $dbh->prepare($query);
$sth->execute( $form->{id} ) || $form->dberror($query);
# delete invoice entries
$query = qq|DELETE FROM invoice WHERE trans_id = ?|;
- $dbh->prepare($query);
+ $sth = $dbh->prepare($query);
$sth->execute( $form->{id} ) || $form->dberror($query);
$query = qq|DELETE FROM shipto WHERE trans_id = ?|;
- $dbh->prepare($query);
+ $sth = $dbh->prepare($query);
$sth->execute( $form->{id} ) || $form->dberror($query);
$dbh->commit;