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