SF.net SVN: ledger-smb: [1448] branches/1.2/LedgerSMB/OE.pm

[..hidden..]

Revision: 1448
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1448&view=rev
Author:   einhverfr
Date:     2007-07-27 09:57:28 -0700 (Fri, 27 Jul 2007)

Log Message:
-----------
Correcting SQL errors on inventory transfer

Modified Paths:
--------------
    branches/1.2/LedgerSMB/OE.pm

Modified: branches/1.2/LedgerSMB/OE.pm
===================================================================
--- branches/1.2/LedgerSMB/OE.pm	2007-07-27 05:29:00 UTC (rev 1447)
+++ branches/1.2/LedgerSMB/OE.pm	2007-07-27 16:57:28 UTC (rev 1448)
@@ -2108,7 +2108,7 @@
     my $query = qq|
 		INSERT INTO inventory
 			(warehouse_id, parts_id, qty, shippingdate, employee_id)
-		VALUES (?, ?, ?, '$shippingdate', $form->{employee_id})|;
+		VALUES (?, ?, ?, ?, ?)|;
     $sth = $dbh->prepare($query) || $form->dberror($query);
 
     my $qty;
@@ -2131,7 +2131,8 @@
             # from warehouse
             if ( $form->{"warehouse_id_$i"} ) {
                 $sth->execute( $form->{"warehouse_id_$i"},
-                    $form->{"id_$i"}, $qty * -1 )
+                    $form->{"id_$i"}, $qty * -1, $shippingdate, 
+                    $form->{employee_id})
                   || $form->dberror;
                 $sth->finish;
             }


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