X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9ae27aaed7df10d51373d5ddf94d8479ade1071d..c8c6d1e8cc86565fb0e0fd290317f28e76bbff3b:/SL/Auth.pm diff --git a/SL/Auth.pm b/SL/Auth.pm index 120288755..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,16 +489,15 @@ 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 = ?|; $sth = prepare_execute_query($form, $dbh, $query, $session_id); while (my $ref = $sth->fetchrow_hashref()) { - my $value = $self->_load_value($ref->{sess_value}); - $self->{SESSION}->{$ref->{sess_key}} = $value; - $form->{$ref->{sess_key}} = $value if (!defined $form->{$ref->{sess_key}}); + $self->{SESSION}->{$ref->{sess_key}} = $ref->{sess_value}; + $form->{$ref->{sess_key}} = $self->_load_value($ref->{sess_value}) if (!defined $form->{$ref->{sess_key}}); } $sth->finish();