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