X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/6bab0fff323c36de9e247487f043da1b29dea6fd..d32410ac096b:/SL/Auth/SessionValue.pm diff --git a/SL/Auth/SessionValue.pm b/SL/Auth/SessionValue.pm index 3cc80bb6f..0950a46b9 100644 --- a/SL/Auth/SessionValue.pm +++ b/SL/Auth/SessionValue.pm @@ -16,7 +16,7 @@ sub new { my $self = bless {}, $class; - map { $self->{$_} = $params{$_} } qw(auth key value auto_restore); + map { $self->{$_} = $params{$_} } qw(auth key value auto_restore modified); $self->{fetched} = exists $params{value}; $self->{parsed} = !$params{raw} && exists $params{value}; @@ -46,6 +46,7 @@ sub _fetch { my ($self) = @_; return $self if $self->{fetched}; + return $self if !$self->{auth}->session_tables_present; my $dbh = $self->{auth}->dbconnect; my $query = qq|SELECT sess_value FROM auth.session_content WHERE (session_id = ?) AND (sess_key = ?)|;