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