projekt kivitendo

#  2007-10-14 - XMLified  - Holger Will  <holger@treebuilder.de>

#######################################################################

use SL::Menu;

use CGI::Carp qw(fatalsToBrowser);

use Encode;

use URI;

1;

# end of main

sub display {

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

  my $callback            = $form->unescape($form->{callback});

  $callback               = URI->new($callback)->rel($callback) if $callback;

  $callback               = "login.pl?action=company_logo"      if $callback =~ /^(\.\/)?$/;

sub acc_menu {

  $mainlevel =~ s/$mainlevel--//g;

  my $menu = new Menu "$menufile";

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

  my $html;

  die if ($depth * 1 > 5);

  my @menuorder;