Lines 2-7
Link Here
|
2 |
# |
2 |
# |
3 |
# This code has been modified by Trendsetters (originally from opac-user.pl) |
3 |
# This code has been modified by Trendsetters (originally from opac-user.pl) |
4 |
# This code has been modified by rch |
4 |
# This code has been modified by rch |
|
|
5 |
# Parts Copyright 2010-2011, ByWater Solutions (those related to username/password auth) |
5 |
# We're going to authenticate a self-check user. we'll add a flag to borrowers 'selfcheck' |
6 |
# We're going to authenticate a self-check user. we'll add a flag to borrowers 'selfcheck' |
6 |
# |
7 |
# |
7 |
# We're in a controlled environment; we trust the user. |
8 |
# We're in a controlled environment; we trust the user. |
Lines 92-98
my $issuer = GetMemberDetails($issuerid);
Link Here
|
92 |
my $item = GetItem(undef,$barcode); |
93 |
my $item = GetItem(undef,$barcode); |
93 |
if (C4::Context->preference('SelfCheckoutByLogin') && !$patronid) { |
94 |
if (C4::Context->preference('SelfCheckoutByLogin') && !$patronid) { |
94 |
my $dbh = C4::Context->dbh; |
95 |
my $dbh = C4::Context->dbh; |
95 |
my ($resval, $patronid) = checkpw($dbh, $patronlogin, $patronpw); |
96 |
(my $resval, $patronid) = checkpw($dbh, $patronlogin, $patronpw); |
96 |
} |
97 |
} |
97 |
my $borrower = GetMemberDetails(undef,$patronid); |
98 |
my $borrower = GetMemberDetails(undef,$patronid); |
98 |
|
99 |
|
99 |
- |
|
|