31 lines
497 B
Perl
31 lines
497 B
Perl
package Koha::Middleware::UserEnv;
|
|
use Modern::Perl;
|
|
|
|
use parent qw(Plack::Middleware);
|
|
|
|
use C4::Context;
|
|
|
|
=head1 NAME
|
|
|
|
Koha::Middleware::UserEnv - Middleware to ensure fresh userenv in all requests
|
|
|
|
=head1 METHODS
|
|
|
|
=head2 call
|
|
|
|
This method is called for each request, and will unset the userenv to avoid contamination between requests.
|
|
|
|
=cut
|
|
|
|
sub call {
|
|
my ( $self, $env ) = @_;
|
|
|
|
my $req = Plack::Request->new($env);
|
|
|
|
C4::Context->unset_userenv;
|
|
|
|
return $self->app->($env);
|
|
}
|
|
|
|
1;
|