X-Git-Url: http://wagnertech.de/git?p=kivitendo-erp.git;a=blobdiff_plain;f=SL%2FPresenter%2FJavascriptMenu.pm;fp=SL%2FPresenter%2FJavascriptMenu.pm;h=24999b20c1d0c3e957839b12412977e85956ba34;hp=0000000000000000000000000000000000000000;hb=53593baa211863fbf66540cf1bcc36c8fb37257f;hpb=deb4d2dbb676d7d6f69dfe7815d6e0cb09bd4a44

diff --git a/SL/Presenter/JavascriptMenu.pm b/SL/Presenter/JavascriptMenu.pm
new file mode 100644
index 000000000..24999b20c
--- /dev/null
+++ b/SL/Presenter/JavascriptMenu.pm
@@ -0,0 +1,70 @@
+package SL::Presenter::JavascriptMenu;
+
+use strict;
+use SL::Presenter::EscapedText qw(escape is_escaped);
+use SL::Presenter::Tag qw( html_tag link_tag);
+use SL::Locale::String qw(t8);
+use SL::System::ResourceCache;
+
+use List::Util qw(max);
+
+use Exporter qw(import);
+our @EXPORT_OK = qw(render_menu);
+
+sub render_menu {
+  my ($menu) = @_;
+
+  html_tag('div', '', id => 'main_menu_div') .
+  html_tag('ul', render_children($menu, 100, $menu->{tree}),
+    id    => "main_menu_model",
+    style => 'display:none',
+  );
+}
+
+sub render_node {
+  my ($menu, $node, $id) = @_;
+  return '' if !$node->{visible};
+
+  my $icon = get_icon($node->{icon});
+  my $link = $menu->href_for_node($node) || '#';
+  my $name = $menu->name_for_node($node);
+
+  html_tag('li',
+      link_tag($link, $name, target => $node->{target})
+    . html_tag('ul', render_children($menu, $id * 100, $node->{children} // []),
+        width => max_width($node)
+      ),
+    id        => $id,
+    (itemIcon => $icon)x!!$icon,
+  )
+}
+
+sub render_children {
+  my ($menu, $id, $children) = @_;
+  my $sub_id = 1;
+
+  join '', map {
+    render_node($menu, $_, 100 * $id + $sub_id++)
+  } @$children
+}
+
+sub max_width {
+  11 * ( max( map { length $::locale->text($_->{name}) } @{ $_[0]{children} || [] } ) // 1 )
+}
+
+sub get_icon {
+  my $name = $_[0];
+
+  return undef if !defined $name;
+
+  my $simg = "image/icons/svg/$name.svg";
+  my $pimg = "image/icons/16x16/$name.png";
+
+    SL::System::ResourceCache->get($simg) ? $simg
+  : SL::System::ResourceCache->get($pimg) ? $pimg
+  :                                         ();
+}
+
+1;
+
+