X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/c510d88bbfea6818ffafaddb7286e88aec96d3b8..909a1cc637fd34fa8da8ff4e64c91fc90e86f9e2:/SL/Form.pm
diff --git a/SL/Form.pm b/SL/Form.pm
index 17273ec50..d2a51e624 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -630,6 +630,8 @@ sub create_http_response {
sub header {
$main::lxdebug->enter_sub();
+ # extra code ist currently only used by menuv3 and menuv4 to set their css.
+ # it is strongly deprecated, and will be changed in a future version.
my ($self, $extra_code) = @_;
if ($self->{header}) {
@@ -690,6 +692,7 @@ sub header {
$jsscript = qq|
+
@@ -722,6 +725,8 @@ sub header {
$fokus
+
+
@@ -2738,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();
}