|
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 |
- |
|
|