From: G. Richardson Date: Sat, 28 Feb 2015 15:03:00 +0000 (+0100) Subject: Ticket #3 - 2478 Preis bei Erzeugnissen X-Git-Tag: release-3.2.0~6 X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/69c0d29be2f278bb98e2d1fb6cb891f067980f79?ds=inline Ticket #3 - 2478 Preis bei Erzeugnissen Doppeltes Parsen von sellprice beim Erneuern von Erzeugnissen verhindern. --- diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl index a2facb5a3..302832403 100644 --- a/bin/mozilla/io.pl +++ b/bin/mozilla/io.pl @@ -555,7 +555,10 @@ sub item_selected { my $new_item = $form->{item_list}->[0] || croak "No item found for mode '${mode}' and ID '${id}'"; # if there was a price entered, override it - my $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"}); + my $sellprice; + unless ( $mode eq 'IC' ) { + $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"}); + }; my @new_fields = qw(id partnumber description sellprice listprice inventory_accno