Beim Dialogbuchen die Kontensalden zu den jeweils ausgewählten Konten anzeigen. Fix...

[mfinanz.git] / SL / OE.pm

diff --git a/SL/OE.pm b/SL/OE.pm
index b72b35d20dd9f53b38cdcd90a7c46b2d92f939fe..a2759f06628e244a872aae0ff217086b59dadeb8 100644 (file)
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -35,7 +35,6 @@
 package OE;
 
 use List::Util qw(max first);
-
 use SL::AM;
 use SL::Common;
 use SL::DBUtils;
@@ -939,7 +938,11 @@ sub order_details {
   }
 
   # lookup department
-  $form->{department} = ( first { $_->{id} eq $form->{department_id} } @{ $form->{ALL_DEPARTMENTS} } )->{description} || '';
+  foreach my $dept (@{ $form->{ALL_DEPARTMENTS} }) {
+    next unless $dept->{id} eq $form->{department_id};
+    $form->{department} = $dept->{description};
+    last;
+  }
 
   # sort items by partsgroup
   for $i (1 .. $form->{rowcount}) {