projekt kivitendo

use SL::Common;

use SL::Form;

use SL::Helper::DateTime;

use SL::Template::Plugin::HTMLFixes;

# Trailing new line is added so that Perl will not add the line

  $::locale      = Locale->new($::lx_office_conf{system}->{language});

  $::form        = Form->new;

  %::called_subs = ();

  my $session_result = $::auth->restore_session;

  $::auth->create_or_refresh_session;

      delete $::form->{password};

      if ($action) {

        map { $::form->{$_} = $::myconfig{$_} } qw(stylesheet charset)

          unless $action eq 'save' && $::form->{type} eq 'preferences';