use Carp;
use Koha::Database;
+use Koha::DateUtils;
use Koha::ArticleRequests;
use Koha::ArticleRequest::Status;
return Koha::Patrons->_new_from_dbic($del);
}
+=head3
+
+my $patrons = Koha::Patrons->search_upcoming_membership_expires();
+
+The 'before' and 'after' represent the number of days before/after the date
+that is set by the preference MembershipExpiryDaysNotice.
+If the pref is 14, before 2 and after 3 then you will get all expires
+from 12 to 17 days.
+
+=cut
+
+sub search_upcoming_membership_expires {
+ my ( $self, $params ) = @_;
+ my $before = $params->{before} || 0;
+ my $after = $params->{after} || 0;
+ delete $params->{before};
+ delete $params->{after};
+
+ my $days = C4::Context->preference("MembershipExpiryDaysNotice") || 0;
+ my $date_before = dt_from_string->add( days => $days - $before );
+ my $date_after = dt_from_string->add( days => $days + $after );
+ my $dtf = Koha::Database->new->schema->storage->datetime_parser;
+
+ $params->{dateexpiry} = {
+ ">=" => $dtf->format_date( $date_before ),
+ "<=" => $dtf->format_date( $date_after ),
+ };
+ return $self->SUPER::search(
+ $params, { join => ['branchcode', 'categorycode'] }
+ );
+}
+
=head3 guarantor
Returns a Koha::Patron object for this borrower's guarantor
my $admin_adress = C4::Context->preference('KohaAdminEmailAddress');
warn 'getting upcoming membership expires' if $verbose;
-my $upcoming_mem_expires = C4::Members::GetUpcomingMembershipExpires({ branch => $branch, before => $before, after => $after });
-warn 'found ' . scalar( @$upcoming_mem_expires ) . ' soon expiring members'
+my $upcoming_mem_expires = Koha::Patrons->search_upcoming_membership_expires({ 'me.branchcode' => $branch, before => $before, after => $after });
+warn 'found ' . $upcoming_mem_expires->count . ' soon expiring members'
if $verbose;
# main loop
$letter_type = 'MEMBERSHIP_EXPIRY' if !$letter_type;
-foreach my $recent ( @$upcoming_mem_expires ) {
- my $from_address = $recent->{'branchemail'} || $admin_adress;
+while ( my $recent = $upcoming_mem_expires->next ) {
+ my $from_address = $recent->library->branchemail || $admin_adress;
my $letter = C4::Letters::GetPreparedLetter(
module => 'members',
letter_code => $letter_type,
- branchcode => $recent->{'branchcode'},
+ branchcode => $recent->branchcode,
tables => {
- borrowers => $recent->{'borrowernumber'},
- branches => $recent->{'branchcode'},
+ borrowers => $recent->borrowernumber,
+ branches => $recent->branchcode,
},
);
last if !$letter; # Letters.pm already warned, just exit
} else {
C4::Letters::EnqueueLetter({
letter => $letter,
- borrowernumber => $recent->{'borrowernumber'},
+ borrowernumber => $recent->borrowernumber,
from_address => $from_address,
message_transport_type => 'email',
});