X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/fb005f3fd6f8684441c12d821c8d30a8720dcf16..b6fd15a8dc44f9b09d5a2bce766cda14b87c6e13:/SL/Controller/Layout/V4.pm diff --git a/SL/Controller/Layout/V4.pm b/SL/Controller/Layout/V4.pm deleted file mode 100644 index aee0b1318..000000000 --- a/SL/Controller/Layout/V4.pm +++ /dev/null @@ -1,48 +0,0 @@ -package SL::Controller::Layout::V4; - -use strict; -use parent qw(SL::Controller::Layout::Base); -use SL::Controller::Layout::Css; -use SL::Controller::Layout::Top; - -use URI; - -sub new { - my ($class, @slurp) = @_; - - my $self = $class->SUPER::new(@slurp); - $self->add_sub_layouts( - SL::Controller::Layout::Top->new, - SL::Controller::Layout::None->new, - ); - $self; -} - -sub start_content { - "
\n"; -} - -sub end_content { - "
\n"; -} - -sub pre_content { - my ($self) = @_; - - $self->{sub_class} = 1; - - my $callback = $::form->unescape($::form->{callback}); - $callback = URI->new($callback)->rel($callback) if $callback; - $callback = "login.pl?action=company_logo" if $callback =~ /^(\.\/)?$/; - - $self->SUPER::pre_content . - - $self->SUPER::render('menu/menuv4', { no_menu => 1, no_output => 1 }, - force_ul_width => 1, - date => $self->clock_line, - menu => $self->print_menu, - callback => $callback, - ); -} - -1;