1 package SL::Layout::V4;
4 use parent qw(SL::Layout::Base);
10 sub init_sub_layouts {
13 SL::Layout::None->new,
18 "<div id='content'>\n";
28 $self->{sub_class} = 1;
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 =~ /^(\.\/)?$/;
34 $self->SUPER::pre_content .
36 $self->SUPER::render('menu/menuv4', { no_menu => 1, no_output => 1 },
38 date => $self->clock_line,
39 menu => $self->print_menu,
40 callback => $callback,