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>
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)