From: Nahuel Angelinetti <nahuel.angelinetti@biblibre.com>
Date: Wed, 10 Dec 2008 16:26:33 +0000 (+0100)
Subject: (bug #2856) Activate the duplicate patrons detection and check birthdate only if... 
X-Git-Tag: v3.00.01.005~150
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=248bc934f8359a838b27807466c5d335790a8c1f;p=koha.git

(bug #2856) Activate the duplicate patrons detection and check birthdate only if one is set

This patch activate the check of unique member, it was checked but not shown, and the member was added even if a duplicate was
detected.
It improve the duplicate detection, to check the birthdate only if it was specified in the form.
And fix an url of "Yes" link(if the borrower added IS the duplicate detected).
---

diff --git a/C4/Members.pm b/C4/Members.pm
index 49a29ccf67..09f9a0803e 100644
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -1235,12 +1235,17 @@ sub checkuniquemember {
     my $dbh = C4::Context->dbh;
     my $request = ($collectivity) ?
         "SELECT borrowernumber,categorycode FROM borrowers WHERE surname=? " :
-        "SELECT borrowernumber,categorycode FROM borrowers WHERE surname=? and firstname=? and dateofbirth=? ";
+        "SELECT borrowernumber,categorycode FROM borrowers WHERE surname=? and firstname=?";
     my $sth = $dbh->prepare($request);
     if ($collectivity) {
         $sth->execute( uc($surname) );
     } else {
-        $sth->execute( uc($surname), ucfirst($firstname), $dateofbirth );
+        if($dateofbirth){
+            $request .= " and dateofbirth=?";
+            $sth->execute( uc($surname), ucfirst($firstname), $dateofbirth );
+        }else{
+            $sth->execute( uc($surname), ucfirst($firstname));
+        }
     }
     my @data = $sth->fetchrow;
     $sth->finish;
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tmpl
index df289a58ac..a1953d401d 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tmpl
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tmpl
@@ -89,7 +89,7 @@
 				<h3>Duplicate suspected</h3>
 				<a href="javascript:Dopop('borrowers_details.pl?borrowernumber=<!--TMPL_VAR NAME="check_member"-->');" >Detail</a>
 				Duplicate ?
-				<a href="/cgi-bin/koha/members/memberentry.pl?borrowernumber=<!--TMPL_VAR NAME="check_member"-->&amp;category_type=<!--TMPL_VAR NAME="check_categorytype"-->">Yes</a> 
+				<a href="/cgi-bin/koha/members/memberentry.pl?op=modify&amp;borrowernumber=<!--TMPL_VAR NAME="check_member"-->&amp;category_type=<!--TMPL_VAR NAME="check_categorytype"-->">Yes</a>
 				&nbsp;&nbsp;&nbsp; No, it is not
 				<!-- TMPL_IF NAME="checked"-->
 					<input type="checkbox" checked="checked" name="answernodouble" >
@@ -100,7 +100,7 @@
 		</form>
 		</p>
 	<!--/TMPL_IF-->
-		
+
 	<!-- TMPL_IF Name="debug" -->
 		<div id="debug">
 				<div>Debug is on (level <!-- TMPL_VAR NAME="debug" -->)</div>
diff --git a/members/memberentry.pl b/members/memberentry.pl
index 7bc41e8a42..91095ad2ea 100755
--- a/members/memberentry.pl
+++ b/members/memberentry.pl
@@ -140,7 +140,7 @@ if ($op eq 'insert' || $op eq 'modify' || $op eq 'save') {
 }
 
 #############test for member being unique #############
-if ($op eq 'insert'){
+if (($op eq 'insert') and !$nodouble){
         my $category_type_send=$category_type if ($category_type eq 'I'); 
         my $check_category; # recover the category code of the doublon suspect borrowers
 			#   ($result,$categorycode) = checkuniquemember($collectivity,$surname,$firstname,$dateofbirth)
@@ -150,8 +150,10 @@ if ($op eq 'insert'){
 			($newdata{firstname}   ? $newdata{firstname}   : $data{firstname}  ),
 			($newdata{dateofbirth} ? $newdata{dateofbirth} : $data{dateofbirth})
 		);
-          
-  #   recover the category type if the borrowers is a doublon 
+        if(!$check_member){
+            $nodouble = 1;
+        }
+  #   recover the category type if the borrowers is a doublon
     if ($check_category) {
       my $tmpborrowercategory=GetBorrowercategory($check_category);
       $check_categorytype=$tmpborrowercategory->{'category_type'};
@@ -235,9 +237,8 @@ if ($op eq 'modify' || $op eq 'insert' || $op eq 'save' ){
 }
 
 ###  Error checks should happen before this line.
-
 $nok = $nok || scalar(@errors);
-if ((!$nok) and ($op eq 'insert' or $op eq 'save')){
+if ((!$nok) and $nodouble and ($op eq 'insert' or $op eq 'save')){
 	$debug and warn "$op dates: " . join "\t", map {"$_: $newdata{$_}"} qw(dateofbirth dateenrolled dateexpiry);
 	if ($op eq 'insert'){
 		# we know it's not a duplicate borrowernumber or there would already be an error
@@ -299,7 +300,7 @@ if ($delete){
 	exit;		# same as above
 }
 
-if ($nok){
+if ($nok or !$nodouble){
     $op="add" if ($op eq "insert");
     $op="modify" if ($op eq "save");
     %data=%newdata;