From efd8334c5c1bdb3f37d76b6f999a36e3c4456860 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Fri, 27 Apr 2007 15:16:14 +0000
Subject: Fixing bind error in IS.pm re: Charlie Ambrose's email

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1112 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Batch.pm   | 5 +++++
 LedgerSMB/IS.pm      | 2 +-
 LedgerSMB/Voucher.pm | 5 +++++
 3 files changed, 11 insertions(+), 1 deletion(-)
 create mode 100644 LedgerSMB/Batch.pm
 create mode 100644 LedgerSMB/Voucher.pm

diff --git a/LedgerSMB/Batch.pm b/LedgerSMB/Batch.pm
new file mode 100644
index 00000000..591f409d
--- /dev/null
+++ b/LedgerSMB/Batch.pm
@@ -0,0 +1,5 @@
+
+
+package LedgerSMB::Batch;
+use base qw(LedgerSMB::DBObject);
+
diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm
index 13f83793..12e6941a 100644
--- a/LedgerSMB/IS.pm
+++ b/LedgerSMB/IS.pm
@@ -1022,7 +1022,7 @@ sub post_invoice {
 						  FROM parts p
 						  JOIN assembly a 
 						       ON (a.parts_id = p.id)
-						 WHERE a.id = $form->{"id_$i"}
+						 WHERE a.id = ?
 						 GROUP BY p.assembly|;
                     $sth = $dbh->prepare($query);
                     $sth->execute( $form->{"id_$i"} )
diff --git a/LedgerSMB/Voucher.pm b/LedgerSMB/Voucher.pm
new file mode 100644
index 00000000..288e76a9
--- /dev/null
+++ b/LedgerSMB/Voucher.pm
@@ -0,0 +1,5 @@
+
+
+package LedgerSMB::Voucher;
+use base qw(LedgerSMB::DBObject);
+
-- 
cgit v1.2.3