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

(-)a/Koha/App/Plugin/CSRF.pm (+2 lines)
Lines 62-67 this case, no verification is done. Link Here
62
62
63
=cut
63
=cut
64
64
65
# If you need to update the logic here, please also update Koha::Middleware::CSRF
66
65
sub register {
67
sub register {
66
    my ( $self, $app, $conf ) = @_;
68
    my ( $self, $app, $conf ) = @_;
67
69
(-)a/Koha/Middleware/CSRF.pm (-1 / +2 lines)
Lines 20-25 use Modern::Perl; Link Here
20
use parent qw(Plack::Middleware);
20
use parent qw(Plack::Middleware);
21
use Plack::Response;
21
use Plack::Response;
22
22
23
# If you need to update the logic here, please also update Koha::App::Plugin::CSRF
24
23
sub call {
25
sub call {
24
    my ( $self, $env ) = @_;
26
    my ( $self, $env ) = @_;
25
    my $req = Plack::Request->new($env);
27
    my $req = Plack::Request->new($env);
26
- 

Return to bug 36598