fix for #564

diff --git a/newimember.pl b/newimember.pl
index e24f947..04a1a3b 100755 (executable)
--- a/newimember.pl
+++ b/newimember.pl
@@ -89,7 +89,14 @@ if ($missing !=1) {
     $data{'cardnumber_institution'} = C4::Members::fixup_cardnumber
            ($data{'cardnumber_institution'});
 
-    my $valid=checkdigit(\%env,$data{"cardnumber_institution"});
+    #check cardnumber is valid
+    my $nounique;
+    if ( $data{'type'} ne "Add" )    {
+       $nounique = 0;
+    } else {
+       $nounique = 1;
+    }
+    my $valid=checkdigit(\%env,$data{'cardnumber'}, $nounique);
 
     $template->param( invalid => ($valid !=1));
 

diff --git a/newjmember.pl b/newjmember.pl
index b538a14..2fd584d 100755 (executable)
--- a/newjmember.pl
+++ b/newjmember.pl
@@ -88,7 +88,14 @@ for (my $i=0;$i<3;$i++){
       $string.=" Gender <br>";
       $missing=1;
     }
-    my $valid=checkdigit(\%env,$data{"cardnumber_child_$i"});
+    #check cardnumber is valid
+    my $nounique;
+    if ( $data{'type'} ne "Add" )    {
+       $nounique = 0;
+    } else {
+       $nounique = 1;
+    }
+    my $valid=checkdigit(\%env,$data{'cardnumber'}, $nounique);
     if ($valid != 1){
       $string.=" Invalid Cardnumber $number<br>";
       $missing=1;

diff --git a/newmember.pl b/newmember.pl
index 578f4fe..7e47d25 100755 (executable)
--- a/newmember.pl
+++ b/newmember.pl
@@ -77,13 +77,10 @@ if ($data{'cardnumber'} eq ''){
 } else {
     #check cardnumber is valid
     my $nounique;
-    if ( $data{'type'} ne "Add" )
-    {
-       $nounique = 1;
-    }
-    else
-    {
+    if ( $data{'type'} ne "Add" )    {
        $nounique = 0;
+    } else {
+       $nounique = 1;
     }
     my $valid=checkdigit(\%env,$data{'cardnumber'}, $nounique);
     if ($valid != 1){