Lines 51-58
will be created.
Link Here
|
51 |
=cut |
51 |
=cut |
52 |
|
52 |
|
53 |
sub _get_session_params { |
53 |
sub _get_session_params { |
54 |
my $class = shift; |
54 |
my ( $class, $storage_method ) = @_; |
55 |
my $storage_method = C4::Context->preference('SessionStorage'); |
55 |
$storage_method ||= C4::Context->preference('SessionStorage'); |
56 |
if ( $storage_method eq 'mysql' ) { |
56 |
if ( $storage_method eq 'mysql' ) { |
57 |
my $dbh = C4::Context->dbh; |
57 |
my $dbh = C4::Context->dbh; |
58 |
return { dsn => "serializer:yamlxs;driver:MySQL;id:md5", dsn_args => { Handle => $dbh } }; |
58 |
return { dsn => "serializer:yamlxs;driver:MySQL;id:md5", dsn_args => { Handle => $dbh } }; |
Lines 75-82
sub _get_session_params {
Link Here
|
75 |
|
75 |
|
76 |
sub get_session { |
76 |
sub get_session { |
77 |
my ( $class, $args ) = @_; |
77 |
my ( $class, $args ) = @_; |
78 |
my $sessionID = $args->{sessionID}; |
78 |
my $sessionID = $args->{sessionID}; |
79 |
my $params = $class->_get_session_params(); |
79 |
my $storage_method = $args->{storage_method}; |
|
|
80 |
my $params = $class->_get_session_params( { storage_method => $storage_method } ); |
80 |
my $session; |
81 |
my $session; |
81 |
if ($sessionID) { # find existing |
82 |
if ($sessionID) { # find existing |
82 |
CGI::Session::ErrorHandler->set_error(q{}); # clear error, cpan issue #111463 |
83 |
CGI::Session::ErrorHandler->set_error(q{}); # clear error, cpan issue #111463 |
83 |
- |
|
|