From 8ad4fa34c12643ced8abfb03f9ae69ee5dea611a Mon Sep 17 00:00:00 2001 From: =?utf8?q?Fr=C3=A8re=20S=C3=A9bastien=20Marie?= Date: Sat, 2 Jul 2011 16:38:10 +0200 Subject: [PATCH] Bug 6549 : sco-main.pl: Parentheses missing around "my" list MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Signed-off-by: Frère Sébastien Marie Signed-off-by: Chris Cormack --- opac/sco/sco-main.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/opac/sco/sco-main.pl b/opac/sco/sco-main.pl index b36ff64346..2488f67002 100755 --- a/opac/sco/sco-main.pl +++ b/opac/sco/sco-main.pl @@ -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); -- 2.39.5