From dc8e00e1c1f1d97fd52ca17f169de483a9ba9074 Mon Sep 17 00:00:00 2001
From: slef <slef>
Date: Mon, 15 Dec 2003 10:49:46 +0000
Subject: [PATCH] DBI call fix for bug 662

---
 C4/Groups.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/C4/Groups.pm b/C4/Groups.pm
index d76ea77b5c..c4bbe9f204 100755
--- a/C4/Groups.pm
+++ b/C4/Groups.pm
@@ -65,8 +65,8 @@ sub groupmembers {
     my @members;
     my $dbh = C4::Context->dbh;
     my $q_group=$dbh->quote($group);
-    my $sth=$dbh->prepare("select borrowernumber from borrowergroups where groupshortname=$q_group");
-    $sth->execute;
+    my $sth=$dbh->prepare("select borrowernumber from borrowergroups where groupshortname=?");
+    $sth->execute($q_group);
     while (my ($borrowernumber) = $sth->fetchrow) {
 	my ($patron, $flags) = getpatroninformation($env, $borrowernumber);
 	my $currentissues=currentissues($env, $patron);
-- 
2.39.5