X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4e8e85fc57224bd2af373741e79e39eab71a606b..d64013f4ba48d1f34e1d55f8c5f98d0ab2b5ed2b:/SL/IC.pm diff --git a/SL/IC.pm b/SL/IC.pm index 0b5db7e84..09b9bdbca 100644 --- a/SL/IC.pm +++ b/SL/IC.pm @@ -193,8 +193,7 @@ sub get_pricegroups { my $i = 1; foreach my $pg (@{ $pricegroups }) { - $form->{"klass_$i"} = "$pg->{id}"; - $form->{"price_$i"} = $form->format_amount($myconfig, $form->{"price_$i"}, -2); + $form->{"price_$i"} = $form->format_amount($myconfig, $form->{"price_$i"}, -2); $form->{"pricegroup_id_$i"} = "$pg->{id}"; $form->{"pricegroup_$i"} = "$pg->{pricegroup}"; $i++; @@ -328,7 +327,6 @@ sub save { partnumber = ?, description = ?, makemodel = ?, - alternate = 'f', assembly = ?, listprice = ?, sellprice = ?,