[Koha-cvs] CVS: koha/members newjmember.pl,1.1,1.2 insertjdata.pl,1.1,1.2

[Chris Cormack]

Update of /cvsroot/koha/koha/members
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6343

Modified Files:
        newjmember.pl insertjdata.pl 
Log Message:
Fix for bug 729



Index: newjmember.pl
===================================================================
RCS file: /cvsroot/koha/koha/members/newjmember.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** newjmember.pl       10 Mar 2004 15:13:45 -0000      1.1
--- newjmember.pl       28 Apr 2004 09:39:19 -0000      1.2
***************
*** 3,7 ****
  # $Id$
  
! #script to print confirmation screen, then if accepted calls itself to insert 
data
  # FIXME - Yes, but what does it _do_?
  # 2002/12/18 address@hidden
--- 3,7 ----
  # $Id$
  
! # script to print confirmation screen, then if accepted calls itself to 
insert data
  # FIXME - Yes, but what does it _do_?
  # 2002/12/18 address@hidden
***************
*** 96,100 ****
        $nounique = 1;
      }
!     my $valid=checkdigit(\%env,$data{'cardnumber'}, $nounique);
      if ($valid != 1){
        $string.=" Invalid Cardnumber $number<br>";
--- 96,100 ----
        $nounique = 1;
      }
!     my $valid=checkdigit(\%env,$number, $nounique);
      if ($valid != 1){
        $string.=" Invalid Cardnumber $number<br>";

Index: insertjdata.pl
===================================================================
RCS file: /cvsroot/koha/koha/members/insertjdata.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** insertjdata.pl      10 Mar 2004 15:13:45 -0000      1.1
--- insertjdata.pl      28 Apr 2004 09:39:19 -0000      1.2
***************
*** 46,52 ****
  my $query;
  for (my $i=0;$i<1;$i++){
-       my $x = "cardnumber_child_$i";
        my $sth=$dbh->prepare("Select * from borrowers where borrowernumber=?");
!       $sth->execute($x);
        if (my $data=$sth->fetchrow_hashref){
                $query="update borrowers set 
title='$data{'title'}',expiry='$data{'expiry'}',
--- 46,51 ----
  my $query;
  for (my $i=0;$i<1;$i++){
        my $sth=$dbh->prepare("Select * from borrowers where borrowernumber=?");
!       $sth->execute($data{'bornumber_child_$i'});
        if (my $data=$sth->fetchrow_hashref){
                $query="update borrowers set 
title='$data{'title'}',expiry='$data{'expiry'}',