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 pre_content {
  10   &render;
  11 }
  12
  13 sub start_content {
  14   "<div id='content'>\n";
  15 }
  16
  17 sub end_content {
  18   "</div>\n";
  19 }
  20
  21 sub render {
  22   my ($self) = @_;
  23
  24   my $callback            = $::form->unescape($::form->{callback});
  25   $callback               = URI->new($callback)->rel($callback) if $callback;
  26   $callback               = "login.pl?action=company_logo"      if $callback =~ /^(\.\/)?$/;
  27
  28   $self->SUPER::render('menu/menuv3', { no_menu => 1, no_output => 1 },
  29     force_ul_width => 1,
  30     date           => $self->clock_line,
  31     menu           => $self->print_menu,
  32     callback       => $callback,
  33   );
  34 }
  35
  36 1;