kivitendo/SL/Layout/Javascript.pm @ 9c337bc8
| b6fd15a8 | Sven Schöling | package SL::Layout::Javascript;
|
||
| 4a12c839 | Sven Schöling | |||
use strict;
|
||||
| b6fd15a8 | Sven Schöling | use parent qw(SL::Layout::Base);
|
||
| 4a12c839 | Sven Schöling | |||
| 0466a6b3 | Sven Schöling | use SL::Layout::None;
|
||
use SL::Layout::Top;
|
||||
use SL::Layout::Content;
|
||||
| 32fa785e | Moritz Bunkus | use List::Util qw(max);
|
||
| f2078516 | Sven Schöling | use URI;
|
||
| 32fa785e | Moritz Bunkus | |||
| 8bed51b5 | Sven Schöling | sub init_sub_layouts {
|
||
| 68dbf4a4 | Sven Schöling | [
|
||
SL::Layout::None->new,
|
||||
SL::Layout::Top->new,
|
||||
| 0466a6b3 | Sven Schöling | SL::Layout::Content->new,
|
||
| 68dbf4a4 | Sven Schöling | ]
|
||
| f7f03503 | Sven Schöling | }
|
||
| bbf383bf | Moritz Bunkus | sub use_javascript {
|
||
my $self = shift;
|
||||
qw(
|
||||
| 68dbf4a4 | Sven Schöling | js/dhtmlsuite/menu-for-applications.js
|
||
| bbf383bf | Moritz Bunkus | ),
|
||
$self->SUPER::use_javascript(@_);
|
||||
}
|
||||
| b251cc22 | Sven Schöling | sub javascripts_inline {
|
||
$_[0]->SUPER::javascripts_inline,
|
||||
<<'EOJS'
|
||||
DHTMLSuite.createStandardObjects();
|
||||
DHTMLSuite.configObj.setImagePath('image/dhtmlsuite/');
|
||||
var menu_model = new DHTMLSuite.menuModel();
|
||||
menu_model.addItemsFromMarkup('main_menu_model');
|
||||
menu_model.init();
|
||||
var menu_bar = new DHTMLSuite.menuBar();
|
||||
menu_bar.addMenuItems(menu_model);
|
||||
menu_bar.setTarget('main_menu_div');
|
||||
menu_bar.init();
|
||||
EOJS
|
||||
}
|
||||
| 4a12c839 | Sven Schöling | sub pre_content {
|
||
| 68dbf4a4 | Sven Schöling | $_[0]->SUPER::pre_content .
|
||
| b251cc22 | Sven Schöling | $_[0]->presenter->render("menu/menunew",
|
||
force_ul_width => 1,
|
||||
menu => $_[0]->menu,
|
||||
| 4d3be9c7 | Martin Helmling | icon_path => sub { my $simg = "image/icons/svg/$_[0].svg"; my $pimg="image/icons/16x16/$_[0].png"; -f $simg ? $simg : ( -f $pimg ? $pimg : ()) },
|
||
| b251cc22 | Sven Schöling | max_width => sub { 10 * max map { length $::locale->text($_->{name}) } @{ $_[0]{children} || [] } },
|
||
);
|
||||
| 4a12c839 | Sven Schöling | }
|
||
| 647be62f | Sven Schöling | |||
| a3fb5023 | Sven Schöling | sub stylesheets {
|
||
$_[0]->add_stylesheets(qw(
|
||||
dhtmlsuite/menu-item.css
|
||||
dhtmlsuite/menu-bar.css
|
||||
| e5490854 | Moritz Bunkus | icons16.css
|
||
| 12451451 | Sven Schöling | menu.css
|
||
| a3fb5023 | Sven Schöling | ));
|
||
$_[0]->SUPER::stylesheets;
|
||||
}
|
||||
| 4a12c839 | Sven Schöling | 1;
|