From 8ad4fa34c12643ced8abfb03f9ae69ee5dea611a Mon Sep 17 00:00:00 2001
From: =?utf8?q?Fr=C3=A8re=20S=C3=A9bastien=20Marie?=
 <semarie-koha@latrappe.fr>
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 <semarie-koha@latrappe.fr>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
---
 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.2