diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-07-27 16:57:28 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-07-27 16:57:28 +0000 |
commit | 2f671ee0ba5e46d6f9ccea30406dac29deb8835d (patch) | |
tree | 86851c3d1fe6e70d9aeaa7d8f9de0a4e66b1c434 /LedgerSMB | |
parent | 1e85fc89e1a41d52f3f4bc1df032e85b06c2516d (diff) |
Correcting SQL errors on inventory transfer
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1448 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
-rwxr-xr-x | LedgerSMB/OE.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/LedgerSMB/OE.pm b/LedgerSMB/OE.pm index 015d404c..fdb383ec 100755 --- a/LedgerSMB/OE.pm +++ b/LedgerSMB/OE.pm @@ -2108,7 +2108,7 @@ sub transfer { 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 @@ sub transfer { # 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; } |