|
Lines 21-28
use Modern::Perl;
Link Here
|
| 21 |
|
21 |
|
| 22 |
use vars qw($AUTOLOAD $context); |
22 |
use vars qw($AUTOLOAD $context); |
| 23 |
|
23 |
|
| 24 |
our $REQUEST_ENV; |
|
|
| 25 |
|
| 26 |
BEGIN { |
24 |
BEGIN { |
| 27 |
if ( $ENV{'HTTP_USER_AGENT'} ) { # Only hit when plack is not enabled |
25 |
if ( $ENV{'HTTP_USER_AGENT'} ) { # Only hit when plack is not enabled |
| 28 |
|
26 |
|
|
Lines 649-655
Retrieves a hash for user environment variables.
Link Here
|
| 649 |
=cut |
647 |
=cut |
| 650 |
|
648 |
|
| 651 |
sub userenv { |
649 |
sub userenv { |
| 652 |
return Koha::Context::UserEnv->get_all(); |
650 |
return Koha::Context::UserEnv->get_all() if Koha::Context::UserEnv->exists(); |
| 653 |
} |
651 |
} |
| 654 |
|
652 |
|
| 655 |
=head2 set_userenv_from_session |
653 |
=head2 set_userenv_from_session |