bin/mozilla/menu.pl

   1 #=====================================================================
   2 # LX-Office ERP
   3 # Copyright (C) 2004
   4 # Based on SQL-Ledger Version 2.1.9
   5 # Web http://www.lx-office.org
   6 #
   7 ######################################################################
   8 # SQL-Ledger Accounting
   9 # Copyright (c) 1998-2002
  10 #
  11 #  Author: Dieter Simader
  12 #   Email: dsimader@sql-ledger.org
  13 #     Web: http://www.sql-ledger.org
  14 #
  15 #  Contributors: Christopher Browne
  16 #
  17 # This program is free software; you can redistribute it and/or modify
  18 # it under the terms of the GNU General Public License as published by
  19 # the Free Software Foundation; either version 2 of the License, or
  20 # (at your option) any later version.
  21 #
  22 # This program is distributed in the hope that it will be useful,
  23 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  24 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25 # GNU General Public License for more details.
  26 # You should have received a copy of the GNU General Public License
  27 # along with this program; if not, write to the Free Software
  28 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  29 #######################################################################
  30 #
  31 # the frame layout with refractured menu
  32 #
  33 # CHANGE LOG:
  34 #   DS. 2002-03-25  Created
  35 #  2004-12-14 - New Optik - Marco Welter <mawe@linux-studio.de>
  36 #  2010-08-19 - Icons for sub entries and single click behavior, unlike XUL-Menu
  37 #               JS switchable HTML-menu - Sven Donath <lxo@dexo.de>
  38 #######################################################################
  39
  40 use strict;
  41
  42 use SL::Menu;
  43 use URI;
  44
  45 use List::MoreUtils qw(apply);
  46
  47 sub render {
  48   $::lxdebug->enter_sub;
  49
  50   $::form->use_stylesheet(qw(css/icons16.css css/icons24.css));
  51
  52   my $menu         = Menu->new("menu.ini");
  53
  54   my $sections = [ section_menu($menu) ];
  55
  56   $::lxdebug->leave_sub;
  57   $::form->parse_html_template('menu/menu', {
  58     sections  => $sections,
  59     inline    => 1,
  60   });
  61 }
  62
  63 sub section_menu {
  64   $::lxdebug->enter_sub(2);
  65   my ($menu, $level, $id_prefix) = @_;
  66   my @menuorder = $menu->access_control(\%::myconfig, $level);
  67   my @items;
  68
  69   my $id = 0;
  70
  71   for my $item (@menuorder) {
  72     my $menuitem   = $menu->{$item};
  73     my $olabel     = apply { s/.*--// } $item;
  74     my $ml         = apply { s/--.*// } $item;
  75     my $icon_class = apply { y/ /-/   } $item;
  76     my $spacer     = "s" . (0 + $item =~ s/--/--/g);
  77
  78     next if $level && $item ne "$level--$olabel";
  79
  80     my $label         = $::locale->text($olabel);
  81
  82     $menuitem->{module} ||= $::form->{script};
  83     $menuitem->{action} ||= "section_menu";
  84     $menuitem->{href}   ||= "$menuitem->{module}?action=$menuitem->{action}";
  85
  86     # add other params
  87     foreach my $key (keys %$menuitem) {
  88       next if $key =~ /target|module|action|href/;
  89       $menuitem->{href} .= "&" . $::form->escape($key, 1) . "=";
  90       my ($value, $conf) = split(/=/, $menuitem->{$key}, 2);
  91       $value = $::myconfig{$value} . "/$conf" if ($conf);
  92       $menuitem->{href} .= $::form->escape($value, 1);
  93     }
  94
  95     my $anchor = $menuitem->{href};
  96
  97     my %common_args = (
  98         l   => $label,
  99         s  => $spacer,
 100         t  => $menuitem->{target},
 101         id => "$id_prefix\_$id",
 102         height  => 16,
 103     );
 104
 105     if (!$level) { # toplevel
 106       push @items, { %common_args,
 107         i      => "icon24 $icon_class",   #  make_image(size => 24, label => $item),
 108         c    => 'm',
 109       };
 110       push @items, section_menu($menu, $item, "$id_prefix\_$id");
 111     } elsif ($menuitem->{submenu}) {
 112       push @items, { %common_args,
 113         i      => "icon16 submenu",   #make_image(label => 'submenu'),
 114         c    => 'sm',
 115       };
 116       push @items, section_menu($menu, $item, "$id_prefix\_$id");
 117     } elsif ($menuitem->{module}) {
 118       push @items, { %common_args,
 119         i     => "icon16 $icon_class",  #make_image(size => 16, label => $item),
 120         h    => $anchor,
 121         c   => 'i',
 122       };
 123     }
 124   } continue {
 125     $id++;
 126   }
 127
 128   $::lxdebug->leave_sub(2);
 129   return @items;
 130 }
 131
 132 sub _calc_framesize {
 133   my $is_lynx_browser   = $ENV{HTTP_USER_AGENT} =~ /links/i;
 134   my $is_mobile_browser = $ENV{HTTP_USER_AGENT} =~ /mobile/i;
 135   my $is_mobile_style   = $::form->{stylesheet} =~ /mobile/i;
 136
 137   return  $is_mobile_browser && $is_mobile_style ?  130
 138         : $is_lynx_browser                       ?  240
 139         :                                           200;
 140 }
 141
 142 sub _show_images {
 143   # don't show images in links
 144   _calc_framesize() != 240;
 145 }
 146
 147 1;
 148
 149 __END__