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