From 144c7b4c091f22dea4184d50450a83de087c273c Mon Sep 17 00:00:00 2001 From: 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
"; $missing=1; -- 2.39.5