SL/Controller/Layout/V3.pm

   1 package SL::Controller::Layout::V3;
   2
   3 use strict;
   4 use parent qw(SL::Controller::Layout::Base);
   5 use SL::Controller::Layout::Css;
   6
   7 use URI;
   8
   9 sub new {
  10   my ($class, @slurp) = @_;
  11
  12   my $self = $class->SUPER::new(@slurp);
  13
  14   $self->add_sub_layouts([
  15     SL::Controller::Layout::None->new,
  16   ]);
  17
  18   $self;
  19 }
  20
  21 sub pre_content {
  22   &render;
  23 }
  24
  25 sub start_content {
  26   "<div id='content'>\n";
  27 }
  28
  29 sub end_content {
  30   "</div>\n";
  31 }
  32
  33 sub render {
  34   my ($self) = @_;
  35
  36   my $callback            = $::form->unescape($::form->{callback});
  37   $callback               = URI->new($callback)->rel($callback) if $callback;
  38   $callback               = "login.pl?action=company_logo"      if $callback =~ /^(\.\/)?$/;
  39
  40   $self->SUPER::render('menu/menuv3', { no_menu => 1, no_output => 1 },
  41     force_ul_width => 1,
  42     date           => $self->clock_line,
  43     menu           => $self->print_menu,
  44     callback       => $callback,
  45   );
  46 }
  47
  48 1;