SL/Layout/V3.pm

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