Lines 1080-1086
sub checkauth {
Link Here
|
1080 |
else { |
1080 |
else { |
1081 |
my $retuserid; |
1081 |
my $retuserid; |
1082 |
my $request_method = $query->request_method(); |
1082 |
my $request_method = $query->request_method(); |
1083 |
if ($request_method eq 'POST'){ |
1083 |
|
|
|
1084 |
if ( |
1085 |
$request_method eq 'POST' |
1086 |
|| ( C4::Context->preference('AutoSelfCheckID') |
1087 |
&& $q_userid eq C4::Context->preference('AutoSelfCheckID') ) |
1088 |
) |
1089 |
{ |
1090 |
|
1084 |
( $return, $cardnumber, $retuserid, $cas_ticket ) = |
1091 |
( $return, $cardnumber, $retuserid, $cas_ticket ) = |
1085 |
checkpw( $dbh, $q_userid, $password, $query, $type ); |
1092 |
checkpw( $dbh, $q_userid, $password, $query, $type ); |
1086 |
$userid = $retuserid if ($retuserid); |
1093 |
$userid = $retuserid if ($retuserid); |
1087 |
- |
|
|