sub setLoginDaten {
    my $session = shift;
    my $cgi = shift;
    $session->param('logedIn', 1); # Login-Status setzen
    $session->param('usn', $query->{'usn'});
    $session->param('sid', $session->id() );
    # self setzen!!!
    $session->param('self', $ldata->{'data'}->{'url'}->{'admin'} .'?sid=' . $session->id() );
    $session->expire('logedIn', $ldata->{'data'}->{'session_time'});
} # /setLoginDaten