SL/Controller/Layout/Classic.pm

   1 package SL::Controller::Layout::Classic;
   2
   3 use strict;
   4 use parent qw(SL::Controller::Layout::Base);
   5
   6 use SL::Controller::Layout::Top;
   7 use SL::Controller::Layout::MenuLeft;
   8
   9 sub new {
  10   my ($class, @slurp) = @_;
  11
  12   my $self = $class->SUPER::new(@slurp);
  13
  14   $self->{top}  = SL::Controller::Layout::Top->new;
  15   $self->{left} = SL::Controller::Layout::MenuLeft->new;
  16
  17   $self;
  18 }
  19
  20 sub pre_content {
  21   $_[0]{top}->render .
  22   $_[0]{left}->render;
  23 }
  24
  25 sub start_content {
  26   "<div id='content' class='html-menu'>\n";
  27 }
  28
  29 sub end_content {
  30   "</div>\n";
  31 }
  32
  33 sub stylesheets {
  34   $_[0]{top}->stylesheets,
  35   $_[0]{left}->stylesheets;
  36 }
  37
  38 sub javascripts {
  39   $_[0]{top}->javascripts,
  40   $_[0]{left}->javascripts;
  41 }
  42
  43 1;