Revision 59f7af73
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
|
$id = $form->{"id_$i"};
|
||
|
|
||
|
if (!($form->{"id_$i"}) and $form->{"new_id_$i"}) {
|
||
|
|
||
|
$id = $form->{"new_id_$i"};
|
||
|
}
|
||
|
|
||
|
my ($price, $selectedpricegroup_id) = split(/--/,
|
||
|
$form->{"sellprice_pg_$i"});
|
||
|
my ($price, $selectedpricegroup_id) = split(/--/, $form->{"sellprice_pg_$i"});
|
||
|
|
||
|
my $pricegroup_old = $form->{"pricegroup_old_$i"};
|
||
|
$form->{"new_pricegroup_$i"} = $selectedpricegroup_id;
|
||
| ... | ... | |
|
|
||
|
# if there is an exchange rate change price
|
||
|
if (($form->{exchangerate} * 1) != 0) {
|
||
|
|
||
|
$pkr->{price} /= $form->{exchangerate};
|
||
|
}
|
||
|
|
||
|
$pkr->{price} *= $form->{"basefactor_$i"};
|
||
|
|
||
|
$pkr->{price} *= $basefactor;
|
||
|
|
||
|
$pkr->{price} = $form->format_amount($myconfig, $pkr->{price}, 5);
|
||
|
|
||
|
if ($selectedpricegroup_id eq undef) {
|
||
Auch abrufbar als: Unified diff
Kosmetik