projekt kivitendo

  return $self;

}

sub get_user_dbh {

  my ($self, $login) = @_;

  my %user = $self->read_user($login);

  {

    no warnings 'once';

    $::lxdebug     = LXDebug->new;

    $::form        = undef;

    %::myconfig    = ();

    %::called_subs = (); # currently used for recursion detection

  $::cgi         = CGI->new('');

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

  $::form        = Form->new;

  %::called_subs = ();

  eval { ($routing_type, $script_name, $action) = _route_request($script_name); 1; } or return;

  $::myconfig = ();

  Form::disconnect_standard_dbh;

  $::auth->expire_session_keys->save_session;

  $::lxdebug->end_request;

  $::lxdebug->leave_sub;