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

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@752 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 2 insertions, 1 deletions

diff --git a/bin/io.pl b/bin/io.pl
index 67db96ac..f644dfa2 100755
--- a/bin/io.pl
+++ b/bin/io.pl
@@ -473,9 +473,10 @@ sub item_selected {
       $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"} unless $form->{"sellprice_$i"};

 

       $form->{"partsgroup_$i"} = qq|$form->{"new_partsgroup_$j"}--$form->{"new_partsgroup_id_$j"}|;