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