SL/Layout/Javascript.pm

   1 package SL::Layout::Javascript;
   2
   3 use strict;
   4 use parent qw(SL::Layout::Base);
   5
   6 use List::Util qw(max);
   7 use URI;
   8
   9 sub init_sub_layouts {
  10   [ SL::Layout::None->new ]
  11 }
  12
  13 sub pre_content {
  14   &display
  15 }
  16
  17 sub start_content {
  18   "<div id='content'>\n";
  19 }
  20
  21 sub end_content {
  22   "</div>\n";
  23 }
  24
  25 sub stylesheets {
  26   $_[0]->add_stylesheets(qw(
  27     dhtmlsuite/menu-item.css
  28     dhtmlsuite/menu-bar.css
  29     menu.css
  30   ));
  31   $_[0]->SUPER::stylesheets;
  32 }
  33
  34 sub display {
  35   my ($self) = @_;
  36   my $form     = $main::form;
  37
  38   my $callback            = $form->unescape($form->{callback});
  39   $callback               = URI->new($callback)->rel($callback) if $callback;
  40   $callback               = "login.pl?action=company_logo"      if $callback =~ /^(\.\/)?$/;
  41
  42   $self->render("menu/menunew", { partial => 1, no_output => 1 },
  43     force_ul_width  => 1,
  44     date            => $self->clock_line,
  45     menu_items      => $self->acc_menu,
  46     callback        => $callback,
  47   );
  48 }
  49
  50 sub clock_line {
  51   my $form     = $main::form;
  52
  53   my ($Sekunden, $Minuten,   $Stunden,   $Monatstag, $Monat,
  54       $Jahr,     $Wochentag, $Jahrestag, $Sommerzeit)
  55     = localtime(time);
  56   $Monat     += 1;
  57   $Jahrestag += 1;
  58   $Monat     = $Monat < 10     ? $Monat     = "0" . $Monat     : $Monat;
  59   $Monatstag = $Monatstag < 10 ? $Monatstag = "0" . $Monatstag : $Monatstag;
  60   $Jahr += 1900;
  61   my @Wochentage = ("Sonntag",    "Montag",  "Dienstag", "Mittwoch",
  62                     "Donnerstag", "Freitag", "Samstag");
  63   my @Monatsnamen = ("",       "Januar",    "Februar", "M&auml;rz",
  64                      "April",  "Mai",       "Juni",    "Juli",
  65                      "August", "September", "Oktober", "November",
  66                      "Dezember");
  67   return
  68       $Wochentage[$Wochentag] . ", der "
  69     . $Monatstag . "."
  70     . $Monat . "."
  71     . $Jahr . " - ";
  72 }
  73
  74 sub acc_menu {
  75   my ($self) = @_;
  76
  77   my $menu      = $self->menu;
  78
  79   my $all_items = [];
  80   $self->create_menu($menu, $all_items);
  81
  82   my $item = { 'subitems' => $all_items };
  83   calculate_width($item);
  84
  85   return $all_items;
  86 }
  87
  88 sub calculate_width {
  89   my $item           = shift;
  90
  91   $item->{max_width} = max map { length $_->{title} } @{ $item->{subitems} };
  92
  93   foreach my $subitem (@{ $item->{subitems} }) {
  94     calculate_width($subitem) if ($subitem->{subitems});
  95   }
  96 }
  97
  98 sub create_menu {
  99   my ($self, $menu, $all_items, $parent, $depth) = @_;
 100   my $html;
 101
 102   my $form     = $main::form;
 103   my %myconfig = %main::myconfig;
 104
 105   die if ($depth * 1 > 5);
 106
 107   my @menuorder  = $menu->access_control(\%myconfig, $parent);
 108   $parent       .= "--" if ($parent);
 109
 110   foreach my $name (@menuorder) {
 111     substr($name, 0, length($parent), "");
 112     next if (($name eq "") || ($name =~ /--/));
 113
 114     my $menu_item = $menu->{"${parent}${name}"};
 115     my $item      = { 'title' => $::locale->text($name) };
 116     push @{ $all_items }, $item;
 117
 118     if ($menu_item->{submenu} || !defined($menu_item->{module})) {
 119       $item->{subitems} = [];
 120       $item->{image} = _icon_path("$name.png");
 121       $self->create_menu($menu, $item->{subitems}, "${parent}${name}", $depth * 1 + 1);
 122
 123     } else {
 124       $item->{image} = _icon_path("${parent}${name}.png");
 125       $menu->menuitem_new("${parent}${name}", $item);
 126     }
 127   }
 128 }
 129
 130 sub _icon_path {
 131   my ($label, $size) = @_;
 132
 133   $size ||= 16;
 134
 135   my $img = "image/icons/${size}x${size}/$label";
 136
 137   return unless -f $img;
 138   return $img;
 139 }
 140
 141 1;