Revision 69c4afb7
Von Udo Spallek vor fast 19 Jahren hinzugefügt
| bin/mozilla/ic.pl | ||
|---|---|---|
| 1955 | 1955 |
sub form_header {
|
| 1956 | 1956 |
$lxdebug->enter_sub(); |
| 1957 | 1957 |
|
| 1958 |
my $dec = ''; |
|
| 1959 |
|
|
| 1960 |
#decimalplaces for listprice |
|
| 1961 |
($dec) = ($form->{listprice} =~ /\.(\d+)/);
|
|
| 1962 |
$dec = length $dec; |
|
| 1963 |
my $decimalplaces = ($dec > 2) ? $dec : 2; |
|
| 1964 |
$form->{listprice} =
|
|
| 1965 |
$form->format_amount(\%myconfig, $form->{listprice}, $decimalplaces);
|
|
| 1966 |
|
|
| 1967 |
#decimalplaces for sellprice and gv |
|
| 1958 | 1968 |
($dec) = ($form->{sellprice} =~ /\.(\d+)/);
|
| 1959 | 1969 |
$dec = length $dec; |
| 1960 | 1970 |
my $decimalplaces = ($dec > 2) ? $dec : 2; |
| ... | ... | |
| 1962 | 1972 |
map {
|
| 1963 | 1973 |
$form->{$_} =
|
| 1964 | 1974 |
$form->format_amount(\%myconfig, $form->{$_}, $decimalplaces)
|
| 1965 |
} qw(listprice sellprice gv);
|
|
| 1975 |
} qw(sellprice gv); |
|
| 1966 | 1976 |
|
| 1967 | 1977 |
($dec) = ($form->{lastcost} =~ /\.(\d+)/);
|
| 1968 | 1978 |
$dec = length $dec; |
Auch abrufbar als: Unified diff
Die Anzahl der dargestellten Nachkommastellen jedes einzelnen Preises sollte mit der eingegebenen Anzahl an Nachkommastellen ÃŒbereinstimmen. Die eingegebenen Preise sollten nicht gerundet werden.
(Ãnderungen bez. Email vom 27.10.2004 18:30 von Udo Spallek)