X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/b513b1ef51a01f90bd2a234a69fae4f69013d0f3..c8c6d1e8cc86565fb0e0fd290317f28e76bbff3b:/SL/Auth.pm?ds=sidebyside diff --git a/SL/Auth.pm b/SL/Auth.pm index 5cedbecf3..2bd2d09c0 100644 --- a/SL/Auth.pm +++ b/SL/Auth.pm @@ -187,7 +187,7 @@ sub dbconnect { $main::form->error($main::locale->text('The connection to the authentication database failed:') . "\n" . $DBI::errstr); } - $main::lxdebug->leave_sub(); + $main::lxdebug->leave_sub(2); return $self->{dbh}; } @@ -489,7 +489,7 @@ sub restore_session { if (!$cookie || $cookie->{is_expired} || ($cookie->{ip_address} ne $ENV{REMOTE_ADDR})) { $self->destroy_session(); $main::lxdebug->leave_sub(); - return SESSION_EXPIRED; + return $cookie ? SESSION_EXPIRED : SESSION_NONE; } $query = qq|SELECT sess_key, sess_value FROM auth.session_content WHERE session_id = ?|;