From 4cef812d06f4e462abbfea500620f76402739c2e Mon Sep 17 00:00:00 2001
From: wolfpac444 <wolfpac444>
Date: Wed, 2 Jul 2003 00:29:51 +0000
Subject: [PATCH] *** empty log message ***

---
 .../intranet-tmpl/default/en/members/memberentry.tmpl |  1 +
 memberentry.pl                                        |  2 +-
 newmember.pl                                          | 11 ++++++++++-
 3 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/koha-tmpl/intranet-tmpl/default/en/members/memberentry.tmpl b/koha-tmpl/intranet-tmpl/default/en/members/memberentry.tmpl
index 452e154906..308b39470a 100644
--- a/koha-tmpl/intranet-tmpl/default/en/members/memberentry.tmpl
+++ b/koha-tmpl/intranet-tmpl/default/en/members/memberentry.tmpl
@@ -197,6 +197,7 @@
 	<tr>
 		<td></td>
 		<td>
+			<input type=hidden name=type value=<TMPL_VAR NAME="type">>
 			<input type=image src="<TMPL_VAR name="interface">/<TMPL_VAR name="theme">/images/2rightarrow.png" ALT="Add New Member" border=0 >
 		</td>
 	</tr>
diff --git a/memberentry.pl b/memberentry.pl
index 912865fbd3..b07372b07a 100755
--- a/memberentry.pl
+++ b/memberentry.pl
@@ -149,7 +149,7 @@ if ($delete){
 				-size     => 1,
 				-multiple => 0 );
 
-	$template->param(
+	$template->param(	type 		=> $type,
 				member          => $member,
 				address         => $data->{'streetaddress'},
 				firstname       => $data->{'firstname'},
diff --git a/newmember.pl b/newmember.pl
index d600f32583..cd433616c0 100755
--- a/newmember.pl
+++ b/newmember.pl
@@ -74,7 +74,16 @@ if ($data{'cardnumber'} eq ''){
     $ok=1;
 } else {
     #check cardnumber is valid
-    my $valid=checkdigit(\%env,$data{'cardnumber'});
+    my $nounique;
+    if ( $data{'type'} ne "Add" )
+    {
+	$nounique = 1;
+    }
+    else
+    {
+	$nounique = 0;
+    }
+    my $valid=checkdigit(\%env,$data{'cardnumber'}, $nounique);
     if ($valid != 1){
         $ok=1;
         $string.=" Invalid Cardnumber<br>";
-- 
2.39.5