View | Details | Raw Unified | Return to bug 5995
Collapse All | Expand All

(-)a/opac/sco/sco-main.pl (-2 / +2 lines)
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
- 

Return to bug 5995