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(); }