Bug 6549 : sco-main.pl: Parentheses missing around "my" list

Signed-off-by: Frère Sébastien Marie <semarie-koha@latrappe.fr>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
This commit is contained in:
Frère Sébastien Marie 2011-07-02 16:38:10 +02:00 committed by Chris Cormack
parent 610457ea41
commit 8ad4fa34c1
1 changed files with 1 additions and 1 deletions

View File

@ -92,7 +92,7 @@ my $issuer = GetMemberDetails($issuerid);
my $item = GetItem(undef,$barcode);
if (C4::Context->preference('SelfCheckoutByLogin') && !$patronid) {
my $dbh = C4::Context->dbh;
my $resval, $patronid = checkpw($dbh, $patronlogin, $patronpw);
my ($resval, $patronid) = checkpw($dbh, $patronlogin, $patronpw);
}
my $borrower = GetMemberDetails(undef,$patronid);