|
Lines 1964-1995
sub GetBorrowersWithIssuesHistoryOlderThan {
Link Here
|
| 1964 |
return \@results; |
1964 |
return \@results; |
| 1965 |
} |
1965 |
} |
| 1966 |
|
1966 |
|
| 1967 |
=head2 GetBorrowersNamesAndLatestIssue |
|
|
| 1968 |
|
| 1969 |
$results = &GetBorrowersNamesAndLatestIssueList(@borrowernumbers) |
| 1970 |
|
| 1971 |
this function get borrowers Names and surnames and Issue information. |
| 1972 |
|
| 1973 |
I<@borrowernumbers> is an array which all elements are borrowernumbers. |
| 1974 |
This hashref is containt the number of time this borrowers has borrowed before I<$date> and the borrowernumber. |
| 1975 |
|
| 1976 |
=cut |
| 1977 |
|
| 1978 |
sub GetBorrowersNamesAndLatestIssue { |
| 1979 |
my $dbh = C4::Context->dbh; |
| 1980 |
my @borrowernumbers=@_; |
| 1981 |
my $query = " |
| 1982 |
SELECT surname,lastname, phone, email,max(timestamp) |
| 1983 |
FROM borrowers |
| 1984 |
LEFT JOIN issues ON borrowers.borrowernumber=issues.borrowernumber |
| 1985 |
GROUP BY borrowernumber |
| 1986 |
"; |
| 1987 |
my $sth = $dbh->prepare($query); |
| 1988 |
$sth->execute; |
| 1989 |
my $results = $sth->fetchall_arrayref({}); |
| 1990 |
return $results; |
| 1991 |
} |
| 1992 |
|
| 1993 |
=head2 ModPrivacy |
1967 |
=head2 ModPrivacy |
| 1994 |
|
1968 |
|
| 1995 |
my $success = ModPrivacy( $borrowernumber, $privacy ); |
1969 |
my $success = ModPrivacy( $borrowernumber, $privacy ); |
| 1996 |
- |
|
|