X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/00e2320ce41214c543277604c48cbd107b5ceadf..e2b9e1737230c4e4209904784808dcaec723f730:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 1668252fb..579b1ef65 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -2740,7 +2740,7 @@ sub all_departments {
                  ORDER BY description|;
   $self->{all_departments} = selectall_hashref_query($self, $dbh, $query);
 
-  delete($self->{all_departments}) unless (@{ $self->{all_departments} });
+  delete($self->{all_departments}) unless (@{ $self->{all_departments} || [] });
 
   $main::lxdebug->leave_sub();
 }