SF.net SVN: ledger-smb: [1076] trunk/LedgerSMB/IR.pm

[..hidden..]

Revision: 1076
          http://svn.sourceforge.net/ledger-smb/?rev=1076&view=rev
Author:   christopherm
Date:     2007-04-17 13:05:55 -0700 (Tue, 17 Apr 2007)

Log Message:
-----------
Fixing vendor invoice issue where * -1 in prepared query caused type problems

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

Modified: trunk/LedgerSMB/IR.pm
===================================================================
--- trunk/LedgerSMB/IR.pm	2007-04-17 18:24:57 UTC (rev 1075)
+++ trunk/LedgerSMB/IR.pm	2007-04-17 20:05:55 UTC (rev 1076)
@@ -276,7 +276,7 @@
 				   SET trans_id = ?,
 				       parts_id = ?,
 				       description = ?,
-				       qty = ? * -1,
+				       qty = ?,
 				       sellprice = ?,
 				       fxsellprice = ?,
 				       discount = ?,
@@ -290,7 +290,7 @@
 			$sth = $dbh->prepare($query);
 			$sth->execute(
 				$form->{id},  $form->{"id_$i"}, 
-				$form->{"description_$i"}, $form->{"qty_$i"},
+				$form->{"description_$i"}, $form->{"qty_$i"} * -1,
 				$form->{"sellprice_$i"}, $fxsellprice,
 				$form->{"discount_$i"}, $allocated, 
 				$form->{"unit_$i"}, $form->{"deliverydate_$i"},


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