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

diff --git a/SL/Layout/Admin.pm b/SL/Layout/Admin.pm
index 188655fae..8b75c89ea 100644
--- a/SL/Layout/Admin.pm
+++ b/SL/Layout/Admin.pm
@@ -1,26 +1,32 @@
 package SL::Layout::Admin;
 
 use strict;
-use parent qw(SL::Layout::Base);
+use parent qw(SL::Layout::V3);
 
-sub new {
-  my ($class, @slurp) = @_;
+use SL::Menu;
 
-  my $self = $class->SUPER::new(@slurp);
+use Rose::Object::MakeMethods::Generic (
+  scalar => [ qw(no_menu) ],
+);
 
-  $self->add_sub_layouts([
-    SL::Layout::None->new,
-  ]);
 
-  $self;
+sub init_menu {
+  Menu->new('menus/admin.ini');
 }
 
 sub start_content {
   "<div id='admin' class='admin'>\n";
 }
 
-sub end_content {
-  "</div>\n";
+sub render {
+  my ($self) = @_;
+
+  $self->presenter->render(
+    'menu/menuv3',
+    force_ul_width    => 1,
+    skip_frame_header => 1,
+    menu              => $self->no_menu ? '' : $self->print_menu,
+  );
 }
 
 1;