Lines 65-73
if (C4::Context->preference('AutoSelfCheckAllowed'))
Link Here
|
65 |
{ |
65 |
{ |
66 |
my $AutoSelfCheckID = C4::Context->preference('AutoSelfCheckID'); |
66 |
my $AutoSelfCheckID = C4::Context->preference('AutoSelfCheckID'); |
67 |
my $AutoSelfCheckPass = C4::Context->preference('AutoSelfCheckPass'); |
67 |
my $AutoSelfCheckPass = C4::Context->preference('AutoSelfCheckPass'); |
68 |
$query->param(-name=>'userid',-values=>[$AutoSelfCheckID]); |
68 |
$ENV{REQUEST_METHOD} = 'POST'; |
69 |
$query->param(-name=>'password',-values=>[$AutoSelfCheckPass]); |
69 |
$query->param(-name=>'login_userid',-values=>[$AutoSelfCheckID]); |
|
|
70 |
$query->param(-name=>'login_password',-values=>[$AutoSelfCheckPass]); |
70 |
$query->param(-name=>'koha_login_context',-values=>['sco']); |
71 |
$query->param(-name=>'koha_login_context',-values=>['sco']); |
|
|
72 |
$query->param(-name=>'op',-values=>['cud-login']); |
71 |
} |
73 |
} |
72 |
$query->param(-name=>'sco_user_login',-values=>[1]); |
74 |
$query->param(-name=>'sco_user_login',-values=>[1]); |
73 |
|
75 |
|
74 |
- |
|
|