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;