[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;