View | Details | Raw Unified | Return to bug 36098
Collapse All | Expand All

(-)a/Koha/Session.pm (-4 / +4 lines)
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
- 

Return to bug 36098