Lines 22-29
use C4::Context;
Link Here
|
22 |
use Koha::Caches; |
22 |
use Koha::Caches; |
23 |
|
23 |
|
24 |
sub _get_session_params { |
24 |
sub _get_session_params { |
25 |
my $class = shift; |
25 |
my ( $class, $storage_method ) = @_; |
26 |
my $storage_method = C4::Context->preference('SessionStorage'); |
26 |
$storage_method ||= C4::Context->preference('SessionStorage'); |
27 |
if ( $storage_method eq 'mysql' ) { |
27 |
if ( $storage_method eq 'mysql' ) { |
28 |
my $dbh = C4::Context->dbh; |
28 |
my $dbh = C4::Context->dbh; |
29 |
return { dsn => "serializer:yamlxs;driver:MySQL;id:md5", dsn_args => { Handle => $dbh } }; |
29 |
return { dsn => "serializer:yamlxs;driver:MySQL;id:md5", dsn_args => { Handle => $dbh } }; |
Lines 47-53
sub _get_session_params {
Link Here
|
47 |
sub get_session { |
47 |
sub get_session { |
48 |
my ( $class, $args ) = @_; |
48 |
my ( $class, $args ) = @_; |
49 |
my $sessionID = $args->{sessionID}; |
49 |
my $sessionID = $args->{sessionID}; |
50 |
my $params = $class->_get_session_params(); |
50 |
my $storage_method = $args->{storage_method}; |
|
|
51 |
my $params = $class->_get_session_params( { storage_method => $storage_method } ); |
51 |
my $session; |
52 |
my $session; |
52 |
if ($sessionID) { # find existing |
53 |
if ($sessionID) { # find existing |
53 |
CGI::Session::ErrorHandler->set_error(q{}); # clear error, cpan issue #111463 |
54 |
CGI::Session::ErrorHandler->set_error(q{}); # clear error, cpan issue #111463 |
54 |
- |
|
|