SF.net SVN: ledger-smb: [753] branches/1.2/bin/io.pl

[..hidden..]

Revision: 753
          http://svn.sourceforge.net/ledger-smb/?rev=753&view=rev
Author:   tetragon
Date:     2007-01-11 16:55:34 -0800 (Thu, 11 Jan 2007)

Log Message:
-----------
Fix for 1633654.  Only use the item's sellprice if not entered by the user.

Modified Paths:
--------------
    branches/1.2/bin/io.pl

Modified: branches/1.2/bin/io.pl
===================================================================
--- branches/1.2/bin/io.pl	2007-01-12 00:52:57 UTC (rev 752)
+++ branches/1.2/bin/io.pl	2007-01-12 00:55:34 UTC (rev 753)
@@ -473,9 +473,10 @@
       $form->{"discount_$i"} = $form->{discount} * 100;
       $form->{"reqdate_$i"} = $form->{reqdate} if $form->{type} !~ /_quotation/;
 
-      for (qw(id partnumber sku description sellprice listprice lastcost bin unit weight assembly taxaccounts pricematrix onhand notes inventory_accno_id income_accno_id expense_accno_id)) {
+      for (qw(id partnumber sku description listprice lastcost bin unit weight assembly taxaccounts pricematrix onhand notes inventory_accno_id income_accno_id expense_accno_id)) {
 	$form->{"${_}_$i"} = $form->{"new_${_}_$j"};
       }
+      $form->{"sellprice_$i"} = $form->{"new_sellprice_$j"} if not $form->{"sellprice_$i"};
 
       $form->{"partsgroup_$i"} = qq|$form->{"new_partsgroup_$j"}--$form->{"new_partsgroup_id_$j"}|;
 


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