projekt kivitendo

use SL::Menu;

1;

# end of main

sub display {

  $form->header();

#   $form->{force_ul_width} = $ENV{HTTP_USER_AGENT} =~ m/MSIE\s+6\./;

}

sub clock_line {

  my ($Sekunden, $Minuten,   $Stunden,   $Monatstag, $Monat,

      $Jahr,     $Wochentag, $Jahrestag, $Sommerzeit)

    = localtime(time);

}

sub acc_menu {

  $locale = Locale->new($myconfig{countrycode}, "menu");

  my $mainlevel =  $form->{level};

  $mainlevel    =~ s/\Q$mainlevel\E--//g;

  my $menu      = Menu->new('menu.ini');

  my $all_items = [];

  create_menu($menu, $all_items);

  my ($menu, $all_items, $parent, $depth) = @_;

  my $html;

  die if ($depth * 1 > 5);

  my @menuorder  = $menu->access_control(\%myconfig, $parent);