From 2ee3977b0e5096671fb3ce4519eeec66a076af07 Mon Sep 17 00:00:00 2001
From: wolfpac444 <wolfpac444>
Date: Tue, 1 Jul 2003 17:22:17 +0000
Subject: [PATCH] *** empty log message ***

---
 C4/Circulation/Issues.pm                      |  2 +-
 C4/Input.pm                                   | 26 +++++++++++++++++--
 .../default/en/members/moremember.tmpl        | 13 +++-------
 3 files changed, 28 insertions(+), 13 deletions(-)

diff --git a/C4/Circulation/Issues.pm b/C4/Circulation/Issues.pm
index c78919f91c..b3de3ed5ab 100755
--- a/C4/Circulation/Issues.pm
+++ b/C4/Circulation/Issues.pm
@@ -323,7 +323,7 @@ sub issueitem{
        info_msg($env,"Can't issue $item->{'cardnumber'}");
      }
    } else {
-     my $valid = checkdigit($env,$itemnum);
+     my $valid = checkdigit($env,$itemnum, 1);
      if ($valid ==1) {
        if (substr($itemnum,0,1) = "V") {
          #this is a borrower
diff --git a/C4/Input.pm b/C4/Input.pm
index 1dc63273a8..4815091c0a 100644
--- a/C4/Input.pm
+++ b/C4/Input.pm
@@ -79,11 +79,33 @@ C<$env> is ignored.
 =cut
 #'
 sub checkdigit {
+
+	my ($env,$infl, $nounique) =  @_;
+	$infl = uc $infl;
+
+
+	#Check to make sure the cardnumber is unique
+
+	#FIXME: We should make the error for a nonunique cardnumber
+	#different from the one where the checkdigit on the number is
+	#not correct
+
+	unless ( $nounique ) 
+	{
+		my $dbh=C4::Context->dbh;
+		my $query=qq{SELECT * FROM borrowers WHERE cardnumber="$infl"};
+		my $sth=$dbh->prepare($query);
+		$sth->execute;
+		my %results = $sth->fetchrow_hashref();
+		if ( $sth->rows != 0 )
+		{
+			return 0;
+		}
+	}
+
 	if (C4::Context->preference("checkdigit") eq "none") {
 		return 1;
 	} else {
-		my ($env,$infl) =  @_;
-		$infl = uc $infl;
 		my @weightings = (8,4,6,3,5,2,1);
 		my $sum;
 		my $i = 1;
diff --git a/koha-tmpl/intranet-tmpl/default/en/members/moremember.tmpl b/koha-tmpl/intranet-tmpl/default/en/members/moremember.tmpl
index 38d3fef52b..af80193ee6 100644
--- a/koha-tmpl/intranet-tmpl/default/en/members/moremember.tmpl
+++ b/koha-tmpl/intranet-tmpl/default/en/members/moremember.tmpl
@@ -66,24 +66,17 @@
 		<TMPL_VAR NAME="borrowernotes"><!--</a>-->
 		<p align=right>
 		</font>
-		<TMPL_IF name="A">
-			<form action=/cgi-bin/koha/memberentry.pl method=post>
+		<TMPL_IF name="I">
+			<form action=/cgi-bin/koha/imemberentry.pl method=post>
 				<input type=hidden name=bornum value="<TMPL_VAR NAME="bornum">">
 				<INPUT TYPE=submit class="button" value="Modify">
 			</form>
-		</TMPL_IF>
-		<TMPL_IF name="C">
+		<TMPL_ELSE>
 			<form action=/cgi-bin/koha/memberentry.pl method=post>
 				<input type=hidden name=bornum value="<TMPL_VAR NAME="bornum">">
 				<INPUT TYPE=submit class="button" value="Modify">
 			</form>
 		</TMPL_IF>
-		<TMPL_IF name="I">
-			<form action=/cgi-bin/koha/imemberentry.pl method=post>
-				<input type=hidden name=bornum value="<TMPL_VAR NAME="bornum">">
-				<INPUT TYPE=submit class="button" value="Modify">
-			</form>
-		</TMPL_IF>
 		<form action=/cgi-bin/koha/deletemem.pl method=post>
                         <input type=hidden name=member value="<TMPL_VAR NAME="bornum">">
 			<INPUT TYPE=submit class="button" value="Delete">
-- 
2.39.5