Lines 121-127
my $issuer = Koha::Patrons->find($issuerid)->unblessed;
Link Here
|
121 |
|
121 |
|
122 |
my $patronid = $jwt ? Koha::Token->new->decode_jwt( { token => $jwt } ) : undef; |
122 |
my $patronid = $jwt ? Koha::Token->new->decode_jwt( { token => $jwt } ) : undef; |
123 |
unless ($patronid) { |
123 |
unless ($patronid) { |
124 |
if ( C4::Context->preference('SelfCheckoutByLogin') ) { |
124 |
if ( C4::Context->preference('SelfCheckoutByLogin') && $op eq "cud-login" ) { |
125 |
( undef, $patronid ) = checkpw( $patronlogin, $patronpw ); |
125 |
( undef, $patronid ) = checkpw( $patronlogin, $patronpw ); |
126 |
} else { # People should not do that unless they know what they are doing! |
126 |
} else { # People should not do that unless they know what they are doing! |
127 |
# SelfCheckAllowByIPRanges MUST be configured |
127 |
# SelfCheckAllowByIPRanges MUST be configured |
128 |
- |
|
|