From 4d59c2c06b3474790e8e5d119e75bffc5458e5b9 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Mon, 8 Jan 2018 18:05:29 -0300
Subject: [PATCH] Bug 19936: Remove the subroutine Check_Userid

It is no longer in user, we can remove it.
---
 C4/Members.pm | 33 ---------------------------------
 1 file changed, 33 deletions(-)

diff --git a/C4/Members.pm b/C4/Members.pm
index cd4868994e..ea70d7848a 100644
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -90,7 +90,6 @@ BEGIN {
     push @EXPORT, qw(
         &checkuniquemember
         &checkuserpassword
-        &Check_Userid
         &Generate_Userid
         &fixup_cardnumber
         &checkcardnumber
@@ -467,38 +466,6 @@ sub AddMember {
     return $data{borrowernumber};
 }
 
-=head2 Check_Userid
-
-    my $uniqueness = Check_Userid($userid,$borrowernumber);
-
-    $borrowernumber is optional (i.e. it can contain a blank value). If $userid is passed with a blank $borrowernumber variable, the database will be checked for all instances of that userid (i.e. userid=? AND borrowernumber != '').
-
-    If $borrowernumber is provided, the database will be checked for every instance of that userid coupled with a different borrower(number) than the one provided.
-
-    return :
-        0 for not unique (i.e. this $userid already exists)
-        1 for unique (i.e. this $userid does not exist, or this $userid/$borrowernumber combination already exists)
-
-=cut
-
-sub Check_Userid {
-    my ( $uid, $borrowernumber ) = @_;
-
-    return 0 unless ($uid); # userid is a unique column, we should assume NULL is not unique
-
-    return 0 if ( $uid eq C4::Context->config('user') );
-
-    my $rs = Koha::Database->new()->schema()->resultset('Borrower');
-
-    my $params;
-    $params->{userid} = $uid;
-    $params->{borrowernumber} = { '!=' => $borrowernumber } if ($borrowernumber);
-
-    my $count = $rs->count( $params );
-
-    return $count ? 0 : 1;
-}
-
 =head2 Generate_Userid
 
     my $newuid = Generate_Userid($borrowernumber, $firstname, $surname);
-- 
2.11.0