From 292502ecb242bbea0033f5c3d562370be3533359 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 2 Apr 2007 06:41:34 +0000
Subject: [PATCH] Beim Anlegen von Waren/Dienstleistungen die Einheiten auch
 wirklich nach der in den Systemeinstellung vorgegebenen Reihenfolge
 sortieren.

---
 SL/AM.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/SL/AM.pm b/SL/AM.pm
index 1807678a4..fec1b038c 100644
--- a/SL/AM.pm
+++ b/SL/AM.pm
@@ -1669,7 +1669,7 @@ sub unit_select_data {
     push(@{$select}, { "name" => "", "base_unit" => "", "factor" => "", "selected" => "" });
   }
 
-  foreach my $unit (sort({ $a->{"sortkey"} <=> $b->{"sortkey"} } keys(%{$units}))) {
+  foreach my $unit (sort({ $units->{$a}->{"sortkey"} <=> $units->{$b}->{"sortkey"} } keys(%{$units}))) {
     push(@{$select}, { "name" => $unit,
                        "base_unit" => $units->{$unit}->{"base_unit"},
                        "factor" => $units->{$unit}->{"factor"},
@@ -1688,7 +1688,7 @@ sub unit_select_html {
 
   my $select = "<select name=${name}>";
 
-  foreach my $unit (sort({ $a->{"sortkey"} <=> $b->{"sortkey"} } keys(%{$units}))) {
+  foreach my $unit (sort({ $units->{$a}->{"sortkey"} <=> $units->{$b}->{"sortkey"} } keys(%{$units}))) {
     if (!$convertible_into ||
         ($units->{$convertible_into} &&
          ($units->{$convertible_into}->{"base_unit"} eq $units->{$unit}->{"base_unit"}))) {
-- 
2.20.1