html menü rewrite v1
authorSven Schöling <s.schoeling@linet-services.de>
Mon, 20 Aug 2012 08:33:04 +0000 (10:33 +0200)
committerSven Schöling <s.schoeling@linet-services.de>
Wed, 17 Oct 2012 13:50:00 +0000 (15:50 +0200)
SL/Dispatcher.pm
SL/Menu.pm
bin/mozilla/menu.pl
templates/webpages/menu/menu.html [new file with mode: 0644]

index 43bf668..2386d37 100644 (file)
@@ -33,6 +33,7 @@ use SL::Locale;
 use SL::Common;
 use SL::Form;
 use SL::Helper::DateTime;
+use SL::Controller::LoginScreen;
 use SL::InstanceConfiguration;
 use SL::Template::Plugin::HTMLFixes;
 
index ab35fed..bc1b4e7 100644 (file)
@@ -66,32 +66,27 @@ sub menuitem {
   my $module = $self->{$item}{module} || $form->{script};
   my $action = $self->{$item}{action} || "section_menu";
   my $target = $self->{$item}{target} || "";
-
   my $level  = $form->escape($item);
-
-  my $style  = 'style="vertical-align:top"';
-  my $target_token = ($target)
-     ? "target='$target'" : '';
+  my $target_token = ($target) ? "target='$target'" : '';
 
   my $href = ($self->{$item}{href})
            ? $form->escape($self->{$item}{href})
-           : "$module?action=$action&amp;level=$level";
-
-  my @vars = ($self->{$item}{href})
-           ? qw(module        target href)
-           : qw(module action target href);
-
-#  map { delete $self->{$item}{$_} } @vars;
+           : "$module?action=$action";
 
+#  my @vars = ($self->{$item}{href})
+#           ? qw(module        target href)
+#           : qw(module action target href);
+#
   # add other params
   foreach my $key (keys %{ $self->{$item} }) {
+    next if $key =~ /target|module|action/;
     $href .= "&amp;" . $form->escape($key, 1) . "=";
     my ($value, $conf) = split(/=/, $self->{$item}{$key}, 2);
     $value = $myconfig->{$value} . "/$conf" if ($conf);
     $href .= $form->escape($value, 1);
   }
 
-  my $str = "<a href='$href' $target_token $style>";
+  my $str = "<a href='$href' $target_token>";
 
   $main::lxdebug->leave_sub();
 
index d464c85..1b818d1 100644 (file)
@@ -87,17 +87,10 @@ sub acc_menu {
   $::form->{title} = $::locale->text('kivitendo');
   $::form->header;
 
-  print qq|
-<body class="menu">
-
-<div align="left">\n<table width="$framesize" border="0">\n|;
-
-  section_menu($menu);
-
-  print qq|</table></div>
-</body>
-</html>
-|;
+  print $::form->parse_html_template('menu/menu', {
+    framesize => $framesize,
+    sections  => [ section_menu($menu) ],
+  });
 
   $::lxdebug->leave_sub;
 }
@@ -106,6 +99,7 @@ sub section_menu {
   $::lxdebug->enter_sub;
   my ($menu, $level) = @_;
   my @menuorder = $menu->access_control(\%::myconfig, $level);
+  my @items;
 
   for my $item (@menuorder) {
     my $menuitem   = $menu->{$item};
@@ -125,44 +119,40 @@ sub section_menu {
 
     if (!$level) { # toplevel
       my $ml_    = $::form->escape($ml);
-      my $image  = make_image(icon => $item . '.png', size => 24, label => $label, valign => 'middle');
+      my $image  = make_image(icon => $item . '.png', size => 24, label => $label);
       my $anchor = "<a href='menu.pl?action=acc_menu&level=$ml_' class='nohover' title='$label'>";
 
-      print make_item(a => $anchor, img => $image, label => $label, height => 24);
-      section_menu($menu, $item);
+      push @items, make_item(a => $anchor, img => $image, label => $label, height => 24, class => 'menu');
+      push @items, section_menu($menu, $item);
 
     } elsif ($menuitem->{submenu}) {
       my $image = make_image(submenu => 1);
       if ($mainlevel && $item =~ /^\Q$mainlevel\E/) {
-        print make_item(spacer => $spacer, bold => 1, img => $image, label => $label) if $show;
-        section_menu($menu, $item);
+        push @items, make_item(spacer => $spacer, bold => 1, img => $image, label => $label, class => 'submenu') if $show;
+        push @items, section_menu($menu, $item);
       } else {
-        print make_item(spacer => $spacer, a => $anchor, img => $image, label => $label . '&nbsp;...') if $show;
+        push @items, make_item(spacer => $spacer, a => $anchor, img => $image, label => $label . '&nbsp;...', class => 'submenu') if $show;
       }
     } elsif ($menuitem->{module}) {
       my $image = make_image(label => $label, icon => $label_icon);
-      print make_item(img => $image, a => $anchor, spacer => $spacer, label => $label) if $show;
-      section_menu($menu, $item) if $show && $::form->{$item} && $::form->{level} eq $item;
+      push @items, make_item(img => $image, a => $anchor, spacer => $spacer, label => $label, class => 'item') if $show;
+      push @items, section_menu($menu, $item) if $show && $::form->{$item} && $::form->{level} eq $item;
     }
   }
   $::lxdebug->leave_sub;
+  return @items;
 }
 
 sub make_item {
   my %params = @_;
-  my $anchor = $params{a} || '';
-  my @chunks = multiline($params{label});
-  my $spacer = $params{spacer} || '';
-  my $image  = $params{img};
-  my $height = $params{height} || 16;
-  my $a_end  = $anchor       ? '</a>' : '';
-  my $bold   = $params{bold} ?  '<b>' : '';
-  my $b_end  = $bold         ? '</b>' : '';
-  my $hidden_image = make_image(hidden => 1);
-  return join "\n",
-        "<tr><td class='hover' height='$height'>$bold$spacer$anchor$image$chunks[0]$a_end$b_end</td></tr>\n",
-    map "<tr style='vertical-align:top'><td class='hover'>$bold$spacer$hidden_image$anchor$chunks[$_]$a_end$b_end</td></tr>\n",
-      1..$#chunks;
+  $params{a}      ||= '';
+  $params{spacer} ||= '';
+  $params{height} ||= 16;
+
+  return {
+    %params,
+    chunks => [ multiline($params{label}) ],
+  };
 }
 
 # multi line hack, sschoeling jul06
@@ -190,23 +180,20 @@ sub make_image {
 
   my $label  = $params{label};
   my $icon   = $params{icon};
-  my $hidden = $params{hidden};
   my $size   = $params{size}   || 16;
-  my $valign = $params{valign} || 'text-top';
 
   return unless _show_images();
 
   my $icon_found = $icon && -f _icon_path($icon, $size);
 
   my $image_url = $icon_found ? _icon_path($icon, $size) : "image/unterpunkt.png";
-  my $style     = $hidden     ? "visibility:hidden"      : "vertical-align:$valign";
-  my $width     = $hidden     ? "width='$size'"          : '';
+  my $width     = $icon_found ? $size : 24;
 
-  my $padding   = $size == 16 && $icon_found || $hidden ? $nbsp x 2
-                : $size == 24                           ? $nbsp
-                :                                         '';
+  my $padding   = $size == 16 && $icon_found ? $nbsp x 2
+                : $size == 24                ? $nbsp
+                :                            '';
 
-  return "<img src='$image_url' border='0' style='$style' title='$label' $width>$padding";
+  return "<img src='$image_url' title='$label' width='$width' height='$size'>$padding";
 }
 
 sub _calc_framesize {
diff --git a/templates/webpages/menu/menu.html b/templates/webpages/menu/menu.html
new file mode 100644 (file)
index 0000000..29ba13e
--- /dev/null
@@ -0,0 +1,26 @@
+
+<style type='text/css'>
+  .bold { font-weight: bold; }
+  #html-menu { float:left }
+  #html-menu tr { vertical-align: top; }
+  #html-menu img { vertical-align: middle; }
+  #html-menu div.menuitem { padding: 2px 4px 1px 4px; }
+  #html-menu div.submenu { font-weight: bold }
+  #html-menu img { visibility:hidden; border: 0 }
+  #html-menu div.menuitem:first-child img { visibility:visible }
+  #html-menu a { vertical-align: top }
+</style>
+<body class="menu">
+
+<div id='html-menu'>
+
+[%- FOREACH item IN sections %]
+   <div class='menu-multiline'>
+ [%- FOREACH chunk IN item.chunks %]
+     <div class='menuitem [% item.class %] hover'>[% item.spacer %][% item.a %][% item.img %][% chunk %][% '</a>' IF item.a %]</div>
+ [%- END %]
+   </div>
+[%- END %]
+ </div>
+</body>
+</html>