From 78d12c5377af74d15bba5a187e831ce0cfe667d1 Mon Sep 17 00:00:00 2001 From: Jonathan Druart 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=UTF-8 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 --- C4/Members.pm | 21 --------------------- 1 file changed, 21 deletions(-) diff --git a/C4/Members.pm b/C4/Members.pm index 383799d..bcb8a19 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) -- 1.7.10.4