X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/260f51feb81fce05d1e37806571a7cc2425f426d..909a1cc637fd34fa8da8ff4e64c91fc90e86f9e2:/SL/Form.pm
diff --git a/SL/Form.pm b/SL/Form.pm
index 1668252fb..d2a51e624 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -692,6 +692,7 @@ sub header {
$jsscript = qq|
+
@@ -724,6 +725,8 @@ sub header {
$fokus
+
+
@@ -2740,7 +2743,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();
}