View | Details | Raw Unified | Return to bug 16845
Collapse All | Expand All

(-)a/C4/Members.pm (-22 lines)
Lines 1990-2016 sub GetBorrowersNamesAndLatestIssue { Link Here
1990
    return $results;
1990
    return $results;
1991
}
1991
}
1992
1992
1993
=head2 ModPrivacy
1994
1995
  my $success = ModPrivacy( $borrowernumber, $privacy );
1996
1997
Update the privacy of a patron.
1998
1999
return :
2000
true on success, false on failure
2001
2002
=cut
2003
2004
sub ModPrivacy {
2005
    my $borrowernumber = shift;
2006
    my $privacy = shift;
2007
    return unless defined $borrowernumber;
2008
    return unless $borrowernumber =~ /^\d+$/;
2009
2010
    return ModMember( borrowernumber => $borrowernumber,
2011
                      privacy        => $privacy );
2012
}
2013
2014
=head2 IssueSlip
1993
=head2 IssueSlip
2015
1994
2016
  IssueSlip($branchcode, $borrowernumber, $quickslip)
1995
  IssueSlip($branchcode, $borrowernumber, $quickslip)
2017
- 

Return to bug 16845