From f30665e1be2a72a81908fc651c7b293e8f5d5801 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Mon, 4 Jul 2016 13:22:18 +0100
Subject: [PATCH] Bug 16845: Remove unused C4::Members::ModPrivacy
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

This subroutine is no longer in used and can be removed safely

Test plan:
  git grep ModPrivacy
should not return any occurrences.

Signed-off-by: Marc Véron <veron@veron.ch>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
(cherry picked from commit 58138e93d709b953f00cc126318d2cc4a9e102f4)
Signed-off-by: Frédéric Demians <f.demians@tamil.fr>
---
 C4/Members.pm | 21 ---------------------
 1 file changed, 21 deletions(-)

diff --git a/C4/Members.pm b/C4/Members.pm
index 677e22168a..8d3df660de 100644
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -1990,27 +1990,6 @@ sub GetBorrowersNamesAndLatestIssue {
     return $results;
 }
 
-=head2 ModPrivacy
-
-  my $success = ModPrivacy( $borrowernumber, $privacy );
-
-Update the privacy of a patron.
-
-return :
-true on success, false on failure
-
-=cut
-
-sub ModPrivacy {
-    my $borrowernumber = shift;
-    my $privacy = shift;
-    return unless defined $borrowernumber;
-    return unless $borrowernumber =~ /^\d+$/;
-
-    return ModMember( borrowernumber => $borrowernumber,
-                      privacy        => $privacy );
-}
-
 =head2 IssueSlip
 
   IssueSlip($branchcode, $borrowernumber, $quickslip)
-- 
2.39.5