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

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

Return to bug 36098