From a8e01b44fa9d901d2c3872e4ba4ba34e57070580 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 19 Mar 2024 11:39:06 +0100 Subject: [PATCH] Bug 36349: Fix AutoSelfCheckAllowed This feels terribly wrong... --- opac/sco/sco-main.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/opac/sco/sco-main.pl b/opac/sco/sco-main.pl index a4a05f793eb..c9f7a5efee7 100755 --- a/opac/sco/sco-main.pl +++ b/opac/sco/sco-main.pl @@ -65,9 +65,11 @@ if (C4::Context->preference('AutoSelfCheckAllowed')) { my $AutoSelfCheckID = C4::Context->preference('AutoSelfCheckID'); my $AutoSelfCheckPass = C4::Context->preference('AutoSelfCheckPass'); - $query->param(-name=>'userid',-values=>[$AutoSelfCheckID]); - $query->param(-name=>'password',-values=>[$AutoSelfCheckPass]); + $ENV{REQUEST_METHOD} = 'POST'; + $query->param(-name=>'login_userid',-values=>[$AutoSelfCheckID]); + $query->param(-name=>'login_password',-values=>[$AutoSelfCheckPass]); $query->param(-name=>'koha_login_context',-values=>['sco']); + $query->param(-name=>'op',-values=>['cud-login']); } $query->param(-name=>'sco_user_login',-values=>[1]); -- 2.34.1