X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/1fe74e53d153ed2ac08da4943b9252ab2cd3da67..7b5835061e81d1af578e1572e435d6f3e61d2989:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 1a2573960..33b3d04bf 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -2461,7 +2461,8 @@ sub _get_warehouses {
   $self->{$key} = selectall_hashref_query($self, $dbh, $query);
 
   if ($bins_key) {
-    $query = qq|SELECT id, description FROM bin WHERE warehouse_id = ?|;
+    $query = qq|SELECT id, description FROM bin WHERE warehouse_id = ?
+                ORDER BY description|;
     my $sth = prepare_query($self, $dbh, $query);
 
     foreach my $warehouse (@{ $self->{$key} }) {