|
Lines 76-83
BEGIN {
Link Here
|
| 76 |
&GetBorrowersWhoHaveNeverBorrowed |
76 |
&GetBorrowersWhoHaveNeverBorrowed |
| 77 |
&GetBorrowersWithIssuesHistoryOlderThan |
77 |
&GetBorrowersWithIssuesHistoryOlderThan |
| 78 |
|
78 |
|
| 79 |
&GetUpcomingMembershipExpires |
|
|
| 80 |
|
| 81 |
&IssueSlip |
79 |
&IssueSlip |
| 82 |
GetBorrowersWithEmail |
80 |
GetBorrowersWithEmail |
| 83 |
|
81 |
|
|
Lines 1059-1111
sub GetNoticeEmailAddress {
Link Here
|
| 1059 |
return $data->{'primaryemail'} || ''; |
1057 |
return $data->{'primaryemail'} || ''; |
| 1060 |
} |
1058 |
} |
| 1061 |
|
1059 |
|
| 1062 |
=head2 GetUpcomingMembershipExpires |
|
|
| 1063 |
|
| 1064 |
my $expires = GetUpcomingMembershipExpires({ |
| 1065 |
branch => $branch, before => $before, after => $after, |
| 1066 |
}); |
| 1067 |
|
| 1068 |
$branch is an optional branch code. |
| 1069 |
$before/$after is an optional number of days before/after the date that |
| 1070 |
is set by the preference MembershipExpiryDaysNotice. |
| 1071 |
If the pref would be 14, before 2 and after 3, you will get all expires |
| 1072 |
from 12 to 17 days. |
| 1073 |
|
| 1074 |
=cut |
| 1075 |
|
| 1076 |
sub GetUpcomingMembershipExpires { |
| 1077 |
my ( $params ) = @_; |
| 1078 |
my $before = $params->{before} || 0; |
| 1079 |
my $after = $params->{after} || 0; |
| 1080 |
my $branch = $params->{branch}; |
| 1081 |
|
| 1082 |
my $dbh = C4::Context->dbh; |
| 1083 |
my $days = C4::Context->preference("MembershipExpiryDaysNotice") || 0; |
| 1084 |
my $date1 = dt_from_string->add( days => $days - $before ); |
| 1085 |
my $date2 = dt_from_string->add( days => $days + $after ); |
| 1086 |
$date1= output_pref({ dt => $date1, dateformat => 'iso', dateonly => 1 }); |
| 1087 |
$date2= output_pref({ dt => $date2, dateformat => 'iso', dateonly => 1 }); |
| 1088 |
|
| 1089 |
my $query = q| |
| 1090 |
SELECT borrowers.*, categories.description, |
| 1091 |
branches.branchname, branches.branchemail FROM borrowers |
| 1092 |
LEFT JOIN branches USING (branchcode) |
| 1093 |
LEFT JOIN categories USING (categorycode) |
| 1094 |
|; |
| 1095 |
if( $branch ) { |
| 1096 |
$query.= 'WHERE branchcode=? AND dateexpiry BETWEEN ? AND ?'; |
| 1097 |
} else { |
| 1098 |
$query.= 'WHERE dateexpiry BETWEEN ? AND ?'; |
| 1099 |
} |
| 1100 |
|
| 1101 |
my $sth = $dbh->prepare( $query ); |
| 1102 |
my @pars = $branch? ( $branch ): (); |
| 1103 |
push @pars, $date1, $date2; |
| 1104 |
$sth->execute( @pars ); |
| 1105 |
my $results = $sth->fetchall_arrayref( {} ); |
| 1106 |
return $results; |
| 1107 |
} |
| 1108 |
|
| 1109 |
=head2 GetBorrowersToExpunge |
1060 |
=head2 GetBorrowersToExpunge |
| 1110 |
|
1061 |
|
| 1111 |
$borrowers = &GetBorrowersToExpunge( |
1062 |
$borrowers = &GetBorrowersToExpunge( |
| 1112 |
- |
|
|