Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 68dbf4a4

Von Sven Schöling vor mehr als 9 Jahren hinzugefügt

  • ID 68dbf4a4cb26b9554a23f076438109d7fc2d861c
  • Vorgänger 0d710c06
  • Nachfolger 4ee1cfb0

Layout Aufräumaktion:

- Admin und V3 Menü entflochten. Benutzen jetzt beide das neue CssMenu
als sub_layout
- Top-Klone aus V3 und Javascript herausoperiert und als sub_layout
eingebunden
- Neues Layout AdminLogin für die Loginmaske im Adminbereich (d'oh)
- Inputfelder im frame_header kleiner gemacht, Frickelfox ignoriert mal
wieder css Vorgaben und inheritet font-size nicht.
- Beschreibung in Placeholder verschoben. Ja das ist html5. Benutz halt
nicht IE6.
- javascript für Ansprechpartnersuche gefixt und ausgelagert.
- Login, Classic und V3 sind top level Layouts und brauchen nicht
sub_layoutbar sein. Macht den Code einfacher.

Unterschiede anzeigen:

SL/Layout/Javascript.pm
7 7
use URI;
8 8

  
9 9
sub init_sub_layouts {
10
  [ SL::Layout::None->new ]
10
  [
11
    SL::Layout::None->new,
12
    SL::Layout::Top->new,
13
  ]
11 14
}
12 15

  
13 16
sub use_javascript {
14 17
  my $self = shift;
15 18
  qw(
16
    js/quicksearch_input.js
19
    js/dhtmlsuite/menu-for-applications.js
17 20
  ),
18 21
  $self->SUPER::use_javascript(@_);
19 22
}
20 23

  
21 24
sub pre_content {
25
  $_[0]->SUPER::pre_content .
22 26
  &display
23 27
}
24 28

  
......
43 47

  
44 48
sub display {
45 49
  my ($self) = @_;
46
  my $form     = $main::form;
47

  
48
  my $callback            = $form->unescape($form->{callback});
49
  $callback               = URI->new($callback)->rel($callback) if $callback;
50
  $callback               = "login.pl?action=company_logo"      if $callback =~ /^(\.\/)?$/;
51 50

  
52 51
  $self->presenter->render("menu/menunew",
53 52
    force_ul_width  => 1,
54
    date            => $self->clock_line,
55 53
    menu_items      => $self->acc_menu,
56
    callback        => $callback,
57 54
  );
58 55
}
59 56

  
60
sub clock_line {
61
  my $form     = $main::form;
62

  
63
  my ($Sekunden, $Minuten,   $Stunden,   $Monatstag, $Monat,
64
      $Jahr,     $Wochentag, $Jahrestag, $Sommerzeit)
65
    = localtime(time);
66
  $Monat     += 1;
67
  $Jahrestag += 1;
68
  $Monat     = $Monat < 10     ? $Monat     = "0" . $Monat     : $Monat;
69
  $Monatstag = $Monatstag < 10 ? $Monatstag = "0" . $Monatstag : $Monatstag;
70
  $Jahr += 1900;
71
  my @Wochentage = ("Sonntag",    "Montag",  "Dienstag", "Mittwoch",
72
                    "Donnerstag", "Freitag", "Samstag");
73
  my @Monatsnamen = ("",       "Januar",    "Februar", "M&auml;rz",
74
                     "April",  "Mai",       "Juni",    "Juli",
75
                     "August", "September", "Oktober", "November",
76
                     "Dezember");
77
  return
78
      $Wochentage[$Wochentag] . ", der "
79
    . $Monatstag . "."
80
    . $Monat . "."
81
    . $Jahr . " - ";
82
}
83

  
84 57
sub acc_menu {
85 58
  my ($self) = @_;
86 59

  

Auch abrufbar als: Unified diff