From a5906ea00d3742432f832e0533f595e6b006f989 Mon Sep 17 00:00:00 2001 From: tetragon Date: Fri, 12 Jan 2007 00:55:34 +0000 Subject: 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/branches/1.2@753 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/io.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/bin/io.pl b/bin/io.pl index 31e8636c..2caae7d7 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"} if not $form->{"sellprice_$i"}; $form->{"partsgroup_$i"} = qq|$form->{"new_partsgroup_$j"}--$form->{"new_partsgroup_id_$j"}|; -- cgit v1.2.3