|
Lines 24-29
use C4::Context;
Link Here
|
| 24 |
use C4::Service; |
24 |
use C4::Service; |
| 25 |
use C4::Log; |
25 |
use C4::Log; |
| 26 |
use Koha::Token; |
26 |
use Koha::Token; |
|
|
27 |
use CGI::Cookie; |
| 28 |
use C4::Auth qw( get_session ); |
| 27 |
|
29 |
|
| 28 |
=head1 NAME |
30 |
=head1 NAME |
| 29 |
|
31 |
|
|
Lines 135-140
sub set_preferences {
Link Here
|
| 135 |
C4::Service->return_success($response); |
137 |
C4::Service->return_success($response); |
| 136 |
} |
138 |
} |
| 137 |
|
139 |
|
|
|
140 |
my %cookies = CGI::Cookie->fetch; |
| 141 |
|
| 142 |
if ( exists $cookies{'CGISESSID'} ) { |
| 143 |
my $sessionID = $cookies{'CGISESSID'}->value; |
| 144 |
if ($sessionID) { |
| 145 |
my $session = get_session($sessionID); |
| 146 |
C4::Context->interface( $session->param('interface') ) if ($session); |
| 147 |
} |
| 148 |
} |
| 149 |
|
| 138 |
C4::Service->dispatch( |
150 |
C4::Service->dispatch( |
| 139 |
[ 'POST /([A-Za-z0-9_-]+)', ['value'], \&set_preference ], |
151 |
[ 'POST /([A-Za-z0-9_-]+)', ['value'], \&set_preference ], |
| 140 |
[ 'POST /', [], \&set_preferences ], |
152 |
[ 'POST /', [], \&set_preferences ], |
| 141 |
- |
|
|