projekt kivitendo

  # canonial globals. if it's not here, chances are it will get refactored someday.

  {

    no warnings 'once';

    $::lxdebug     = LXDebug->new;

    $::auth        = SL::Auth->new;

    $::form        = undef;

  $::lxdebug->enter_sub;

  my $framesize    = _calc_framesize() - 2;

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

  $::form->{title} = $::locale->text('Lx-Office');

  $::form->header;

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

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

  $| = 1;

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

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

  $| = 1;

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

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

  $| = 1;

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

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

  $| = 1;