|
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 |
- |
|
|