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