SF.net SVN: ledger-smb: [1420] trunk/LedgerSMB/IS.pm

[..hidden..]

Revision: 1420
          http://svn.sourceforge.net/ledger-smb/?rev=1420&view=rev
Author:   einhverfr
Date:     2007-07-17 09:45:00 -0700 (Tue, 17 Jul 2007)

Log Message:
-----------
Fixed: scoping issues in IS.pm (bug 1754576

Modified Paths:
--------------
    trunk/LedgerSMB/IS.pm

Modified: trunk/LedgerSMB/IS.pm
===================================================================
--- trunk/LedgerSMB/IS.pm	2007-07-17 16:44:10 UTC (rev 1419)
+++ trunk/LedgerSMB/IS.pm	2007-07-17 16:45:00 UTC (rev 1420)
@@ -1090,7 +1090,7 @@
  					(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 @@
 			            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);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.