|
Lines 21-26
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 |
|
| 24 |
BEGIN { |
26 |
BEGIN { |
| 25 |
if ( $ENV{'HTTP_USER_AGENT'} ) { # Only hit when plack is not enabled |
27 |
if ( $ENV{'HTTP_USER_AGENT'} ) { # Only hit when plack is not enabled |
| 26 |
|
28 |
|
|
Lines 50-55
use Koha::Config::SysPrefs;
Link Here
|
| 50 |
use Koha::Context::Preferences; |
52 |
use Koha::Context::Preferences; |
| 51 |
use Koha::Config; |
53 |
use Koha::Config; |
| 52 |
use Koha; |
54 |
use Koha; |
|
|
55 |
use Koha::Context::UserEnv; |
| 53 |
|
56 |
|
| 54 |
=head1 NAME |
57 |
=head1 NAME |
| 55 |
|
58 |
|
|
Lines 646-652
Retrieves a hash for user environment variables.
Link Here
|
| 646 |
=cut |
649 |
=cut |
| 647 |
|
650 |
|
| 648 |
sub userenv { |
651 |
sub userenv { |
| 649 |
return $context->{userenv}; |
652 |
return Koha::Context::UserEnv->get_all(); |
| 650 |
} |
653 |
} |
| 651 |
|
654 |
|
| 652 |
=head2 set_userenv_from_session |
655 |
=head2 set_userenv_from_session |
|
Lines 699-705
sub set_userenv {
Link Here
|
| 699 |
$register_id, $register_name, $session_id, |
702 |
$register_id, $register_name, $session_id, |
| 700 |
) = @_; |
703 |
) = @_; |
| 701 |
|
704 |
|
| 702 |
my $cell = { |
705 |
my $userenv = { |
| 703 |
"number" => $usernum, |
706 |
"number" => $usernum, |
| 704 |
"id" => $userid, |
707 |
"id" => $userid, |
| 705 |
"cardnumber" => $usercnum, |
708 |
"cardnumber" => $usercnum, |
|
Lines 718-725
sub set_userenv {
Link Here
|
| 718 |
"register_name" => $register_name, |
721 |
"register_name" => $register_name, |
| 719 |
"session_id" => $session_id, |
722 |
"session_id" => $session_id, |
| 720 |
}; |
723 |
}; |
| 721 |
$context->{userenv} = $cell; |
724 |
return Koha::Context::UserEnv->attach($userenv); |
| 722 |
return $cell; |
|
|
| 723 |
} |
725 |
} |
| 724 |
|
726 |
|
| 725 |
=head2 unset_userenv |
727 |
=head2 unset_userenv |
|
Lines 731-737
Destroys user environment variables.
Link Here
|
| 731 |
=cut |
733 |
=cut |
| 732 |
|
734 |
|
| 733 |
sub unset_userenv { |
735 |
sub unset_userenv { |
| 734 |
$context->{userenv} = undef; |
736 |
return Koha::Context::UserEnv->clear(); |
| 735 |
} |
737 |
} |
| 736 |
|
738 |
|
| 737 |
=head2 get_versions |
739 |
=head2 get_versions |