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