From 144c7b4c091f22dea4184d50450a83de087c273c Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Wed, 28 Apr 2004 09:39:19 +0000
Subject: [PATCH] Fix for bug 729

---
 members/insertjdata.pl | 3 +--
 members/newjmember.pl  | 4 ++--
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/members/insertjdata.pl b/members/insertjdata.pl
index bace33b0ae..4133a60b67 100755
--- a/members/insertjdata.pl
+++ b/members/insertjdata.pl
@@ -45,9 +45,8 @@ foreach my $key (@names){
 my $dbh = C4::Context->dbh;
 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);
+	$sth->execute($data{'bornumber_child_$i'});
 	if (my $data=$sth->fetchrow_hashref){
 		$query="update borrowers set title='$data{'title'}',expiry='$data{'expiry'}',
 		cardnumber='$data{'cardnumber'}',sex='$data{'sex'}',ethnotes='$data{'ethnicnotes'}',
diff --git a/members/newjmember.pl b/members/newjmember.pl
index 2fd584db2b..d752a6f192 100755
--- a/members/newjmember.pl
+++ b/members/newjmember.pl
@@ -2,7 +2,7 @@
 
 # $Id$
 
-#script to print confirmation screen, then if accepted calls itself to insert data
+# script to print confirmation screen, then if accepted calls itself to insert data
 # FIXME - Yes, but what does it _do_?
 # 2002/12/18 hdl@ifrance.comTemplating
 
@@ -95,7 +95,7 @@ for (my $i=0;$i<3;$i++){
     } else {
 	$nounique = 1;
     }
-    my $valid=checkdigit(\%env,$data{'cardnumber'}, $nounique);
+    my $valid=checkdigit(\%env,$number, $nounique);
     if ($valid != 1){
       $string.=" Invalid Cardnumber $number<br>";
       $missing=1;
-- 
2.39.2