[Koha-cvs] CVS: koha/C4 Members.pm,1.1,1.2

[MJ Ray]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv27457/C4

Modified Files:
	Members.pm 
Log Message:
DBI call fix for bug 662

Index: Members.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Members.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** Members.pm	10 Feb 2003 07:14:17 -0000	1.1
--- Members.pm	15 Dec 2003 16:19:14 -0000	1.2
***************
*** 76,81 ****
      if ($cardnumber !~ /\S/ && $autonumber_members) {
  	my $dbh = C4::Context->dbh;
! 	my $query="select max(substring(borrowers.cardnumber,2,7)) from borrowers";
! 	my $sth=$dbh->prepare($query);
  	$sth->execute;
  
--- 76,80 ----
      if ($cardnumber !~ /\S/ && $autonumber_members) {
  	my $dbh = C4::Context->dbh;
! 	my $sth=$dbh->prepare("select max(substring(borrowers.cardnumber,2,7)) from borrowers");
  	$sth->execute;