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

diff --git a/SL/Layout/Admin.pm b/SL/Layout/Admin.pm
index 188655fae..03832b555 100644
--- a/SL/Layout/Admin.pm
+++ b/SL/Layout/Admin.pm
@@ -1,18 +1,18 @@
 package SL::Layout::Admin;
 
 use strict;
-use parent qw(SL::Layout::Base);
+use parent qw(SL::Layout::None);
 
-sub new {
-  my ($class, @slurp) = @_;
+use SL::Menu;
+use SL::Layout::None;
+use SL::Layout::Top;
+use SL::Layout::CssMenu;
 
-  my $self = $class->SUPER::new(@slurp);
-
-  $self->add_sub_layouts([
+sub init_sub_layouts {
+  [
     SL::Layout::None->new,
-  ]);
-
-  $self;
+    SL::Layout::CssMenu->new(menu => SL::Menu->new('admin')),
+  ]
 }
 
 sub start_content {
@@ -23,4 +23,5 @@ sub end_content {
   "</div>\n";
 }
 
+
 1;