1 package SL::Layout::MenuLeft;
4 use parent qw(SL::Layout::Base);
8 use List::MoreUtils qw(apply);
11 qw(icons16.css icons24.css menu.css)
14 sub javascripts_inline {
16 my $sections = [ section_menu($self->menu) ];
17 $self->render('menu/menu', { partial => 1, no_output => 1 },
18 sections => $sections,
23 'js/jquery.cookie.js';
27 "<div id='html-menu'></div>\n";
31 "<div id='content' class='html-menu'>\n";
39 $::lxdebug->enter_sub(2);
40 my ($menu, $level, $id_prefix) = @_;
41 my @menuorder = $menu->access_control(\%::myconfig, $level);
46 for my $item (@menuorder) {
47 my $menuitem = $menu->{$item};
48 my $olabel = apply { s/.*--// } $item;
49 my $ml = apply { s/--.*// } $item;
50 my $icon_class = apply { y/ /-/ } $item;
51 my $spacer = "s" . (0 + $item =~ s/--/--/g);
53 next if $level && $item ne "$level--$olabel";
55 my $label = $::locale->text($olabel);
57 $menuitem->{module} ||= $::form->{script};
58 $menuitem->{action} ||= "section_menu";
59 $menuitem->{href} ||= "$menuitem->{module}?action=$menuitem->{action}";
62 foreach my $key (keys %$menuitem) {
63 next if $key =~ /target|module|action|href/;
64 $menuitem->{href} .= "&" . $::form->escape($key, 1) . "=";
65 my ($value, $conf) = split(/=/, $menuitem->{$key}, 2);
66 $value = $::myconfig{$value} . "/$conf" if ($conf);
67 $menuitem->{href} .= $::form->escape($value, 1);
70 my $anchor = $menuitem->{href};
72 my @common_args = ($label, $spacer, "$id_prefix\_$id");
74 if (!$level) { # toplevel
75 push @items, [ @common_args, "icon24 $icon_class", 'm' ];
76 # make_image(size => 24, label => $item),
77 push @items, section_menu($menu, $item, "$id_prefix\_$id");
78 } elsif ($menuitem->{submenu}) {
79 push @items, [ @common_args, "icon16 submenu", 'sm' ];
80 #make_image(label => 'submenu'),
81 push @items, section_menu($menu, $item, "$id_prefix\_$id");
82 } elsif ($menuitem->{module}) {
83 push @items, [ @common_args, "icon16 $icon_class", 'i', $anchor ];
84 #make_image(size => 16, label => $item),
90 $::lxdebug->leave_sub(2);
95 my $is_lynx_browser = $ENV{HTTP_USER_AGENT} =~ /links/i;
96 my $is_mobile_browser = $ENV{HTTP_USER_AGENT} =~ /mobile/i;
97 my $is_mobile_style = $::form->{stylesheet} =~ /mobile/i;
99 return $is_mobile_browser && $is_mobile_style ? 130
100 : $is_lynx_browser ? 240
105 # don't show images in links
106 _calc_framesize() != 240;