1 package SL::Controller::Layout::V4;
4 use parent qw(SL::Controller::Layout::Base);
5 use SL::Controller::Layout::Css;
6 use SL::Controller::Layout::Top;
11 my ($class, @slurp) = @_;
13 my $self = $class->SUPER::new(@slurp);
14 $self->add_sub_layouts(SL::Controller::Layout::Top->new);
19 "<div id='content'>\n";
29 $self->{sub_class} = 1;
31 my $callback = $::form->unescape($::form->{callback});
32 $callback = URI->new($callback)->rel($callback) if $callback;
33 $callback = "login.pl?action=company_logo" if $callback =~ /^(\.\/)?$/;
35 $self->SUPER::pre_content .
37 $self->SUPER::render('menu/menuv4', { no_menu => 1, no_output => 1 },
39 date => $self->clock_line,
40 menu => $self->print_menu,
41 callback => $callback,