diff options
Diffstat (limited to 'bin/ir.pl')
-rwxr-xr-x | bin/ir.pl | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -798,7 +798,6 @@ sub update { if ( $form->{import_text} ) { &import_text; } - $form->{exchangerate} = $form->parse_amount( \%myconfig, $form->{exchangerate} ); @@ -932,9 +931,9 @@ sub update { for ( keys %{ $form->{item_list}[0] } ) { $form->{"${_}_$i"} = $form->{item_list}[0]{$_}; } - - $form->{"discount_$i"} = $form->{discount} * 100; - + if (! defined $form->{"discount_$i"}){ + $form->{"discount_$i"} = $form->{discount} * 100; + } if ($sellprice) { $form->{"sellprice_$i"} = $sellprice; |