[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 hdl at ifrance.comTemplating
--- 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 hdl at ifrance.comTemplating
***************
*** 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'}',