From 9bfedbfc36cceac02cdc2e2862ec9bb297012ecc Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 4 Jul 2016 13:22:18 +0100 Subject: [PATCH] [PASSED QA] 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 Signed-off-by: Katrin Fischer --- C4/Members.pm | 21 --------------------- 1 file changed, 21 deletions(-) diff --git a/C4/Members.pm b/C4/Members.pm index f9b3942..edecf6f 100644 --- a/C4/Members.pm +++ b/C4/Members.pm @@ -1989,27 +1989,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.9.1