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

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

Return to bug 16845