Revision becc49b1
Von Stephan Köhler 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
Merge von 581,589-595 aus unstable: Patch zum Rundungsfehler
-Bug 189: Patch zum Rundungsfehler
-sub round_amount schnedet nun anhängende Nullen automatisch ab.
-Änderungen bez. sub round_amound von heute Morgen wieder herausgenommen, weil nonfunktional. Das problem scheint woanders zu liegen.
-Darstellungsfehler bei Ganzzahlen behoben. Vorher wurde bspw. '2' als '2,' dargestellt, nun wird richtig formatiert.
-Die Anzahl der dargestellten Nachkommastellen jedes einzelnen Preises sollte mit der eingegebenen Anzahl
an Nachkommastellen übereinstimmen. Die eingegebenen Preise sollten nicht gerundet werden.