Revision 59f7af73
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 1976 | 1976 |
$id = $form->{"id_$i"};
|
| 1977 | 1977 |
|
| 1978 | 1978 |
if (!($form->{"id_$i"}) and $form->{"new_id_$i"}) {
|
| 1979 |
|
|
| 1980 | 1979 |
$id = $form->{"new_id_$i"};
|
| 1981 | 1980 |
} |
| 1982 | 1981 |
|
| 1983 |
my ($price, $selectedpricegroup_id) = split(/--/, |
|
| 1984 |
$form->{"sellprice_pg_$i"});
|
|
| 1982 |
my ($price, $selectedpricegroup_id) = split(/--/, $form->{"sellprice_pg_$i"});
|
|
| 1985 | 1983 |
|
| 1986 | 1984 |
my $pricegroup_old = $form->{"pricegroup_old_$i"};
|
| 1987 | 1985 |
$form->{"new_pricegroup_$i"} = $selectedpricegroup_id;
|
| ... | ... | |
| 2054 | 2052 |
|
| 2055 | 2053 |
# if there is an exchange rate change price |
| 2056 | 2054 |
if (($form->{exchangerate} * 1) != 0) {
|
| 2057 |
|
|
| 2058 | 2055 |
$pkr->{price} /= $form->{exchangerate};
|
| 2059 | 2056 |
} |
| 2060 | 2057 |
|
| 2061 | 2058 |
$pkr->{price} *= $form->{"basefactor_$i"};
|
| 2062 |
|
|
| 2063 | 2059 |
$pkr->{price} *= $basefactor;
|
| 2064 |
|
|
| 2065 | 2060 |
$pkr->{price} = $form->format_amount($myconfig, $pkr->{price}, 5);
|
| 2066 | 2061 |
|
| 2067 | 2062 |
if ($selectedpricegroup_id eq undef) {
|
Auch abrufbar als: Unified diff
Kosmetik