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->use_stylesheet(
  18     $self->{top}->stylesheets,
  19     $self->{left}->stylesheets,
  20   );
  21
  22   $self->use_javascript(
  23     $self->{top}->javascripts,
  24     $self->{left}->javascripts,
  25   );
  26
  27   $self;
  28 }
  29
  30 sub pre_content {
  31   $_[0]{top}->render .
  32   $_[0]{left}->render;
  33 }
  34
  35 sub start_content {
  36   "<div id='content' class='html-menu'>\n";
  37 }
  38
  39 sub end_content {
  40   "</div>\n";
  41 }
  42
  43 1;