Projekte: benutzerdefinierte Variablen in Suchmaske

[mfinanz.git] / SL / Layout / Javascript.pm

diff --git a/SL/Layout/Javascript.pm b/SL/Layout/Javascript.pm
index 366e0d7c9464322b1b11f7b0883cff77236e1a9f..85454c4ee658869f19ef7fdcfbf980e316ef045e 100644 (file)
--- a/SL/Layout/Javascript.pm
+++ b/SL/Layout/Javascript.pm
@@ -3,27 +3,37 @@ package SL::Layout::Javascript;
 use strict;
 use parent qw(SL::Layout::Base);
 
 use strict;
 use parent qw(SL::Layout::Base);
 

+use SL::Layout::None;
+use SL::Layout::Top;
+use SL::Layout::ActionBar;
+use SL::Layout::Content;
+

 use List::Util qw(max);
 use List::Util qw(max);

+use List::MoreUtils qw(uniq);

 use URI;
 
 sub init_sub_layouts {
 use URI;
 
 sub init_sub_layouts {

+  $_[0]->sub_layouts_by_name->{actionbar} = SL::Layout::ActionBar->new;

   [
     SL::Layout::None->new,
     SL::Layout::Top->new,
   [
     SL::Layout::None->new,
     SL::Layout::Top->new,

+    SL::Layout::Content->new,

   ]
 }
 
   ]
 }
 

-sub use_javascript {
-  my $self = shift;
-  qw(
-    js/dhtmlsuite/menu-for-applications.js
-  ),
-  $self->SUPER::use_javascript(@_);
+sub javascripts {
+  my ($self) = @_;
+
+  return uniq grep { $_ } map { $self->_find_javascript($_)  }
+    map({ $_->javascripts } $self->sub_layouts),
+    qw(dhtmlsuite/menu-for-applications.js),
+    $_[0]->sub_layouts_by_name->{actionbar}->javascripts,
+    $self->use_javascript;

 }
 
 sub javascripts_inline {
   $_[0]->SUPER::javascripts_inline,
 }
 
 sub javascripts_inline {
   $_[0]->SUPER::javascripts_inline,

-<<'EOJS'
+<<'EOJS',

   DHTMLSuite.createStandardObjects();
   DHTMLSuite.configObj.setImagePath('image/dhtmlsuite/');
   var menu_model = new DHTMLSuite.menuModel();
   DHTMLSuite.createStandardObjects();
   DHTMLSuite.configObj.setImagePath('image/dhtmlsuite/');
   var menu_model = new DHTMLSuite.menuModel();


@@ -34,6 +44,7 @@ sub javascripts_inline {
   menu_bar.setTarget('main_menu_div');
   menu_bar.init();
 EOJS
   menu_bar.setTarget('main_menu_div');
   menu_bar.init();
 EOJS

+  $_[0]->sub_layouts_by_name->{actionbar}->javascripts_inline,

 }
 
 sub pre_content {
 }
 
 sub pre_content {


@@ -41,28 +52,29 @@ sub pre_content {
   $_[0]->presenter->render("menu/menunew",
     force_ul_width  => 1,
     menu            => $_[0]->menu,
   $_[0]->presenter->render("menu/menunew",
     force_ul_width  => 1,
     menu            => $_[0]->menu,

-    icon_path       => sub { my $img = "image/icons/16x16/$_[0].png"; -f $img ? $img : () },
+    icon_path       => sub { my $simg = "image/icons/svg/$_[0].svg";  my $pimg="image/icons/16x16/$_[0].png"; -f $simg ? $simg : ( -f $pimg ? $pimg : ()) },

     max_width       => sub { 10 * max map { length $::locale->text($_->{name}) } @{ $_[0]{children} || [] } },
     max_width       => sub { 10 * max map { length $::locale->text($_->{name}) } @{ $_[0]{children} || [] } },

-  );
-}
-
-sub start_content {
-  "<div id='content'>\n";
-}
-
-sub end_content {
-  "</div>\n";
+  ) .
+  ($_[0]->sub_layouts_by_name->{actionbar}->pre_content // '');

 }
 
 sub stylesheets {
 }
 
 sub stylesheets {

-  $_[0]->add_stylesheets(qw(
-    dhtmlsuite/menu-item.css
-    dhtmlsuite/menu-bar.css
-    icons16.css
-    frame_header/header.css
-    menu.css
-  ));
-  $_[0]->SUPER::stylesheets;
+  my ($self) = @_;
+  my $css_path = $self->get_stylesheet_for_user;
+
+  return
+    uniq
+    grep { $_ }
+    map { $self->_find_stylesheet($_, $css_path)  }
+    qw(
+      dhtmlsuite/menu-item.css
+      dhtmlsuite/menu-bar.css
+      icons16.css
+      menu.css
+    ),
+    ( map { $_->stylesheets } $_[0]->sub_layouts ),
+    $_[0]->sub_layouts_by_name->{actionbar}->stylesheets,
+    $_[0]->use_stylesheet;

 }
 
 1;
 }
 
 1;