Lines 51-57
will be created.
Link Here
|
51 |
=cut |
51 |
=cut |
52 |
|
52 |
|
53 |
sub _get_session_params { |
53 |
sub _get_session_params { |
54 |
my ( $class, $storage_method ) = @_; |
54 |
my ( $class, $args ) = @_; |
|
|
55 |
my $storage_method = $args->{storage_method}; |
55 |
$storage_method ||= C4::Context->preference('SessionStorage'); |
56 |
$storage_method ||= C4::Context->preference('SessionStorage'); |
56 |
if ( $storage_method eq 'mysql' ) { |
57 |
if ( $storage_method eq 'mysql' ) { |
57 |
my $dbh = C4::Context->dbh; |
58 |
my $dbh = C4::Context->dbh; |
58 |
- |
|
|