projekt kivitendo

  $self->save_session($dbh);

  $dbh->commit();

  $main::lxdebug->leave_sub();

}

sub save_session {

  my $self         = shift;

  my $provided_dbh = shift;

  my $dbh          = $provided_dbh || $self->dbconnect();

  my $query        = qq|INSERT INTO auth.session_content (session_id, sess_key, sess_value) VALUES (?, ?, ?)|;

  my $sth          = prepare_query($::form, $dbh, $query);

    do_statement($::form, $sth, $query, $session_id, $key, $self->{SESSION}->{$key});