X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a4f1494fd428b5388c92a0ad065ad807f32c2090..47db6ae13df64092d401896ec476b9335e9ec807:/SL/Layout/V3.pm

diff --git a/SL/Layout/V3.pm b/SL/Layout/V3.pm
index ab50ef1ae..dc39a1887 100644
--- a/SL/Layout/V3.pm
+++ b/SL/Layout/V3.pm
@@ -2,47 +2,24 @@ package SL::Layout::V3;
 
 use strict;
 use parent qw(SL::Layout::Base);
-use SL::Layout::Css;
 
-use URI;
+use SL::Layout::None;
+use SL::Layout::Top;
+use SL::Layout::CssMenu;
+use SL::Layout::ActionBar;
+use SL::Layout::Content;
 
 sub init_sub_layouts {
-  [ SL::Layout::None->new ]
+  $_[0]->sub_layouts_by_name->{actionbar} = SL::Layout::ActionBar->new;
+
+  [
+    SL::Layout::None->new,
+    SL::Layout::Top->new,
+    SL::Layout::CssMenu->new,
+    $_[0]->sub_layouts_by_name->{actionbar},
+    SL::Layout::Content->new,
+  ]
 }
 
-sub use_stylesheet {
-  my $self = shift;
-  qw(
-    frame_header/header.css
-  ),
-  $self->SUPER::use_stylesheet(@_);
-}
-
-sub pre_content {
-  &render;
-}
-
-sub start_content {
-  "<div id='content'>\n";
-}
-
-sub end_content {
-  "</div>\n";
-}
-
-sub render {
-  my ($self) = @_;
-
-  my $callback            = $::form->unescape($::form->{callback});
-  $callback               = URI->new($callback)->rel($callback) if $callback;
-  $callback               = "login.pl?action=company_logo"      if $callback =~ /^(\.\/)?$/;
-
-  $self->SUPER::render('menu/menuv3', { no_menu => 1, no_output => 1 },
-    force_ul_width => 1,
-    date           => $self->clock_line,
-    menu           => $self->print_menu,
-    callback       => $callback,
-  );
-}
 
 1;