X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9ae27aaed7df10d51373d5ddf94d8479ade1071d..b513b1ef51a01f90bd2a234a69fae4f69013d0f3:/SL/Auth.pm diff --git a/SL/Auth.pm b/SL/Auth.pm index 120288755..5cedbecf3 100644 --- a/SL/Auth.pm +++ b/SL/Auth.pm @@ -496,9 +496,8 @@ sub restore_session { $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();