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 924ebd6d5c167cdf22c33e7881a21ac5798a5aa4..a2759f06628e244a872aae0ff217086b59dadeb8 100644 (file)
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -938,8 +938,11 @@ sub order_details {
   }
 
   # lookup department
-  # hallo sven, ich bekomme hier einen internal server error, sehr wahrscheinlich weil bei meinen mandanten keine Abteilungen konfiguriert sind
-  #  $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}) {