diff options
| -rw-r--r-- | FS/FS/Cron/notify.pm | 4 | ||||
| -rw-r--r-- | FS/FS/msg_template.pm | 1 |
2 files changed, 4 insertions, 1 deletions
diff --git a/FS/FS/Cron/notify.pm b/FS/FS/Cron/notify.pm index ece96fcfd..dcc7b30fe 100644 --- a/FS/FS/Cron/notify.pm +++ b/FS/FS/Cron/notify.pm @@ -4,7 +4,7 @@ use strict; use vars qw( @ISA @EXPORT_OK $DEBUG ); use Exporter; use FS::UID qw( dbh driver_name ); -use FS::Record qw(qsearch); +use FS::Record qw(qsearch qsearchs); use FS::cust_main; use FS::cust_pkg; @@ -106,6 +106,8 @@ END my $msgnum = $conf->config('impending_recur_msgnum',$cust_main->agentnum); if ( $msgnum ) { my $msg_template = qsearchs('msg_template', { msgnum => $msgnum }); + $cust_main->setfield('packages', \\@packages); + $cust_main->setfield('recurdates', \\@recurdates); $error = $msg_template->send('cust_main' => $cust_main); } else { diff --git a/FS/FS/msg_template.pm b/FS/FS/msg_template.pm index 071a3c465..50298d278 100644 --- a/FS/FS/msg_template.pm +++ b/FS/FS/msg_template.pm @@ -316,6 +316,7 @@ sub substitutions { signupdate dundate expdate + packages recurdates ), # expdate is a special case [ signupdate_ymd => sub { time2str('%Y-%m-%d', shift->signupdate) } ], |