[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Groups.pm,1.7,1.8
From: |
MJ Ray |
Subject: |
[Koha-cvs] CVS: koha/C4 Groups.pm,1.7,1.8 |
Date: |
Mon, 15 Dec 2003 02:49:48 -0800 |
Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv30085/C4
Modified Files:
Groups.pm
Log Message:
DBI call fix for bug 662
Index: Groups.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Groups.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** Groups.pm 13 Oct 2002 07:36:50 -0000 1.7
--- Groups.pm 15 Dec 2003 10:49:46 -0000 1.8
***************
*** 66,71 ****
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;
while (my ($borrowernumber) = $sth->fetchrow) {
my ($patron, $flags) = getpatroninformation($env, $borrowernumber);
--- 66,71 ----
my $dbh = C4::Context->dbh;
my $q_group=$dbh->quote($group);
! 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);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Groups.pm,1.7,1.8,
MJ Ray <=