Revision 292502ec
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
| 1669 | 1669 |
push(@{$select}, { "name" => "", "base_unit" => "", "factor" => "", "selected" => "" });
|
| 1670 | 1670 |
} |
| 1671 | 1671 |
|
| 1672 |
foreach my $unit (sort({ $a->{"sortkey"} <=> $b->{"sortkey"} } keys(%{$units}))) {
|
|
| 1672 |
foreach my $unit (sort({ $units->{$a}->{"sortkey"} <=> $units->{$b}->{"sortkey"} } keys(%{$units}))) {
|
|
| 1673 | 1673 |
push(@{$select}, { "name" => $unit,
|
| 1674 | 1674 |
"base_unit" => $units->{$unit}->{"base_unit"},
|
| 1675 | 1675 |
"factor" => $units->{$unit}->{"factor"},
|
| ... | ... | |
| 1688 | 1688 |
|
| 1689 | 1689 |
my $select = "<select name=${name}>";
|
| 1690 | 1690 |
|
| 1691 |
foreach my $unit (sort({ $a->{"sortkey"} <=> $b->{"sortkey"} } keys(%{$units}))) {
|
|
| 1691 |
foreach my $unit (sort({ $units->{$a}->{"sortkey"} <=> $units->{$b}->{"sortkey"} } keys(%{$units}))) {
|
|
| 1692 | 1692 |
if (!$convertible_into || |
| 1693 | 1693 |
($units->{$convertible_into} &&
|
| 1694 | 1694 |
($units->{$convertible_into}->{"base_unit"} eq $units->{$unit}->{"base_unit"}))) {
|
Auch abrufbar als: Unified diff
Beim Anlegen von Waren/Dienstleistungen die Einheiten auch wirklich nach der in den Systemeinstellung vorgegebenen Reihenfolge sortieren.