diff --git a/newimember.pl b/newimember.pl index e24f947521..04a1a3b96d 100755 --- 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 b538a14819..2fd584db2b 100755 --- a/newjmember.pl +++ b/newjmember.pl @@ -88,7 +88,14 @@ for (my $i=0;$i<3;$i++){ $string.=" Gender
"; $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
"; $missing=1; diff --git a/newmember.pl b/newmember.pl index 578f4fee05..7e47d259ca 100755 --- 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){