View | Details | Raw Unified | Return to bug 41895
Collapse All | Expand All

(-)a/C4/Context.pm (-3 / +1 lines)
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
(-)a/Koha/Context/UserEnv.pm (-3 lines)
Lines 10-17 sub attach { Link Here
10
    die "userenv must be hashref"
10
    die "userenv must be hashref"
11
        unless ref $userenv eq 'HASH';
11
        unless ref $userenv eq 'HASH';
12
12
13
    die "No request env" unless $REQUEST_ENV;
14
15
    $REQUEST_ENV->{'koha.userenv'} = $userenv;
13
    $REQUEST_ENV->{'koha.userenv'} = $userenv;
16
    return $userenv;
14
    return $userenv;
17
}
15
}
18
- 

Return to bug 41895