X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=C4%2FMembers.pm;h=29474a274819ca9a242c49a83c07ccfe9ae52623;hb=refs%2Ftags%2Fn_acq_a_porter;hp=1d52bcaf63a71c53b95b31cef923b33ee32b4da0;hpb=cbc7eeb3cbd3eedb0f4cd928d5f0085cb3f32443;p=koha.git

diff --git a/C4/Members.pm b/C4/Members.pm
index 1d52bcaf63..29474a2748 100644
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -82,6 +82,7 @@ BEGIN {
 	push @EXPORT, qw(
 		&ModMember
 		&changepassword
+        &ModPrivacy
 	);
 
 	#Delete data
@@ -2076,6 +2077,31 @@ sub IsMemberBlocked {
     return 0
 }
 
+=head2 ModPrivacy
+
+=over 4
+
+my $success = ModPrivacy( $borrowernumber, $privacy );
+
+Update the privacy of a patron.
+
+return :
+true on success, false on failure
+
+=back
+
+=cut
+
+sub ModPrivacy {
+    my $borrowernumber = shift;
+    my $privacy = shift;
+    return unless defined $borrowernumber;
+    return unless $borrowernumber =~ /^\d+$/;
+
+    return ModMember( borrowernumber => $borrowernumber,
+                      privacy        => $privacy );
+}
+
 END { }    # module clean-up code here (global destructor)
 
 1;