Merge branch 'master' of vc.linet-services.de:public/lx-office-erp
[kivitendo-erp.git] / SL / Layout / V4.pm
1 package SL::Layout::V4;
2
3 use strict;
4 use parent qw(SL::Layout::Base);
5 use SL::Layout::Css;
6 use SL::Layout::Top;
7
8 use URI;
9
10 sub init_sub_layouts {
11   [
12     SL::Layout::Top->new,
13     SL::Layout::None->new,
14   ]
15 }
16
17 sub start_content {
18   "<div id='content'>\n";
19 }
20
21 sub end_content {
22   "</div>\n";
23 }
24
25 sub pre_content {
26   my ($self) = @_;
27
28   $self->{sub_class} = 1;
29
30   my $callback            = $::form->unescape($::form->{callback});
31   $callback               = URI->new($callback)->rel($callback) if $callback;
32   $callback               = "login.pl?action=company_logo"      if $callback =~ /^(\.\/)?$/;
33
34   $self->SUPER::pre_content .
35
36   $self->SUPER::render('menu/menuv4', { no_menu => 1, no_output => 1 },
37     force_ul_width => 1,
38     date           => $self->clock_line,
39     menu           => $self->print_menu,
40     callback       => $callback,
41   );
42 }
43
44 1;