kivitendo/SL/Controller/Layout/Base.pm @ b1064ee5
| 4a12c839 | Sven Schöling | package SL::Controller::Layout::Base;
|
||
use strict;
|
||||
use parent qw(SL::Controller::Base);
|
||||
use Rose::Object::MakeMethods::Generic (
|
||||
'scalar --get_set_init' => qw(menu),
|
||||
| a8814e0e | Sven Schöling | 'array' => [
|
||
'add_stylesheets_inline' => { interface => 'add', hash_key => 'stylesheets_inline' },
|
||||
'add_javascripts_inline' => { interface => 'add', hash_key => 'javascripts_inline' },
|
||||
'sub_layouts',
|
||||
'add_sub_layouts' => { interface => 'add', hash_key => 'sub_layouts' },
|
||||
],
|
||||
| 4a12c839 | Sven Schöling | );
|
||
use SL::Menu;
|
||||
my %menu_cache;
|
||||
sub new {
|
||||
my ($class, @slurp) = @_;
|
||||
my $self = $class->SUPER::new(@slurp);
|
||||
}
|
||||
sub init_menu {
|
||||
Menu->new('menu.ini');
|
||||
}
|
||||
| 0f179c9a | Sven Schöling | ##########################################
|
||
# inheritable/overridable
|
||||
##########################################
|
||||
| 4a12c839 | Sven Schöling | sub pre_content {
|
||
| a8814e0e | Sven Schöling | join '', map { $_->pre_content } $_[0]->sub_layouts;
|
||
| 4a12c839 | Sven Schöling | }
|
||
sub start_content {
|
||||
| a8814e0e | Sven Schöling | join '', map { $_->start_content } $_[0]->sub_layouts;
|
||
| 4a12c839 | Sven Schöling | }
|
||
sub end_content {
|
||||
| a8814e0e | Sven Schöling | join '', map { $_->end_content } $_[0]->sub_layouts;
|
||
| 4a12c839 | Sven Schöling | }
|
||
sub post_content {
|
||||
| a8814e0e | Sven Schöling | join '', map { $_->post_content } $_[0]->sub_layouts;
|
||
| 4a12c839 | Sven Schöling | }
|
||
| 0f179c9a | Sven Schöling | sub stylesheets_inline {
|
||
| a8814e0e | Sven Schöling | ( map { $_->stylesheets_inline } $_[0]->sub_layouts ),
|
||
@{ $_[0]->{stylesheets_inline} || [] };
|
||||
| 0f179c9a | Sven Schöling | }
|
||
| a8814e0e | Sven Schöling | sub javascripts_inline {
|
||
( map { $_->javascripts_inline } $_[0]->sub_layouts ),
|
||||
@{ $_[0]->{javascripts_inline} || [] };
|
||||
| 0f179c9a | Sven Schöling | }
|
||
| a8814e0e | Sven Schöling | |||
| 0f179c9a | Sven Schöling | #########################################
|
||
# Interface
|
||||
########################################
|
||||
sub use_stylesheet {
|
||||
my $self = shift;
|
||||
push @{ $self->{stylesheets} ||= [] }, @_ if @_;
|
||||
@{ $self->{stylesheets} ||= [] };
|
||||
}
|
||||
| 4a12c839 | Sven Schöling | sub stylesheets {
|
||
| 0f179c9a | Sven Schöling | my ($self) = @_;
|
||
my $css_path = $self->get_stylesheet_for_user;
|
||||
| a8814e0e | Sven Schöling | return grep { $_ } map { $self->_find_stylesheet($_, $css_path) }
|
||
$self->use_stylesheet, map { $_->stylesheets } $self->sub_layouts;
|
||||
| 4a12c839 | Sven Schöling | }
|
||
| 0f179c9a | Sven Schöling | sub _find_stylesheet {
|
||
my ($self, $stylesheet, $css_path) = @_;
|
||||
return "$css_path/$stylesheet" if -f "$css_path/$stylesheet";
|
||||
return "css/$stylesheet" if -f "css/$stylesheet";
|
||||
return $stylesheet if -f $stylesheet;
|
||||
| 4a12c839 | Sven Schöling | }
|
||
| 0f179c9a | Sven Schöling | sub get_stylesheet_for_user {
|
||
my $css_path = 'css';
|
||||
if (my $user_style = $::myconfig{stylesheet}) {
|
||||
$user_style =~ s/\.css$//; # nuke trailing .css, this is a remnand of pre 2.7.0 stylesheet handling
|
||||
if (-d "$css_path/$user_style" &&
|
||||
-f "$css_path/$user_style/main.css") {
|
||||
$css_path = "$css_path/$user_style";
|
||||
} else {
|
||||
$css_path = "$css_path/lx-office-erp";
|
||||
}
|
||||
} else {
|
||||
$css_path = "$css_path/lx-office-erp";
|
||||
}
|
||||
$::myconfig{css_path} = $css_path; # needed for menunew, FIXME: don't do this here
|
||||
return $css_path;
|
||||
}
|
||||
sub use_javascript {
|
||||
my $self = shift;
|
||||
push @{ $self->{javascripts} ||= [] }, @_ if @_;
|
||||
@{ $self->{javascripts} ||= [] };
|
||||
}
|
||||
sub javascripts {
|
||||
my ($self) = @_;
|
||||
| a8814e0e | Sven Schöling | return map { $self->_find_javascript($_) }
|
||
$self->use_javascript, map { $_->javascripts } $self->sub_layouts;
|
||||
| 0f179c9a | Sven Schöling | }
|
||
sub _find_javascript {
|
||||
my ($self, $javascript) = @_;
|
||||
return "js/$javascript" if -f "js/$javascript";
|
||||
return $javascript if -f $javascript;
|
||||
| 4a12c839 | Sven Schöling | }
|
||
| 2219d158 | Sven Schöling | |||
############################################
|
||||
# track state of form header
|
||||
############################################
|
||||
sub header_done {
|
||||
$_[0]{_header_done} = 1;
|
||||
}
|
||||
sub need_footer {
|
||||
$_[0]{_header_done};
|
||||
}
|
||||
| 4a12c839 | Sven Schöling | 1;
|