X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a8814e0ef7175fef00ba18195ba2d457095b96ad..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 df61836fa..000000000 --- a/SL/Controller/Layout/V4.pm +++ /dev/null @@ -1,45 +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); - $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;