Revision f2ba0773
Von Sven Schöling vor etwa 2 Jahren hinzugefügt
SL/Controller/Admin.pm | ||
---|---|---|
526 | 526 |
sub init_all_printers { SL::DB::Manager::Printer ->get_all_sorted } |
527 | 527 |
sub init_all_dateformats { [ qw(mm/dd/yy dd/mm/yy dd.mm.yy yyyy-mm-dd) ] } |
528 | 528 |
sub init_all_numberformats { [ '1,000.00', '1000.00', '1.000,00', '1000,00', "1'000.00" ] } |
529 |
sub init_all_stylesheets { [ qw(lx-office-erp.css Mobile.css kivitendo.css) ] }
|
|
529 |
sub init_all_stylesheets { [ qw(lx-office-erp.css Mobile.css kivitendo.css design40.css) ] }
|
|
530 | 530 |
sub init_all_dbsources { [ sort User->dbsources($::form) ] } |
531 | 531 |
sub init_all_used_dbsources { { map { (join(':', $_->dbhost || 'localhost', $_->dbport || 5432, $_->dbname) => $_->name) } @{ $_[0]->all_clients } } } |
532 | 532 |
sub init_all_accounting_methods { [ { id => 'accrual', name => t8('Accrual accounting') }, { id => 'cash', name => t8('Cash accounting') } ] } |
SL/Layout/Classic.pm | ||
---|---|---|
1 | 1 |
package SL::Layout::Classic; |
2 | 2 |
|
3 | 3 |
use strict; |
4 |
use parent qw(SL::Layout::Base);
|
|
4 |
use parent qw(SL::Layout::Design40Switch);
|
|
5 | 5 |
|
6 | 6 |
use SL::Layout::Top; |
7 | 7 |
use SL::Layout::MenuLeft; |
SL/Layout/Design40Switch.pm | ||
---|---|---|
1 |
package SL::Layout::Design40Switch; |
|
2 |
|
|
3 |
use strict; |
|
4 |
use parent qw(SL::Layout::Base); |
|
5 |
|
|
6 |
sub is_design40 { |
|
7 |
$::myconfig{stylesheet} =~ /design40/i; |
|
8 |
} |
|
9 |
|
|
10 |
sub webpages_path { |
|
11 |
is_design40() ? "templates/design40_webpages" : $_[0]->SUPER::webpages_path |
|
12 |
} |
|
13 |
|
|
14 |
sub allow_stylesheet_fallback { |
|
15 |
!is_design40(); |
|
16 |
} |
|
17 |
|
|
18 |
1; |
|
19 |
|
|
20 |
__END__ |
|
21 |
|
|
22 |
=encoding utf-8 |
|
23 |
|
|
24 |
=head1 NAME |
|
25 |
|
|
26 |
SL::Layout::Design40Switch - Layout switch for Design 4.0 |
|
27 |
|
|
28 |
=head1 SYNOPSIS |
|
29 |
|
|
30 |
Detects whether the user selected the Design4.0 stylesheet, and if so, |
|
31 |
overrides some implementation details. |
|
32 |
|
|
33 |
=head1 DESCRIPTION |
|
34 |
|
|
35 |
Once activated, it will set the templates to use C<templates/design40_webpages> instead. |
|
36 |
|
|
37 |
It will also disable css fallback, so that common.css etc won't interfere. |
|
38 |
|
|
39 |
=head1 BUGS |
|
40 |
|
|
41 |
None yet. :) |
|
42 |
|
|
43 |
=head1 AUTHOR |
|
44 |
|
|
45 |
Sven Schöling $<lt>s.schoeling@googlemail.comE<gt> |
|
46 |
|
|
47 |
=cut |
SL/Layout/Javascript.pm | ||
---|---|---|
1 | 1 |
package SL::Layout::Javascript; |
2 | 2 |
|
3 | 3 |
use strict; |
4 |
use parent qw(SL::Layout::Base);
|
|
4 |
use parent qw(SL::Layout::Design40Switch);
|
|
5 | 5 |
|
6 | 6 |
use SL::Layout::None; |
7 | 7 |
use SL::Layout::DHTMLMenu; |
SL/Layout/V3.pm | ||
---|---|---|
1 | 1 |
package SL::Layout::V3; |
2 | 2 |
|
3 | 3 |
use strict; |
4 |
use parent qw(SL::Layout::Base);
|
|
4 |
use parent qw(SL::Layout::Design40Switch);
|
|
5 | 5 |
|
6 | 6 |
use SL::Layout::None; |
7 | 7 |
use SL::Layout::Top; |
bin/mozilla/am.pl | ||
---|---|---|
637 | 637 |
} |
638 | 638 |
|
639 | 639 |
$form->{STYLESHEETS} = []; |
640 |
foreach my $item (qw(lx-office-erp.css kivitendo.css)) { |
|
640 |
foreach my $item (qw(lx-office-erp.css kivitendo.css design40.css)) {
|
|
641 | 641 |
push @{ $form->{STYLESHEETS} }, { |
642 | 642 |
'name' => $item, |
643 | 643 |
'value' => $item, |
Auch abrufbar als: Unified diff
design40: Layout Switch für Design40 stylesheet