From 2e86f2c33e5954c6b1e50c7687bc74c6766b5d0f Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 17 Jul 2007 16:45:00 +0000
Subject: Fixed: scoping issues in IS.pm (bug 1754576

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1420 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/IS.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'LedgerSMB')

diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm
index 9682afd5..0a7d6486 100644
--- a/LedgerSMB/IS.pm
+++ b/LedgerSMB/IS.pm
@@ -1090,7 +1090,7 @@ sub post_invoice {
  					(trans_id, chart_id, amount, 
  					transdate, project_id) 
  				VALUES (?, ?, ?, ?, ?)|;
-  			$sth = $dbh->prepare($query);
+  			my $sth = $dbh->prepare($query);
      			$sth->execute(
                                  $form->{id}, 
                                  $form->{"expense_accno_id_$i"}, 
@@ -1554,7 +1554,7 @@ sub process_assembly {
 			            assemblyitem, unit)
 			     VALUES (?, ?, ?, ?, 0, 0, ?, 't', ?)|;
 
-        $sth = $dbh->prepare($query);
+        my $sth = $dbh->prepare($query);
         $sth->execute( $form->{id}, $ref->{description}, $ref->{parts_id},
             $ref->{qty}, $allocated, $ref->{unit} )
           || $form->dberror($query);
-- 
cgit v1.2.3