From 2f3d852644fb85287c34a60eba9e35966492ed58 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Thu, 5 Jun 2008 04:00:18 +0000 Subject: 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 --- LedgerSMB/IR.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'LedgerSMB') 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; -- cgit v1.2.3