Lines 21-26
use CGI::Session;
Link Here
|
21 |
use C4::Context; |
21 |
use C4::Context; |
22 |
use Koha::Caches; |
22 |
use Koha::Caches; |
23 |
|
23 |
|
|
|
24 |
=head1 NAME |
25 |
|
26 |
Koha::Session - Session class for Koha |
27 |
|
28 |
=head1 SYNOPSIS |
29 |
|
30 |
use Koha::Session; |
31 |
my $session = Koha::Session->get_session({ sessionID => $sessionID}); |
32 |
|
33 |
=head1 DESCRIPTION |
34 |
|
35 |
This simple class exposes some basic methods for managing user sessions. |
36 |
|
37 |
=head1 METHODS |
38 |
|
39 |
=head2 get_session |
40 |
|
41 |
my $session = Koha::Session->get_session({ sessionID => $sessionID}); |
42 |
|
43 |
Given a session ID, retrieves the CGI::Session object used to store |
44 |
the session's state. The session object can be used to store |
45 |
data that needs to be accessed by different scripts during a |
46 |
user's session. |
47 |
|
48 |
If the C<$sessionID> parameter is an empty string, a new session |
49 |
will be created. |
50 |
|
51 |
=cut |
52 |
|
24 |
sub _get_session_params { |
53 |
sub _get_session_params { |
25 |
my $class = shift; |
54 |
my $class = shift; |
26 |
my $storage_method = C4::Context->preference('SessionStorage'); |
55 |
my $storage_method = C4::Context->preference('SessionStorage'); |
Lines 47-53
sub _get_session_params {
Link Here
|
47 |
sub get_session { |
76 |
sub get_session { |
48 |
my ( $class, $args ) = @_; |
77 |
my ( $class, $args ) = @_; |
49 |
my $sessionID = $args->{sessionID}; |
78 |
my $sessionID = $args->{sessionID}; |
50 |
my $params = $class->_get_session_params(); |
79 |
my $params = $class->_get_session_params(); |
51 |
my $session; |
80 |
my $session; |
52 |
if ($sessionID) { # find existing |
81 |
if ($sessionID) { # find existing |
53 |
CGI::Session::ErrorHandler->set_error(q{}); # clear error, cpan issue #111463 |
82 |
CGI::Session::ErrorHandler->set_error(q{}); # clear error, cpan issue #111463 |
54 |
- |
|
|