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

(-)a/opac/sco/sco-main.pl (-2 / +1 lines)
Lines 92-98 my $issuer = GetMemberDetails($issuerid); Link Here
92
my $item     = GetItem(undef,$barcode);
92
my $item     = GetItem(undef,$barcode);
93
if (C4::Context->preference('SelfCheckoutByLogin') && !$patronid) {
93
if (C4::Context->preference('SelfCheckoutByLogin') && !$patronid) {
94
    my $dbh = C4::Context->dbh;
94
    my $dbh = C4::Context->dbh;
95
    my $resval, $patronid = checkpw($dbh, $patronlogin, $patronpw);
95
    my ($resval, $patronid) = checkpw($dbh, $patronlogin, $patronpw);
96
}
96
}
97
my $borrower = GetMemberDetails(undef,$patronid);
97
my $borrower = GetMemberDetails(undef,$patronid);
98
98
99
- 

Return to bug 6549