X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/b6fd15a8dc44f9b09d5a2bce766cda14b87c6e13..a2ec076d8aeda8094a5d2284e6f9d8b5c77c0e50:/SL/Layout/Javascript.pm

diff --git a/SL/Layout/Javascript.pm b/SL/Layout/Javascript.pm
index 1785a198b..d8f079fcf 100644
--- a/SL/Layout/Javascript.pm
+++ b/SL/Layout/Javascript.pm
@@ -6,16 +6,8 @@ use parent qw(SL::Layout::Base);
 use List::Util qw(max);
 use URI;
 
-sub new {
-  my ($class, @slurp) = @_;
-
-  my $self = $class->SUPER::new(@slurp);
-
-  $self->add_sub_layouts([
-    SL::Layout::None->new,
-  ]);
-
-  $self;
+sub init_sub_layouts {
+  [ SL::Layout::None->new ]
 }
 
 sub pre_content {
@@ -30,6 +22,14 @@ sub end_content {
   "</div>\n";
 }
 
+sub stylesheets {
+  $_[0]->add_stylesheets(qw(
+    dhtmlsuite/menu-item.css
+    dhtmlsuite/menu-bar.css
+  ));
+  $_[0]->SUPER::stylesheets;
+}
+
 sub display {
   my ($self) = @_;
   my $form     = $main::form;
@@ -38,13 +38,12 @@ sub display {
   $callback               = URI->new($callback)->rel($callback) if $callback;
   $callback               = "login.pl?action=company_logo"      if $callback =~ /^(\.\/)?$/;
 
-  $form->parse_html_template("menu/menunew", {
-#  $self->render("menu/menunew", { no_menu => 1, no_output => 1 }, # buggy, no idea why
+  $self->render("menu/menunew", { partial => 1, no_output => 1 },
     force_ul_width  => 1,
     date            => $self->clock_line,
     menu_items      => $self->acc_menu,
     callback        => $callback,
-  });
+  );
 }
 
 sub clock_line {